12
返回列表 上一主題 發帖

[發問] 物件省略的加"."與不加問題

thps51134

帖子
23 
主題
4 
精華
0 
積分
39 
點名
0  
作業系統
Win7 
軟體版本
Office2007 
閱讀權限
10 
性別
女 
註冊時間
2011-10-27 
最後登錄
2021-5-13 
3# 跳轉到 »
發表於 2011-12-7 12:34 | 只看該作者
本帖最後由 thps51134 於 2011-12-7 12:44 編輯

回復 2# Hsieh

    Dear Hsieh大, 老實說
　讓我相當困惑的其中一點就在於
　我的Code是寫在下面所寫的"Test.xls"的Module中
  1.     Ｗindows("Test.xls").Activate
  2.     Range(Cells(1, 1), Cells(4, 72)).Copy
  3.    
  4.     With Workbooks.Add
  5.         With Sheets1
  6.             Cells(1, 1).Select '也改為' Cells(1,1).value= "OH" '過, 確認過動作真的是會作用在此'
  7.             ActiveSheet.Paste
  8.         End With
  9.     End With
複製代碼
這樣寫下來，竟然可以執行出
讓在test 中Copy的資料於新開的workbook中的Sheet1中貼上  
(我的目的就是要copy舊檔案中的部分資料, paste於開的檔案中)

Hsieh大的回覆也讓我驚覺我的錯誤訊息問題...
應該與語法不熟大有關係= =a
因為將
With Sheet1 改為 With .Sheets(1)後
加"."的就順利執行了!
感謝!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-12-7 10:13 | 只看該作者
回復 1# thps51134


    當執行Workbooks.add時
作用活頁簿就是該新增活頁簿
所以With Workbooks.add區段下
With .Sheets(1)會指向該新增活頁簿中的第一個工作表
但是若少了"."
With Sheets(1)則是指向程式碼所在的活頁簿中的第一個工作表
那麼在做select動作時，因為並非於作用中活頁簿中執行所以會出錯
學海無涯_不恥下問

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
12
返回列表 上一主題