返回列表 上一主題 發帖

[發問] 如何把活頁簿名稱指定 在哪個欄位 (已爬文多日）

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-11-18 14:48 | 顯示全部帖子
回復 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
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-11-19 15:22 | 顯示全部帖子
回復 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
複製代碼

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題