Excel VBA質問箱 IV

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

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


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

71167 / 76738

←次へ　｜　前へ→


	【10067】Re:テキストファイルの読み込み（追加説明）

Kein - 04/1/5(月) 22:37 -


	引用なし

	パスワード

そのファイルは、一行で一つのデータしかないわけですね ?
そうすると例えば・・

Sub Test_MyTextOP()
　 Dim MyF As String
　 Dim FSO As Object, MyTxt As Object
　 Dim i As Integer, y As Integer, x As Long
　　　
　 ChDir "C:\Temp" '←テキストを保存しているフォルダーのパスに変更
　 With Application
　　　MyF = .GetOpenFilename("ﾃｷｽﾄﾌｧｲﾙ (*.csv; *.txt), *.csv; *.txt")
　　　If MyF = "False" Then Exit Sub
　　　.ScreenUpdating = False
　 End With
　 Set FSO = CreateObject("Scripting.FileSystemObject")
　 x = 2: y = 1
　 Set MyTxt = FSO.OpenTextFile(MyF, 1)
　 For i = 1 To 5
　　　MyTxt.SkipLine
　 Next i
　 Do Until MyTxt.AtEndOfStream
　　　Cells(x, y).Value = MyTxt.ReadLine
　　　x = x + 1
　　　If x = 3003 Then
　　　　 x = 2: y = y + 1
　　　End If
　 Loop
　 MyTxt.Close
　 Set MyTxt = Nothing: Set FSO = Nothing
　 With Application
　　　ChDir .DefaultFilePath
　　　.ScreenUpdating = True
　 End With
End Sub

0 hits

▼

【10048】テキストファイルの読み込み ｙｕｋｋｏ 04/1/5(月) 12:40