返回列表 上一主題 發帖

[發問] 把檔名放在指定儲存格中

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

  10.   

  12. End With
  13.    
  14. End Sub
複製代碼
收藏 分享

nolookyou

帖子
65 
主題
18 
精華
0 
積分
71 
點名
0  
作業系統
WINXP、7、10、SERVER2012 
軟體版本
Office 2010-2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-27 
最後登錄
2021-10-7 
2#
發表於 2018-5-17 09:00 | 只看該作者
回復 1# PJChen

版大早安，修正如下，再麻煩測試
  1. Option Explicit
  2. Dim Wb As Workbook, Wb2 As Workbooks, Sh As Worksheet

  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) '儲存格的值為工作表名稱

  9. With Wb.Worksheets(Sh.Name)
  10.     .Range("E1").Copy
  11. End With

  13. End Sub
複製代碼

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 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

  10. End With   
  11. End Sub
複製代碼

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
4#
發表於 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省略

  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 '列印縮放

  16.   End With   
  17. End Sub
複製代碼

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題