vba excel количество приращений в ячейке на другой книге?

Question

Я пытаюсь использовать VBA, чтобы обновить значение числа в ячейке на другую книгу первенствовать на 1.

так, если у меня есть значение 466 в книге 2, затем, когда я запускаю мой код формы книги 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

Теперь я собираюсь выйти на конечности и сказать, что ваша ошибка «Error„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