標題: 請問vba-執行開啟活頁簿 [打印本頁]

---

作者: eric093    時間: 2013-7-25 21:35     標題: 請問vba-執行開啟活頁簿

請問各位：
如果在公司的共用區每日會依日期產生新的報表，其檔名為：查核資料0725.xls
若是我想寫一個巨集，每日執行時會自動開啟當日（或前一日）的報表嗎？

感謝！

---

作者: luhpro    時間: 2013-7-25 22:14

本帖最後由 luhpro 於 2013-7-25 22:16 編輯

回復 1# eric093

1. Dim sStr$, sPath$
   
2. sPath = "D:\"   ' 請設為實際查核資料相關檔案所在的目錄
   
3. sStr = "查核資料" & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".xls"
   
4. Workbooks.Open sPath & sStr

複製代碼

---

作者: eric093    時間: 2013-7-28 01:59

感謝，不過，想問sStr$，加這個$是什麼意思？可以不加嗎？

---

作者: eric093    時間: 2013-7-28 02:57

抱歉，請問接續上面的動作後，我想將開啟的查核資料（就只有一個sheet)進行複制至原本檔案，
但怎麼試都不行...救救我吧
Window("sStr&.xls").Activate.Select
Windows("sStr&.xls").Activate.Copy
Workbooks("練習開檔").Sheets("sheet1").Select

Workbooks("練習開檔").Sheets("sheet1").Paste

---

作者: GBKEE    時間: 2013-7-28 06:28

回復 4# eric093

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

複製代碼

---

作者: eric093    時間: 2013-7-28 15:01

感謝喔！我知道了！
我真的很淺，還在學習，還好有這個網站可以請各位高手！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)