2016-06-20 2 views
0

マクロを実行するコマンドボタンを含むブックがあります。ワークブック3のファイルパスをセルB17のコマンドボタンの下にあるワークシートに保存する必要があります。下のマクロでそのセルを参照し、ワークブック3を自動的に開きます。ファイルパスは毎日変更され、開発者タブで変更する必要はありません。助けてください!あなたはファイルパスが(セルB17)に保存することにしたいんワークブック/ワークシート別のブック内のブックを参照してファイルを自動的に開く方法を教えてください。

Sub NCFinal() 

Dim Wb1 As Workbook 
Dim Wb2 As Workbook 
Dim Wb3 As Workbook 

With Application 
.ScreenUpdating = False 
.EnableEvents = False 
.DisplayAlerts = False 
End With 

Set Wb1 = Workbooks.Open("A:Desktop\Excel Files\Data Template.xlsb") 
Set Wb2 = Workbooks.Open("A:Desktop\Excel Files\MarchData.xlsb") 
**Set Wb3 = Workbooks.Open(Filename:=Sheets("Sheet1").Range("B17").Value)** 
Wb1.Sheets("FRD").Copy After:=Wb2.Sheets("Sheet1") 
Wb3.Sheets("CDGL Data").Copy After:=Wb2.Sheets("FRD") 

Wb1.Close False 
Wb3.Close False 
+0

? wb1.sheets( 'sheetname')のようなことができます。cells(17,2)= wb3.FullName –

+0

あなたの星印の線は動作するように見えます。問題は何ですか?これを実行するとどうなりますか?エラーが発生するのですか、または予期しないことが起こりますか? –

+0

私はエラー@ ChrisMelvilleを取得します。開いているファイルパスは、コマンドボタン – Hags

答えて

2
Set Wb3 = Workbooks.Open(Filename:=ThisWorkbook.Sheets("Sheet1").Range("B17").Value) 
関連する問題