Excel VBA質問箱 IV

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

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


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

19174 / 76734

←次へ　｜　前へ→


	【62996】指定文字を含むテキストファイルを開く方法

まい - 09/9/30(水) 10:43 -


	引用なし

	パスワード

どうしても分からなくて投稿します
分かる方、教えていただけないでしょうか？
よろしくお願いします　

Cドライブの中の[Temp]フォルダの中にテキストデータが複数存在します

例えば、下記のようなテキストデータが入っているフォルダがあります
ABC_部品A_---A_PS.txt
ABC_部品A_---A_BS.txt
ABC_部品B_---A_PS.txt
ABC_部品B_---A_BS.txt
ABC_部品C_---A_PS.txt
ABC_部品C_---A_BS.txt

例えば、[部品A]のテキストデータをエクセルに読み込む動作をさせたいのですが、[部品A]の文字を含んでいるﾌｧｲﾙが、2つあり、[ABC_部品A_---A_PS.txt]のほうを読み込みたいのですが、いまいちうまくいきません。

現在は下記のようにコードを作成しました

Dim i As Integer, j As Integer
Dim Mytxt As String, Mystr As String
Dim Myrange As Range, TmpRange As Range
Dim FileName As String

FileName = TextBox1.Value　　’テキストボックスの値[例；部品A]

’↓ここの書き方がうまくいきません…
Mytxt = "C:\Temp\ABC_" & FileName & "*PS.txt"

Worksheets(1).Activate
Range("A1").CurrentRegion.Clear
Set Myrange = Range("A1")
Open Mytxt For Input As #1

Do Until EOF(1)
Line Input #1, Mystr
Myrange.Offset(i).Value = Mystr
i = i + 1
Loop
Close #1

Set TmpRange = Range(Myrange, Myrange.End(xlDown))

TmpRange.TextToColumns DataType:=xlDelimited, comma:=True, _
fieldinfo:=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 1), Array(6, 1), _
　　　　　 Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1))

上記のコードだと、[ファイル名または、番号が不正です]とエラーがでてしまいます

どのようにしたら、ﾌｧｲﾙの名前が取得できるのでしょうか？

5 hits

▼

【62996】指定文字を含むテキストファイルを開く方法 まい 09/9/30(水) 10:43

≪