將數據複製到另一個工作簿

我試圖將一個數據範圍從一個工作簿複製到另一個工作簿。我想複製任何R ?????????在範圍A3：A999中，它的範圍從D3到D999的相應版本到從A2開始的另一個工作簿中的下一個可用空白單元爲R？ D2代表版本號。將數據複製到另一個工作簿

這是我迄今爲止所做的，但是我不斷收到錯誤，請幫助。

Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.Calculation = xlCalculationManual 

iForm = ("Workbook Location path") 

workbooks.Open(iForm).Worksheets("Scheduled Forms").Select 

Envrange = "A2:D999" 
RowNo = 3 

For Each C In workbooks("Daily Release Process.xlsm").Worksheets("Applications").Range(Envrange) 

    If C.Value Like "R?????????" Then 
    workbooks(iForm).Worksheet("Scheduled Forms").Cells(RowNo, 1).Value = C.Value 
    workbooks(iForm).Worksheet("Scheduled Forms").Cells(RowNo, 4).Value = C.Offset(0, 3).Value 
    RowNo = RowNo + 1 
    End If 
Next C 

ActiveWorkbook.Save 

Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic  
Application.EnableEvents = True 

End Sub

在此先感謝您。

來源

2016-06-28 Paul

你在哪裏得到的錯誤？另外，你應該把'Option Explicit'放在模塊的頂部，強制你聲明變量。 – Kyle

你的範圍不是那麼大。看看'AutoFilter'方法而不是循環。 –

Hi @Kyle我在'workbooks（iForm）.Worksheet（「Scheduled Forms」）中得到了返回碼「Error 9」。單元格（RowNo，1）.Value = C.Value' – Paul

所有你需要做的是改變iForm = ("Workbook Location path")到iForm = "Workbook Location path"

來源

2016-06-28 20:06:31 Kyle

將數據複製到另一個工作簿

回答

相關問題