|
助けてください。
下記のコードは「構文エラー」になります。
どこがいけないのでしょう。
わかる方いらっしゃいましたら、是非教えてください。
textbox1=53211
textbox2=050811
を入力させてcommandbutton1をクリックすると
Dドライブの「53」というフォルダーの中にある
「53211-050811変更」というブックを開きたいのです。
Private Sub CommandButton1_Click()
Dim myPath As String
Dim folder As String
Dim myFile As String
myPath = "D:\"
folder = 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
|
|