通過 VBA 打開 .csv 文件會導致丟失行

Question

我正在使用宏打開一組選定的 .csv 文件，應用 TextToColumns 命令，然后將它們保存為 .xlsx 文件以供進一步手動處理。 如果我手動打開一個特定的 .csv 文件，其中大約有 2000 行； 當通過宏打開文件時，它總共只包含 1064 行。 有誰知道是什么原因造成的，或者我該如何解決？ 相關代碼：

Dim iFileSelect As FileDialog
Dim vrtSelectedItem As Variant
Set iFileSelect = Application.FileDialog(msoFileDialogFilePicker)

If iFileSelect.Show = -1 Then
    Application.DisplayAlerts = False
    For Each vrtSelectedItem In iFileSelect.SelectedItems
        Workbooks.Open vrtSelectedItem 'After this step the opened csv-file only contains 1064 out of 2000 lines
        'Here a macro is run to convert text to columns
        ActiveWorkbook.Close
        SetAttr vrtSelectedItem, vbNormal
        Kill vrtSelectedItem
    Next vrtSelectedItem
    Application.DisplayAlerts = True
End If

Set iFileSelect = Nothing

Answer 1

出於某種原因，將 Local 參數設置為 True 修復了它，我仍然不知道如何或為什么，如果有人有任何見解，我將不勝感激。 固定代碼：

Workbooks.Open vrtSelectedItem, Local:=True