Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37523 / 76732

←次へ　｜　前へ→


	【44374】Re:ＣＳＶファイルを条件により、エクセルに反映

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】ＣＳＶファイルを条件により、エクセルに反映 さくら 06/11/14(火) 11:29