|
アルディー さん、こんばんわ。
>したいのですが、下記の記述ではエラーとなってしまいます。
>Sub Macro1()
> Dim ファイル名 As String
> ファイル名 = Sheets("メニュー").Range("E9")
> Workbooks.Open Filename:=ファイル名
ファイル名を""で囲むと、ファイル名という名前のブックを指定していることになるのでエラーになります。
また、だいたいの場合、ファイル名にはフルパスファイル名(例:C:\Test\Book1.xls")が入っているでしょうから、
Workbooks(Dir(ファイル名)).Close SaveChanges:=False
でエラーにはならないとは思いますが(「保存しますか?」のアラートが出る可能性はあります)、
オブジェクト変数にセットする方がいろんな処理で使いやすくなります。
Set wb = Workbooks.Open(Filename:=ファイル名) 'セット
・
(何らかの作業)
・
wb.Saved = True '保存したふり
wb.Close SaveChanges:=False '閉じる
|
|