Excel VBA質問箱 IV

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

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


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

18895 / 76807

←次へ　｜　前へ→


	【63350】指定したテキストファイルを開き読み込む

なな - 09/10/29(木) 9:59 -


	引用なし

	パスワード

こんにちは…

どうしても行き詰って投稿します
どうかよろしくお願いします

指定フォルダ内から指定したテキストファイルを開いて、エクセルに読み込む動作をさせたいのですが、いまいちうまくいきません。

エクセルファイル【シート1】に下記のような品目が複数入力してあり、
順番に、A列にＲと入力されているものの品目のファイルを開いていくとします
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

0 hits

▼

【63350】指定したテキストファイルを開き読み込む なな 09/10/29(木) 9:59

≪