帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-12-1 17:20 | 只看該作者

想請教關於定義物件語法的疑問？

我知道用set可以用來定義物件，但我對於下列兩種寫法有點疑惑，還麻煩大大們幫我釐清一下：
以下的寫法是可以新建一個excel工作表，並將目前所有在該工作簿裡的工作表名稱，全部放在新建的工作表裡。

Set newa = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newa.Cells(i, 1).Value = Sheets(i).Name
Next i

在這裡，我對set的用法有疑問就是：如果今天把set拿掉，直接把第三行的newa取代掉，這樣的寫法跟把newa定義成物件的概念有何不同？
就是把第三行變成 Sheets.Add(Type:=xlWorksheet).Cells(i, 1).Value = Sheets(i).Name
然後第一行刪除。

請各位大大指教，謝謝。

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2011-12-1 17:59 | 只看該作者

回復 1# tku0216
Sheets.Add 執行此程式碼後, 作用中的工作表,為此新增的工作表

Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name '此Cells 為作用中工作表( 新增的工作表 )的 Cells
Next i

Set Sheets.Add(Type:=xlWorksheet).Cells(1, 1).Value = Sheets(1).Name
上式無法加上 Set 定義為物件

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

3^#

發表於 2011-12-2 15:49 | 只看該作者

本帖最後由 tku0216 於 2011-12-2 15:51 編輯

回復 2# GBKEE

謝謝大大解說，但有點誤解我的意思...
我的意思是，我可以把第一行set的宣告拿掉，然後直接寫成最後一行嗎？
也就是：
Set newa = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newa.Cells(i, 1).Value = Sheets(i).Name
Next i

   或是改成：
   For i = 1 To Sheets.Count
   Sheets.Add(Type:=xlWorksheet).Cells(i, 1).Value = Sheets(i).Name
   Next i

   寫法在意義上有何不同？謝謝。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

4^#

發表於 2011-12-2 17:20 | 只看該作者

回復 3# tku0216

Set newa = Sheets.Add(Type:=xlWorksheet) 'newa 變數指定為此新增工作表的物件
For i = 1 To Sheets.Count
newa.Cells(i, 1).Value = Sheets(i).Name 'newa.Cells(i, 1).Value ->newa物件的Cells(i, 1)
Next i

複製代碼

For i = 1 To Sheets.Count
Sheets.Add(Type:=xlWorksheet).Cells(i, 1).Value = Sheets(i).Name
'新增工作表的Cells(i, 1).Value = Sheets(i).Name 'Sheets.Count 有多少就新增幾個工作表
Next i

複製代碼

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

5^#

發表於 2011-12-5 15:38 | 只看該作者

多謝大大分享，所以這樣的寫法我想差就差在工作表會因為迴圈每次增加而增加。

還有附帶一個問題：請問sheets跟worksheets的用法差在哪裡？
我知道workbooks是指該excel檔案的所有工作表，但是在VBA裡，為何有時用sheets，有時卻用worksheets？
例如GBKEE大大分享靠上的程式碼中，第一行跟第三行就用到不同的寫法？

TOP

GBKEE