将大视图导入excel工作表

Question

我在vfp中创建了一个大视图。这个观点达到了约400万条记录。我需要连接它并将其导入到Excel工作簿中。

虽然导入工作表达到的限制（约150万条记录）时发生错误。

任何解决方案？我正在考虑将它导入到不同的工作表中，但尚未找到解决方案。

Answer 1

这是MS Excel的限制。你无法避免这一点。或导出为Excel表格的另一种格式。

Answer 2

对于excel来说，400万条记录实在太多了。但是，如果你不得不通过vba连接到dbf文件夹并将数据手动输入到excel中。

但是那样会很慢。

这是您可以使用的代码。 它在每张工作表中输入1.5毫米的线，这可能太多了。我会用100.000行左右。但那是你的电话

我没有运行它，但应该是正确的。

Option Explicit 
Sub import() 

    Dim con As Object 
    Dim rst As Object 
    Dim sql As String 
    Dim DbFolderPath As String 
    Dim i As Long 
    Dim ii As Integer 

    DbFolderPath = ThisWorkbook.Path & "\" 
    Application.ScreenUpdating = False 
    Set con = CreateObject("ADODB.connection") 
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbFolderPath & ";Extended Properties=dBASE IV;" 
    sql = "SELECT * FROM myquery" 

    Set rst = CreateObject("ADODB.recordset") 
    rst.CursorLocation = 3 'adUseClient 
    rst.CursorType = 1 'adOpenKeyset 

    rst.Open sql, con 

    ReDim myValues(rst.RecordCount, 4) 
    ThisWorkbook.Sheets(0).Activate 
    i = 1 
    ii = 0 
    If Not (rst.EOF And rst.BOF) Then 
     rst.MoveFirst 
     Do Until rst.EOF = True 
      Cells(i, 1) = rst!Field1 
      Cells(i, 2) = rst!Field2 
      rst.MoveNext 
      i = i + 1 
      If i > 1500000 Then 
      i = 1 
      ii = ii + 1 
      ThisWorkbook.Worksheets.Add 
      ThisWorkbook.Sheets(ii).Activate 
      End If 

     Loop 
    Else 
     GoTo cleanup 
    End If 
    Columns("A:B").EntireColumn.AutoFit 
    GoTo cleanup 
    Exit Sub 
cleanup: 
    On Error Resume Next 
    rst.Close 
    con.Close 
    Set rst = Nothing 
    Set con = Nothing 
    Application.ScreenUpdating = True 
Exit Sub 
End Sub