|
こんにちは…
どうしても行き詰って投稿します
どうかよろしくお願いします
指定フォルダ内から指定したテキストファイルを開いて、エクセルに読み込む動作をさせたいのですが、いまいちうまくいきません。
エクセルファイル【シート1】に下記のような品目が複数入力してあり、
順番に、A列にRと入力されているものの品目のファイルを開いていくとします
A列 B列
R 123456ABC ’1個目
456789RFV
R B23456WER ’2個目
R ADR123456 ' 3個目
その際、フォルダ内のテキスト名が、下記のような名前になっています
QQQ_品目---AS.txt (例:QQQ_123456ABC---AS.txt)
QQQ_品目---AW.txt (例:QQQ_123456ABC---AW.txt)
末尾がASとなっているほうのデータを開きたいです
今はとりあえず、指定したテキストファイルを開くというところまで、コードを作成しましたが、ファイル名がうまく取得できません
どのように記述すればよいのでしょうか?
Sub test()
Dim LastR As Integer, MyRow As Integer
Dim Sh1 As Worksheet
Dim MyRange As Range
Dim strParts As String
Dim strDir As String, MyTxt As String
Set Sh1 = Worksheets("シート1")
LastR = Sh1.Range("A65536").End(xlUp).Row
Set MyRange = Sh1.Range("A1:A" & LastR).Find(what:="R", lookin:=xlValues)
If Not MyRange Is Nothing Then
MyRow = MyRange.Row
strParts = ShBOM.Range("B" & MyRow).Value
strDir = "C:\Temp\フォルダ\"
If Dir(strDir & "KHI_" & strParts & "*Bom.txt") <> "" Then
'ファイルがあったら、テキストデータを開く
Open strDir & "KHI_" & strParts & "*Bom.txt" For Input as #1
End If
End If
End Sub
|
|