又一个工作表复制问题！这是一个让我难过的简单问题。我希望单击命令按钮（在 action.xlsm 中）在单独的 excel 文件（inventory.xlsx）中重新填充一个范围内的值（“库存” - 2 列和可能 100 行 - 这是主库存记录） ，来自活动工作表（在 action.xlsm 中）中的命名范围（“newInventory” - 与其他命名范围相同的大小），该范围的原始“库存”值因缺货项目的值而减少。计算正常我只是无法更新主库存文件。我检查了一堆论坛并尝试了两种方法均无济于事。我努力了：
Private Sub CommandButton1_Click()
Dim InventoryFileName As String
InventoryFileName = "C:\Users\david\Documents\inventory.xlsx"
Workbooks(InventoryFileName).Worksheets("Sheet1").Range("stock") = ThisWorkbook.Worksheets("inventory").Range("newInventory").Value
Workbooks(InventoryFileName).Save
End Sub
在第 4 行引发“运行时错误'9'：下标超出范围”。我也尝试过：
Private Sub CommandButton1_Click()
Dim wbTarget As Workbook 'workbook where the data is to be pasted
Dim wsTarget As Worksheet
Dim wbThis As Workbook 'workbook from where the data is to copied
Dim wsThis As Worksheet
Dim strName As String 'name of the source sheet/ target workbook
'set to the current active workbook (the source book)
Set wbThis = ActiveWorkbook
Set wsThis = ActiveSheet
'get the active sheetname of the book
strName = wsThis.Name
'open a workbook that has same name as the sheet name
Set wbTarget = Workbooks.Open("C:\Users\david\Documents\" & strName & ".xlsx")
Set wsTarget = wbTarget.Worksheets("Sheet1")
'select cell A1 on the target book
wbTarget.wsTarget.Range("A1").Select
'clear existing values form target book
wbTarget.wsTarget.Range("A1:B10").ClearContents
'activate the source book
wbThis.Activate
'clear any thing on clipboard to maximize available memory
Application.CutCopyMode = False
'copy the range from source book
wbThis.wsThis.Range("A1:B10").Copy
'paste the data on the target book
wbTarget.wsTarget.Range("A1").PasteSpecial Paste:=xlPasteValues
'clear any thing on clipboard to maximize available memory
Application.CutCopyMode = False
'save the target book
wbTarget.Save
'close the workbook
wbTarget.Close
'activate the source book again
wbThis.Activate
'clear memory
Set wbTarget = Nothing
Set wbThis = Nothing
End Sub
这会在线引发“运行时错误'438'：对象不支持此属性或方法”wbTarget.wsTarget.Range("A1").Select
我做错了什么？有什么建议么？