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

Question

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

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

我的代码：

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

Answer 1

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