|
こんにちは。かみちゃん です。
>しかし、随時出てくるブックは常にブック名が変化します。
>(A'、A''、A'''、A''''…)
>
>したがってマクロを組んだとしても、プログラムは随時出てくるCHFのブック名に対応していないので、マクロは作動しません。
>
>このような状況下で、任意のブックを指定する方法はございますでしょうか?
一例として、以下のような感じです。
Aというブックを選択して、開くという処理をする場合に変数WBに格納するという例です。
Sub Sample()
Dim WB As Workbook
Dim strFileName As String
strFileName = Application.GetOpenFilename("Excelファイル,(*.xls)", , "ブックAを選択してください")
If strFileName = "False" Then
MsgBox "処理を中止しました"
Exit Sub
End If
Set WB = Workbooks.Open(strFileName)
MsgBox WB.FullName & vbCrLf & WB.Path & vbCrLf & WB.Name
End Sub
|
|