Excel VBA質問箱 IV

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

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


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

54472 / 76736

←次へ　｜　前へ→


	【27055】Re:テキストファイル（;区切り）の読み込...

小僧 - 05/7/27(水) 12:01 -


	引用なし

	パスワード

▼aki さん：
こんにちは。

「FileSystemObject」を使用した例です。

Sub セミコロン区切り取込()
Dim FSO As Object
Dim rFile As Object
Dim rName As String
Dim rLine As String
Dim rTxt As Variant
Dim Kiten As Range　　 '基点にしたいセル
Dim y As Long
Dim x As Long

　　rName = "C:\test2.txt"
　　Set Kiten = ActiveSheet.Range("C5")
　　
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　Set rFile = FSO.OpenTextFile(rName)
　　　　
　　　　y = 0
　　　　Do Until rFile.AtEndofStream
　　　　　　rLine = rFile.ReadLine
　　　　　　rTxt = Split(rLine, ";")
　　　　　　　　For x = 0 To UBound(rTxt)
　　　　　　　　　　Kiten.Offset(y, x).Value = rTxt(x)
　　　　　　　　Next
　　　　　　y = y + 1
　　　　Loop
　　rFile.Close: Set rFile = Nothing
　　Set FSO = Nothing
　　Set Kiten = Nothing
End Sub

外していたらすみません。

0 hits

▼

【27054】テキストファイル（;区切り）の読み込みについて aki 05/7/27(水) 11:32