0

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

1 に答える 1

0

私は現在モバイルなので、サンプル コードを提供することはできませんが、Excel を自動化して .csv ファイルを開き、すべてのセルをテキストとしてフォーマットし、Excel 独自の機能を使用して行を列に分割することができます。最後に、不要な列を削除するか、必要な列のみを処理できます。上記の手順を手動で実行し、マクロを記録することをお勧めします。その後、生成されたコードを必要に応じて編集できます。さらに情報が必要な場合は、教えてください。vba de にアクセスできるようになったら、コードを投稿できます。

于 2013-09-28T12:29:42.763 に答える