如何将大文本文件导入excel？

Question

我是VBA的新手，我正在尝试将一个大的txt文件导入到excel中。我的文本文件有695252行，但是当我导入时，它给了我695001.任何人都可以帮我一样吗？

Sub txtfile()

    Dim fn As String
    Dim newb As Workbook

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Select the file"
        .Filters.Clear
        .Filters.Add "Text files only", "*.txt*"
        If .Show <> False Then
            fn = .SelectedItems(1)
        Else
            MsgBox "No file selected"
        End If
    End With
    Set newb = Workbooks.Open(fn)
    newb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(3).Range("a1")
    newb.Close False

End Sub

Answer 1

所以，差异是251.好吧，我认为其中一些“行”没有回车，或者用于将数据移动到下一行的任何东西。将该文本文件导入Access。你有多少行？我敢打赌它会是695001.尝试一下，并反馈。