| |
▼まい さん：
>例えば、[部品A]のテキストデータをエクセルに読み込む動作をさせたいのですが、[部品A]の文字を含んでいるﾌｧｲﾙが、2つあり、[ABC_部品A_---A_PS.txt]のほうを読み込みたいのですが、いまいちうまくいきません。
>
>FileName = TextBox1.Value ’テキストボックスの値[例；部品A]
>
>’↓ここの書き方がうまくいきません…
>Mytxt = "C:\Temp\ABC_" & FileName & "*PS.txt"
ファイル名にワイルドカードは使えません。
Dir関数はご存知ですか？
これを使って "C:\Temp\ABC_部品A*PS.txt" というパターンの
ファイルがあるか調べて、あれば得られたファイル名にパス名を
付加してフルパスにして Openすればいいでしょう
Dim myPath As String
Dim FileName As String
Dim Mytxt As String
myPath = "C:\Temp\"
FileName = "ABC_" & TextBox1.Text
Mytxt = Dir$(myPath & FileName & "*PS.txt")
If Len(Mytxt) = 0 Then Exit Sub 'Dir関数の返り値が長さ0 なら抜ける
Mytxt = myPath & Mytxt
'Open処理
|
|
kanabun
- 09/9/30(水) 11:29 -
