VBA将选定列作为文本格式从csv文件导入excel

我使用以下VBA代码将选定列从csv文件导入excel。所选列应作为文本导入。 例如：000001应按原样导入。它不应截断前导0。我使用文件系统对象编写了一个VBA来选择整个文件。但是，它只选择了前2个

我的要求： 1.仅选择某些列 2.所有内容都应作为文本导入

我的代码：

---

我目前是手机用户，因此无法提供任何示例代码，但您可以自动使用excel打开.csv文件，将所有单元格格式化为文本，并使用excel自身的功能将行拆分为列。最后，您可以删除不需要的列或仅处理所需的列。我建议您手动执行上述步骤，录制宏。然后，您可以根据需要编辑生成的代码。如果您需要更多信息，请告诉我，这样我可以发布一些代码，一旦我有权访问vba de

Sub Read_Text_File()
Dim fsoObj As Scripting.FileSystemObject
Dim fsoFile As Scripting.File
Dim fsoTS As Scripting.TextStream
Dim vaData As Variant
Dim i As Long, j As Long

Set fsoObj = New Scripting.FileSystemObject
Set fsoFile = fsoObj.GetFile("C:\Users\Sandeep\Downloads\TestFile.csv")
Set fsoTS = fsoFile.OpenAsTextStream(ForReading, TristateFalse)


j = 1
Do Until fsoTS.AtEndOfStream
vaData = Split(fsoTS.ReadLine, Chr(44))
Range(Cells(j, 1), Cells(j, 2)).Value = vaData
j = j + 1
Loop

fsoTS.Close
Set fsoFile = Nothing
Set fsoObj = Nothing
End Sub