返回列表 上一主題 發帖

[發問] copy資料

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 2020-3-2 15:12 | 顯示全部帖子
回復 1# PJChen

試試看
將Workbooks("最新庫存-佳品.xlsx").Sheets("佳品").Activate
.Range("AM6:AM" & xRow).PasteSpecial xlPasteValues
改為-->
Workbooks.Open(Path & "最新庫存-佳品.xlsx").Sheets("佳品").Activate
Range("AM6:AM" & (xRow + 1)).PasteSpecial xlPasteValues '選擇性貼上值

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2020-3-3 08:03 | 顯示全部帖子
回復 3# PJChen

1.因為不曉得Workbooks("最新庫存-佳品.xlsx").Sheets("佳品")是已經開啟,所以才會在程式中增加開啟
2.範例檔中Range("S5:S" & xRow)中xRow是19,但Workbooks("最新庫存-佳品.xlsx").Sheets("佳品")中Range("AM6:AM" & xRow)是AM6:AM19所以貼不上
所以Range("AM6:AM" & (xRow + 1)).才多加一去滿足資料欄位
因為Range("S5:S19")跟Range("AM6:AM19")差一列

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
3#
發表於 2020-3-27 08:26 | 顯示全部帖子
回復 8# PJChen

If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 4 Then
                 Call Module211.出貨
            Else
             Exit For
         End If

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題