GBKEE

回復 1# die78325
是這樣嗎?

1. Sub Ex()
   
2.     With Workbooks.Open(Filename:="G:\每月日報表\2012.11\101-11日報表.xlsm")
   
3.         Workbooks("1113日報表自動算(綜合).xlsm").Sheets("設定區").Range("A2") = .Name
   
4.     End With
   
5. End Sub

複製代碼

GBKEE

回復 4# die78325
要多看看 VBA 的說明

我試著宣告 dim dd as workbooks
    Workbooks 屬性 定傳回 Workbooks 集合，此集合代表所有開啟的活頁簿。唯讀。
    Workbook 物件 代表 Microsoft Excel 活頁簿。
    Workbook 物件是 Workbooks 集合的成員。Workbooks 集合包含目前 Microsoft Excel 中所有開啟的 Workbook 物件。

  

1. Option Explicit
   
2. Sub EX()   
   
3.     Dim dd As String '字串型態
   
4.     dd = Sheets("網頁區").Range("A2")
   
5.     Workbooks.Open (dd)
   
6. End Sub

複製代碼