ファイル名の取得ができません
今VBAでユーザフォームにコンボボックス一個を作りました。本来なら
コンボボックスの値を選択し、ボタンを押して対応するファイルを読み込んで必要の値を取得したいですが・・・
今問題になったのは読み込みファイルの名前は固定ではないですが、
うまくファイルの読み込みが出来ません。ファイル名は "作業実績入力表_2009年07月_【山田 太郎】.xls" ,"作業実績入力表_2009年08月_【坂本 太郎】.xls ", "作業実績入力表_2009年09月_【柳 太郎】.xls"いう風になっているけど 月の番号は変わるものですので
普通の方法で指定したら（BaseFileName As String = "作業実績入力表_2009年07月_【山田 太郎】"）来月からソースまた変更しないといけない・・
来月："作業実績入力表_2009年08月_【山田 太郎】.xls"
コンボボックス選択用値は山田 太郎、坂本 太郎、柳 太郎です。
山田 太郎を選択したら”作業実績入力表_2009年07月_【山田 太郎】.xls”のファイルを読み込みたい
名前をどう指定したらいいでしょうか？ご教授のほどよろしくお願いします。
Dim OrgPath As String, Fname As Variant
Const BaseFileName As String = "作業実績入力表_2009年07月_【"
Const BaseFileName1 As String = "】"
Const myPath As String = "C:\Documents and Settings\rin-binyan.HALINC\My Documents\test\"
OrgPath = ThisWorkbook.Path
If Dir(myPath & BaseFileName & ComboBox2.Value & BaseFileName1 & ".xls") <> "" Then
Workbooks.Open myPath & BaseFileName & ComboBox2.Value & BaseFileName1 & ".xls"
Else
Application.Dialogs(xlDialogOpen).Show (BaseFileName & "*.xls")
End If
LineEnd:
ChDir OrgPath
固定のファイルしか指定できないですが・・・
