標題: [發問] 把檔名放在指定儲存格中 [打印本頁]

---

作者: PJChen    時間: 2018-5-16 22:31     標題: 把檔名放在指定儲存格中

本帖最後由 PJChen 於 2018-5-16 22:36 編輯

大大好,
我想把檔名+工作表名稱，放在程式所在的檔案 VBA報表指令中
L8 把檔名放在這裡
M8 把Sheet名稱放在這裡
這純粹為了測試 指定儲存格為檔名是否可行，所以沒什麼其他功能，
但一直出現錯誤，可否請高手幫忙看看程式是哪裡出錯了？ 感謝

1. Option Explicit
   
2. Dim Wb As Workbook, Wb2 As Workbook, Sh As Worksheet
   
3. Sub 版面設定()
   
4.    
   
5. Set Wb = Workbooks(Workbooks("VBA報表指令.xlsm").Worksheets("VBA指令II").Range("L8").Value) '儲存格的值為檔案名稱
   
6. Set Sh = Workbooks(Workbooks("VBA報表指令.xlsm").Worksheets("VBA指令II").Range("M8").Value) '儲存格的值為工作表名稱
   
7. With Wb.Sh
   
8. .Range("E1").Copy
   
9. 
   
10.   
    
11. 
    
12. End With
    
13.    
    
14. End Sub

複製代碼

---

作者: nolookyou    時間: 2018-5-17 09:00

回復 1# PJChen

版大早安，修正如下，再麻煩測試

1. Option Explicit
   
2. Dim Wb As Workbook, Wb2 As Workbooks, Sh As Worksheet
   
3. 
   
4. Sub 版面設定()
   
5.    
   
6. Set Wb = Workbooks(Workbooks("VBA報表指令.xlsm").Worksheets("VBA指令II").Range("L8").Value) '儲存格的值為檔案名稱
   
7. Set Sh = Worksheets(Workbooks("VBA報表指令.xlsm").Worksheets("VBA指令II").Range("M8").Value) '儲存格的值為工作表名稱
   
8. 
   
9. With Wb.Worksheets(Sh.Name)
   
10.     .Range("E1").Copy
    
11. End With
    
12. 
    
13. End Sub

複製代碼

---

作者: PJChen    時間: 2018-5-17 20:08

回復 2# nolookyou

我把程式改為,但是無法執行！

1. Option Explicit
   
2. Dim Wb As Workbook, Sh As Worksheet
   
3. Sub 版面設定()
   
4.    
   
5. Set Wb = Workbooks(Workbooks("VBA報表指令.xlsm").Worksheets("VBA指令II").Range("L8").Value) '儲存格的值為檔案名稱
   
6. Set Sh = Worksheets(Workbooks("VBA報表指令.xlsm").Worksheets("VBA指令II").Range("L9").Value) '儲存格的值為工作表名稱
   
7. With Wb.Worksheets(Sh.Name)
   
8.     .Range("E1").Copy
   
9. 
   
10. End With   
    
11. End Sub

複製代碼

[attach]28725[/attach]

---

作者: PJChen    時間: 2018-5-17 22:19

本帖最後由 PJChen 於 2018-5-17 22:20 編輯

回復 2# nolookyou

您好,
我來回試了很多次,最後改成這樣,就可以執行.

1. Option Explicit
   
2. Dim Wb As Workbook, Sh As Worksheet
   
3. Sub 版面設定()   
   
4. Set Wb = Workbooks(Workbooks("VBA報表指令.xlsm").Worksheets("VBA指令II").Range("L8").Value) '儲存格的值為檔案名稱
   
5. Set Sh = Wb.Worksheets(Worksheets("VBA指令II").Range("L9").Value) '儲存格的值為工作表名稱
   
6.   With Wb.Worksheets(Sh.Name).PageSetup  '若不需設定設定版面時,可以把.PageSetup省略
   
7. 
   
8.     .LeftMargin = Application.InchesToPoints(0)  '左邊界
   
9.     .RightMargin = Application.InchesToPoints(0)  '右邊界
   
10.     .TopMargin = Application.InchesToPoints(0) '上邊界
    
11.     .BottomMargin = Application.InchesToPoints(0)  '下邊界
    
12.     .HeaderMargin = Application.InchesToPoints(0) '頁首
    
13.     .FooterMargin = Application.InchesToPoints(0)  '頁尾
    
14.     .Zoom = 200 '列印縮放
    
15. 
    
16.   End With   
    
17. End Sub

複製代碼

---

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