[發問] copy資料

PJChen

Dear,
這個程式第一個部份:copy 期初庫存 一直無法貼上,請幫忙看下...
1)copy 期初庫存 但一直無法貼上值
來源檔  庫存表
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
Set Rng = Range("S5:S" & xRow)
貼到目的檔 最新庫存-佳品
Workbooks("最新庫存-佳品.xlsx").Sheets("佳品").Activate
.Range("AM6:AM" & xRow).PasteSpecial xlPasteValues

2)copy 盤點資料 執行沒問題,但已經寫了Application.ScreenUpdating = False
為什麼執行時,螢幕會一直閃?

3) 另有一個程式Sub 出貨(),是在其他程式中呼叫,但只需在每週一、四執行,請問要如何寫這段程式Call Module211.出貨
Copy資料.rar (241.95 KB)

下載次數: 10

2020-3-1 17:40

PJChen

回復 2# jcchiang
Dear jcchiang,

有設路徑的"庫存表"是來源檔
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
Set Rng = Range("S5:S" & xRow)
"S5:S"有合併儲存格, 一直無法貼到目的檔 最新庫存-佳品

Workbooks("最新庫存-佳品.xlsx").Sheets("佳品")因為工作時,一直都是開啟的,所以沒有設置路徑,所以不需要Open(Path & ...
改為以下還是無法貼...
Workbooks.Open(Path & "最新庫存-佳品.xlsx").Sheets("佳品").Activate
Range("AM6:AM" & (xRow + 1)).PasteSpecial xlPasteValues '選擇性貼上值

其實我在使用copy的功能,一般都只貼上值,所以我最想要的寫法是xRng = Rng.Values
不過就是不能貼上,貌似不能這麼寫,我想知道還有什麼簡潔的寫法嗎?
目前我先暫用寫死的方法,不然無法運作,但又不喜歡這個死方法,儲存格一但變動,非得要修改,不然資料就錯了！
Workbooks("最新庫存-佳品.xlsx").Sheets("佳品").Range("AM6:AM20") = Rng.Value

With Workbooks.Open(Path & File)
           Set W = Workbooks.Open(Path & File)
               With W.Sheets(i)
                   W.Sheets(i).Activate
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
Set Rng = Range("S5:S" & xRow)
              End With
Workbooks("最新庫存-佳品.xlsx").Sheets("佳品").Activate
Set xRng = Range("AM6:AM" & xRow)
xRng = Rng.Values

PJChen

回復 4# jcchiang

感謝您詳細的解說,經過反覆練習,沒問題了,非常謝謝...

PJChen

請問  程式Sub 出貨(),是在其他程式中呼叫,但只需在每週一、四執行,不是這個時間,則不用呼叫Module211.出貨,我試著寫成以下,但一直無法執行！
        If Weekday(Day, 2) Or Weekday(Day, 5) Then
                Call Module211.出貨
            Else
            Exit For ' 中斷
        End If

PJChen

回復 7# 准提部林

准大好,
今天是週四,正好可以測試程式,結果我單獨執行 Module211.出貨 時沒問題,但以下程式,是否哪個語法還有錯誤?還是不能執行吔...
        If Weekday(Day, 2) = 1 Or Weekday(Day, 2) = 4 Then
                Call Module211.出貨
            Else
            Exit For
        End If