VBA - 運行時錯誤1004

Question

我試圖將特定工作表從已關閉的工作簿復制到我打開的工作簿的特定工作表，但我收到運行時錯誤。

代碼如下：

Option Explicit

Sub START()


'Defining variables as a worksheet or workbook
Dim shBrandPivot As Worksheet
Dim shCurrentWeek As Worksheet
Dim shPriorWeek As Worksheet
Dim shPivot As Worksheet
Dim wkb As Workbook
Dim wkbFrom As Workbook
Dim wks As Worksheet
Dim rng As Range
Dim path As String, FilePart As String
Dim TheFile
Dim loc As String

'Setting sheets to active or to recognize where to pull information
Set shBrandPivot = ActiveWorkbook.Sheets("Brand Pivot")
Set shCurrentWeek = ActiveWorkbook.Sheets("Current Week")
Set shPriorWeek = ActiveWorkbook.Sheets("Prior Week")
Set shPivot = ActiveWorkbook.Sheets("Pivot")
Set wkb = ThisWorkbook
loc = shPivot.Range("E11").Value
path = shPivot.Range("E12").Value
FilePart = Trim(shPivot.Range("E13").Value)
TheFile = Dir(path & "*" & FilePart & ".xls")
Set wkbFrom = Workbooks.Open(loc & path & TheFile)
Set wks = wkbFrom.Sheets("SUPPLIER_01_00028257_KIK CUSTOM")
Set rng = wks.Range("A2:N500")

'Copy and pastes This week number to last week number
shPivot.Range("E22:E23").Copy shPivot.Range("F22")

'Deletes necessary rows in PriorWeek tab
shPriorWeek.Range("A4:AC1000").Delete

'Copies necessary rows in CurrentWeek tab to PriorWeek tab
shCurrentWeek.Range("A4:AC1000").Copy shPriorWeek.Range("A4")

'Copies range from report generated to share drive and pastes into the current week tab of open order report
rng.Copy wkb.Sheets("Current Week").Range("A4")

'Closes the workbook in the shared drive
wkbFrom.Close False

End Sub

這是單元格E11，E12和E13中的內容：

E11 - S：_供應鏈\\每周Rpts供應商和采購商\\ E12 - 102112 E13 - SUPPLIER_01_00028257_KIK CUSTOM PRODUCTS GAINSVILLE_21-OCT-12.xls

我希望打開已關閉工作簿的目錄是S：_Supply Chain \\ Weekly Rpts供應商和買方\\ 102112 \\ Supplier_01_00028257_KIK CUSTOM PRODUCTS GAINSVILLE_21-OCT-12.xls

Answer 1

我建議你讀這個

原因

當您為工作簿提供已定義的名稱，然后多次復制工作表而不先保存並關閉工作簿時，可能會發生此問題

如何解決

若要解決此問題，請在復制過程中定期保存並關閉工作簿

有關聊天中討論的摘要

通過在Set wkbFrom = Workbooks.Open(loc & path & TheFile)上Set wkbFrom = Workbooks.Open(loc & path & TheFile)斷點

我們意識到文件名丟失導致Dir(path & "*" & FilePart & ".xls")返回沒有文件名的目錄。

因此解決方案是添加單元格E13中的文件名

Answer 2

我之前做過類似的事情可能對你有用。 我的只復制范圍，但您可以輕松地將范圍的大小更改為您要復制的工作表上的已用空間量。

Dim source as Workbook
Dim dest As Workbook
Dim originalWorkBook As Workbook
Set originalWorkBook = ThisWorkbook
Dim ws As Worksheet
Dim copyRange As String
Dim myDir As String
'myDir is found via a function I wrote. The user enters a name, month and year and
'from there it knows where the file will be

copyRange = "A1:D80"

source.Worksheets("The name of your worksheet here").Range(copyRange).Copy
originalWorkBook.Activate
originalWorkBook.Worksheets("Sheet1").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
source.Close False
Application.ScreenUpdating = True

希望這可以幫助。