| |
どうしても分からなくて投稿します
分かる方、教えていただけないでしょうか？
よろしくお願いします
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))
上記のコードだと、[ファイル名または、番号が不正です]とエラーがでてしまいます
どのようにしたら、ﾌｧｲﾙの名前が取得できるのでしょうか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
