|
▼IROC さん:
こんにちは。いつもお世話になっています。
頂いたお返事をアレンジしたのですが、
(mypathとmyfileの間にフォルダーを指定しなければ
ならなかったので)エラーで止まりました。
下記のコードです。
Private Sub CommandButton1_Click()
Dim myPath As String
Dim myfolder As String
Dim myFile As String
myPath = "D:\"
myfolder = Left(TextBox1.Text, 2)
myFile = TextBox1.Text & "-" & TextBox2.Text & "*"
Filename = myPath & folder & "\" & myFile
if dir filename <>""then
Workbooks.Open Filename
Else
MsgBox "見つかりません"
End If
End Sub
どこが間違えているのでしょうか。
よろしくお願い致します。
>
>Dim myPath As String
>Dim myFile As String
>
> myPath = "C:\"
> myFile = TextBox1.Text & "-" & TextBox2.Text & "*"
>
> If Dir(myPath & myFile) <> "" Then
> Workbooks.Open myPath & Dir(myPath & myFile)
> Else
> MsgBox "見つかりません"
> End If
|
|