Excel VBA質問箱 IV

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

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


50501 / 76732 ←次へ | 前へ→

【31120】Re:データ抽出
回答  Kein  - 05/11/11(金) 21:13 -

引用なし
パスワード
   150件もあって、1つづつ書き換えしていくつもりですか ? 普通は一ヶ所のフォルダー
にまとめて保存しておき、Dir関数でループするなどして、いっぺんにやってしまうのが
良いと思うけど、まぁそのコードを改造するとして

Sub ログ抽出()
  Dim Ary As Variant
  Dim Buf As String, FName1 As String
  Const FName2 As String = "C:\ログ.csv"

  FName1 = Application _
  .GetOpenFilename("CSVファイル (*.csv), *.csv")
  If FName1 = "False" Then Exit Sub
  On Error Resume Next
  Open FName1 For Input As #1
  Open FName2 For Output As #2
  Do Until EOF(1)
   Line Input #1, Buf
   Ary = Split(Buf, ",")
   Print #2, Ary(0) & Ary(3) & Ary(4)
  Loop 
  Close #1: Close #2
  MsgBox "終了しました", 64
End Sub

確実に E列までデータがないと、失敗しますのでご注意下さい。

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 お礼

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