Как открыть существующий файл Excel?

Question

Я копирую таблицу из Outlook в Excel.Код, который я нашел в сети, копирует таблицу в новый файл Excel.

Я хочу скопировать таблицу в существующий файл Excel.

Вот код, который я запускаю в Outlook.

Sub dd()
Dim item As MailItem, x%
Dim r As Object  'As Word.Range
Dim doc As Object 'As Word.Document
Dim xlApp As Object, wkb As Object
Set xlApp = CreateObject("Excel.Application")
Set wkb = xlApp.Workbooks.Add
xlApp.Visible = True

Dim wks As Object
Set wks = wkb.Sheets(1)

For Each item In Application.ActiveExplorer.Selection
    Set doc = item.GetInspector.WordEditor
    For x = 1 To doc.Tables.Count
        Set r = doc.Tables(x)
        r.Range.Copy
        wks.Paste
        wks.Cells(wks.Rows.Count, 1).End(3).Offset(1).Select
    Next
Next
End Sub

Answer 1

Код здесь

Set wkb = xlApp.Workbooks.Add

- это то, что открывает новую рабочую книгу.Попробуйте заменить эту строку чем-то вроде

Set wkb = xlApp.Workbooks.Open("C:\PathToExcel\File.xlsx")