Excel VBA質問箱 IV

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

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


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

36075 / 76732

←次へ　｜　前へ→


	【45842】Re:テキスト

Kein - 07/1/16(火) 0:38 -


	引用なし

	パスワード

↓これでテストしてみたら、一応うまくいきましたが・・。

Sub MAP_DataGet()
　 Dim Buf As String
　 Dim i As Long
　 Const MyF As String = _
　 "C:\Documents and Settings\User\MyTest.txt"
　 '↑ファイルのフルパスは正確に
　
　 Open MyF For Input Access Read As #1
　 Do Until EOF(1)
　　　Line Input #1, Buf
　　　If Left$(Buf, 1) = "[" Then
　　　　 Select Case Left$(Buf, 4)
　　　　　　Case "[MAP": Flg = True
　　　　　　Case "[cha": Flg = False
　　　　 End Select
　　　End If
　　　If Flg Then
　　　　 i = i + 1
　　　　 Cells(i, 1).Value = Buf
　　　End If
　 Loop
　 Close #1: MsgBox "取り込み終了"
End Sub

0 hits

▼

【45836】テキスト ChinaCoffee 07/1/15(月) 19:56