次の 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