物件省略的加"."與不加問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 物件省略的加"."與不加問題

返回列表下一主題上一主題發帖

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

超級版主 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兔年全勤獎章

1^# 跳轉到 »

發表於 2011-12-7 16:23 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-12-7 16:35 編輯

回復 5# thps51134
視窗 Windows沒有Sheets(1)有ActiveSheet
視窗 With Windows ("test.xls").Sheets(1) 改為 -> 活頁簿 With WorkBooks("test.xls").Sheets(1)

超級版主 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-14 16:19 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-12-14 16:48 編輯

回復 7# thps51134
.Range(.Cells(1, 1), .Cells(4, 72)).Copy A -> .Range(範圍)複製(全部)到變數物件A
若設" .Range(.Cells(1, 1), .Cells(4, 72))" 為B-> B.Copy A
還是說建議強制先替使用者將新add 的 workbook存檔,再將它叫出來?
應是做完COPY 再存檔

超級版主 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兔年全勤獎章

3^#

發表於 2011-12-15 17:51 | 顯示全部帖子

回復 9# thps51134

Option Explicit
Sub Ex()
Dim NewSh As Worksheet
With Workbook("Test.xls").Sheets(1)
Set NewSh = Workbooks.Add.Sheets(1) '變數指定為新增活頁簿的Sheets(1)
For i = 1 To RowEnd 'RowEnd為整個Sheet(1)中的最後一列'
If 條件 = True Then
If NewSh.Cells(1) = "" Then 'A1=""
Rows(i).Copy newbo.Rows(1) '新檔案最後一列後
Else
Rows(i).Copy NewSh.Cells(Rows.Count, "A").End(xlUp).Offset(1) '新檔案最後一列
End If
End If
Next
NewSh.Parent.SaveAs "資料夾\檔案名稱" '新增的活頁簿存檔
End With
End Sub

複製代碼

超級版主 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-20 14:44 | 顯示全部帖子

回復 11# thps51134
Option Explicit 陳述式在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
如圖

迴圈執行到這裡時，似乎最後一列的資訊無法更新？ (也怕我改寫錯了)
程式碼是沒問題的要看看檔案內容

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題