|
こんにちは。かみちゃん です。
>上記のコードの中にUserform1にあるTextbox1に入力したファイル名と同じファイ>ルがあったら開くコードを入れるにはどうしたら良いでしょうか。
>またTextbox1に拡張子を省いたファイル名を入力して開く
TextBox1に拡張子を省いて入力するのは、何のファイルなのですか?
Excelブックですか?テキストファイルですか?
いろいろあると思います。
Excelブック(Excel2003までの標準)であれば、以下のような感じでできますが、
If UserForm1.TextBox1.Value & ".xls" = buf Then
MsgBox "ファイル名が見つかりました"
End If
Worksheets("sheet1").Cells(i, 1) = buf
もう少し言うならば、以下のような感じでいいのではないでしょうか?
Loop
の次の行で
buf = Dir("C:\Documents and Settings\FMV\My Documents\Test\" & UserForm1.TextBox1.Value & ".xls")
If buf <> "" Then
MsgBox "ファイルが見つかりました"
End If
なお、ファイルを開く部分は、マクロの記録で記録できると思います。
|
|