|
質問なのですが、CSV形式のログファイル
A B C D E
1 日付 ユーザID グループID ユーザ名 グループ名
2 10日 1000 10000 n m
3 11日 1001 10000 n1 m
このCSVファイル(150件ほど)を一度別の場所に出力後、B列とC列のみを左詰めで
表示させたいのですが、ファイルを出力する方法はわかるのですが列の削除の方法がわかりません。よろしければ、ご教授お願いします。
以下の文までは自分で書けたのですが。
Sub ログ抽出()
Dim Line1 As String
Dim FName1 As Variant
FName2 = "C:\ログ.csv"
FName1 = Application.GetOpenFilename(FileFilter:="CSVファイル (*.csv), *.csv")
i = 0
Open FName1 For Input As #1
Open FName2 For Output As #2
Do Until EOF(1)
Line Input #1, Line1
Print #2, Line1
i = i + 1
Loop
Close #1
Close #2
End Sub
|
|