[發問] 物件省略的加&quot;.&quot;與不加問題

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

2^#

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

本帖最後由 thps51134 於 2011-12-7 12:44 編輯

回復 2# Hsieh

Dear Hsieh大, 老實說
　讓我相當困惑的其中一點就在於
　我的Code是寫在下面所寫的"Test.xls"的Module中

Ｗindows("Test.xls").Activate
Range(Cells(1, 1), Cells(4, 72)).Copy
With Workbooks.Add
With Sheets1
Cells(1, 1).Select '也改為' Cells(1,1).value= "OH" '過, 確認過動作真的是會作用在此'
ActiveSheet.Paste
End With
End With

複製代碼

這樣寫下來，竟然可以執行出
讓在test 中Copy的資料於新開的workbook中的Sheet1中貼上
(我的目的就是要copy舊檔案中的部分資料, paste於開的檔案中)

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

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

3^#

發表於 2011-12-7 15:21 | 顯示全部帖子

本帖最後由 thps51134 於 2011-12-7 15:23 編輯

回復 4# Hsieh

Sub NewMethod()
With Workbooks.Add
Set A = .Sheets(1).Cells(1, 1) '指定新活頁簿的第一個工作表A1
With Windows("test.xls").Sheets(1)
.Range(.Cells(1, 1), .Cells(4, 72)).Copy A '複製TEST.XLS的第一張工作表部分範圍到新活頁簿中
End With
End With
End Sub

複製代碼

偵錯時highlight說在第4行發現問題
還是說, 會不會我改到了什麼設定?
===
其實用.select是因為
使用錄製巨集時跑出的Code 為需要用到Activate的
改來改去就成了現在的樣子

真的很想省掉
Hsieh大給了我一個很棒的方向~

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

4^#

發表於 2011-12-14 15:16 | 顯示全部帖子

回復 6# GBKEE

抱歉未及時回覆
感謝兩位... (羞愧掩面)
　竟然眼花當錯誤

想繼續向諸位請教
1. 在第四行中的" .Range(.Cells(1, 1), .Cells(4, 72)).Copy A "的意義為何?

With Workbooks.Add
Set A = .Sheets(1).Cells(1, 1) '指定新活頁簿的第一個工作表A1
With Workbooks("Test.xls").Sheets(1)
.Range(.Cells(1, 1), .Cells(4, 72)).Copy A '複製TEST.XLS的第一張工作表部分範圍到新活頁簿中
End With
End With

複製代碼

若設" .Range(.Cells(1, 1), .Cells(4, 72))" 為B
B.Copy A 是 "copy B to A"嗎?

2. 若想另外在"Test.xls"作逐行判斷
令結果= true的該列copy to 新開的Workbook
自己腦袋裡的概念像這樣...

With Workbook("Test.xls").Sheets(1)
for i = 1 to RowEnd 'RowEnd為整個Sheet(1)中的最後一列'
If true then
Rows(i).copy
With 剛剛新開的workbook
'將於Workbook("Test.xls").Sheets(1)中copy的Row
'paste在 New Workbook的最後一列之後
End With
End if
Next i
End With

複製代碼

還是說建議強制先替使用者將新add 的 workbook存檔
再將它叫出來?

感謝!

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

5^#

發表於 2011-12-14 17:16 | 顯示全部帖子

回復 8# GBKEE

想用VBA做的事：
　　 1. 將Test.xls表格檔頭複製到新開的檔案
　　2. 回到舊檔案(Test.xls), 對Row data作逐列判斷
　　　　符合=> Copy該row到新檔案最後一列後
　　　　不符=> 到下一列判斷
這邊不知道該如何在兩個Workbook中切換才好
=====

其實很想知道如何做完所有copy動作再存檔
　可是不知道該如何寫For loop中的
with "剛剛新增的workbook"　
如果直接 with workbook.add怕一次loop就新開一個workbook ...@@

謝謝!

帖子: 23
主題: 4
精華: 0
積分: 39
點名: 0
作業系統: Win7
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-10-27
最後登錄: 2021-5-13

6^#

發表於 2011-12-20 10:42 | 顯示全部帖子

本帖最後由 thps51134 於 2011-12-20 10:47 編輯

回復 10# GBKEE

　想請教您code中兩列的意義
1. 第一列 "Option Explicit"

2. 第11列 "NewSh.Cells(Rows.Count, "A").End(xlUp).Offset(1)"
　　迴圈執行到這裡時，似乎最後一列的資訊無法更新？ (也怕我改寫錯了)
　　每次於新檔案貼上都是貼在同一列Q_Q

'自己改寫的迴圈內; 第九列執行有問題'
For i = 22 To RowEnd 'RowEnd為整個Sheet(1)中的最後一列'
If Cells(i, 3).Value = "BU5" Then
If NewSh.Cells(2, 1) = "" Then '因為Cells(1,1)都為空, 所以換了別格
Range(Cells(i, 1), Cells(i + 1, 2)).EntireRow.Copy NewSh.Rows(1)
'新檔案最後一列後
'因為前面沒看到newbo所以換成NewSh...不知道有沒有誤會'
Else
Range(Cells(i, 1), Cells(i + 1, 3)).EntireRow.Copy NewSh.Cells(Rows.count, "A").End(xlUp).Offset(1) '新檔案最後一列
End If
End If
Next i

複製代碼

謝謝!