excel - vba excel在另一个工作簿的单元格中增加数值？

Question

我正在尝试使用 vba 将另一个 Excel 工作簿上的单元格中的数字值更新 1。

因此，如果我在工作簿 2 中有值 466，那么当我运行我的代码表单工作簿 1 时，这会将 466 更新为 467，并且每次运行代码时，它都会增加 1。

工作簿通常会关闭，但我希望它能够工作，无论工作簿是打开还是关闭，如果这很重要。

我正在尝试使用以下代码，但它没有更新任何内容，也没有收到任何错误。

请有人可以告诉我我做错了什么。谢谢

Dim ws1112 As Worksheet, ws2221 As Worksheet
    Set ws1112 = Sheets("Statistics")
    Set ws2221 = Workbooks("\\UKSH000-File06\Purchasing\New_Supplier_Set_Ups_&_Audits\Workbook 2.xls").Sheets("Dashboard")
    ws2221.Range("C7").Value = ws2221.Range("C7").Value + 1

Answer 1

现在我要冒昧地说你的错误是“错误'9'，下标超出范围”但是这个错误被你的其余代码(例如On Error GoTo)以某种方式抑制或静默处理陈述)。

发生这种情况是因为您无法仅通过在 Workbooks("<name>") 语句中包含完整文件路径来打开工作簿。为此，您需要使用 Workbooks.Open("<FilePath>")。

例如:

Dim wb As Workbook
Dim ws1112 As Worksheet
Dim ws2221 As Worksheet

Set ws1112 = Sheets("Statistics")

Set wb = Workbooks.Open("\\UKSH000-File06\Purchasing\New_Supplier_Set_Ups_&_Audits\Workbook 2.xls")
Set ws2221 = wb.Sheets("Dashboard")

ws2221.Range("C7").Value = ws2221.Range("C7").Value + 1

'Optional if you want to close the workbook afterwards
wb.Close SaveChanges:=True