請問vba-執行開啟活頁簿

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-7-28 06:28 | 顯示全部帖子

回復 4# eric093

Option Explicit
Sub Ex()
'String(字串)的型態宣告字元為 $。
'Dim sStr$, sPath$
Dim sStr As String, sPath As String 'Dim(宣告) 變數 As String(字串)的型態
sPath = "D:\" ' 請設為實際查核資料相關檔案所在的目錄
sStr = "查核資料" & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".xls"
Workbooks.Open sPath & sStr
Workbooks(sStr).Sheets(1).Copy After:=Workbooks("練習開檔").Sheets(1)
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。