Получение информации из закрытой книги Excel с использованием VBA

Question

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

Я попробовал следующие коды ниже:
Я хочу найти сумму значений от Z8 до последней ячейки Z в столбце.

Range("D4").Formula = "Sum('I:\Outgoing\Money Outgoing\'!$Z8:$Z)"

Set wkbk = Workbooks.Open("I:\Outgoing\Money Outgoing.xlsx\")
Range("Z7").Select
ActiveCell.FormulaR1C1 = "=SUM(Z8:Z10000)"
Range("D4").Value = GetInfoFromClosedFile(a, f, d, "Z6")

Я не хочу открывать закрытую книгу. Файл excel - Money Outgoing.xlsx. В файле только 1 вкладка. Название вкладки Layout 1

Answer 1

Не открывая рабочую книгу, вы можете использовать приведенный ниже код. Измените это с вашими потребностями.

Sub ExecuteMacroForClosedWorkbook()

Dim FldrName As String
Dim FlName As String
Dim WrkshtName As String
Dim ExecuteStringVariable As String

ExecuteStringVariable = "'" & FldrName & "\" & "[" & FlName & "]" & WrkshtName & "'!R"

ActiveCell.value = ExecuteExcel4Macro(ExecuteStringVariable & 1 & "C1") 'Execute A1 Cell and Transfer Value to Your ActiveCell

End Sub