| |
こんにちは。かみちゃん です。
>しかし、随時出てくるブックは常にブック名が変化します。
>（A'、A''、A'''、A''''…）
>
>したがってマクロを組んだとしても、プログラムは随時出てくるCHFのブック名に対応していないので、マクロは作動しません。
>
>このような状況下で、任意のブックを指定する方法はございますでしょうか？
一例として、以下のような感じです。
Ａというブックを選択して、開くという処理をする場合に変数WBに格納するという例です。
Sub Sample()
Dim WB As Workbook
Dim strFileName As String
strFileName = Application.GetOpenFilename("Excelファイル,(*.xls)", , "ブックＡを選択してください")
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 10/3/15(月) 20:15 -
