Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50503 / 76732 ←次へ | 前へ→

【31118】データ抽出
質問    - 05/11/11(金) 20:37 -

引用なし
パスワード
   質問なのですが、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

0 hits

【31118】データ抽出 05/11/11(金) 20:37 質問
【31120】Re:データ抽出 Kein 05/11/11(金) 21:13 回答
【31143】Re:データ抽出 05/11/12(土) 12:46 お礼
【31144】Re:データ抽出 Kein 05/11/12(土) 13:37 回答
【31183】Re:データ抽出 05/11/14(月) 12:31 お礼
【31187】Re:データ抽出 Kein 05/11/14(月) 12:44 発言
【31194】Re:データ抽出 05/11/14(月) 14:07 お礼
【31197】Re:データ抽出 Kein 05/11/14(月) 14:40 発言
【31201】Re:データ抽出 05/11/14(月) 14:53 発言
【31204】Re:データ抽出 Kein 05/11/14(月) 15:39 回答
【31209】Re:データ抽出 05/11/14(月) 16:34 お礼

50503 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free