Excel VBA質問箱 IV

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

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


37523 / 76732 ←次へ | 前へ→

【44374】Re:CSVファイルを条件により、エクセルに反映
回答  Kein  - 06/11/14(火) 15:46 -

引用なし
パスワード
   ま、こんな感じで。

Sub Get_CSV_Data()
  Dim FSO As Object, MyCSV As Object
  Dim MyF As String, Buf As String
  Dim GetR As Long, i As Long
  Dim Ary As Variant

  With Application
   MyF = .GetOpenFilename("CSVファイル(*.csv),*.csv")
   If MyF = "False" Then Exit Sub
   .ScreenUpdating = False
  End With
  Set FSO = CreateObject("Scripting.FileSystemObject")
  GetR = FSO.OpenTextFile(MyF, 8).Line
  If GetR = 1 Then
   MsgBox "そのファイルにはデータがありません", 48: GoTo ELine
  End If
  Worksheets("Sheet1").Activate: Cells.ClearContents
  Set MyCSV = FSO.OpenTextFile(MyF, 1)
  Do Until MyCSV.AtEndOfStream
   Buf = MyCSV.ReadLine
   Ary = Split(Buf, ",")
   If Ary(0) = "Z01" Or Ary(0) = "0Z01" Then
     If Ary(1) = "ZZ" Or Ary(1) = "0ZZ" Then
      i = i + 1
      Cells(i, 1).Resize(, 6).Value = _
      Array(Ary(0), Ary(1), Ary(2), Ary(4), _
      Ary(7), Ary(10))
     End If
   End If
   Erase Ary
  Loop
  MyCSV.Close: Set MyCSV = Nothing
  MsgBox "データの抽出を終了しました", 64
ELine:
  Set FSO = Nothing: Application.ScreenUpdating = True
End Sub

1 hits

【44361】CSVファイルを条件により、エクセルに反映 さくら 06/11/14(火) 11:29 質問
【44366】Re:CSVファイルを条件により、エクセル... 06/11/14(火) 13:33 質問
【44368】Re:CSVファイルを条件により、エクセル... さくら 06/11/14(火) 14:22 発言
【44373】Re:CSVファイルを条件により、エクセル... 06/11/14(火) 15:38 発言
【44375】Re:CSVファイルを条件により、エクセル... さくら 06/11/14(火) 16:00 発言
【44374】Re:CSVファイルを条件により、エクセル... Kein 06/11/14(火) 15:46 回答
【44376】Re:CSVファイルを条件により、エクセル... さくら 06/11/14(火) 16:04 お礼

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