如何打开现有的Excel文件？_Excel_Vba_Outlook

如何打开现有的Excel文件？

excel vba outlook

如何打开现有的Excel文件？,excel,vba,outlook,Excel,Vba,Outlook,我正在将表从Outlook复制到Excel。我在网上找到的代码将表复制到一个新的Excel文件中我想将表复制到现有的Excel文件中下面是我在Outlook中运行的代码 Sub-dd（）作为邮件项目的Dim项目，x% 将r作为对象“作为单词范围” Dim doc作为对象“作为Word.Document” Dim xlApp作为对象，wkb作为对象设置xlApp=CreateObject（“Excel.Application”）设置wkb=xlApp.Workbooks.Add xlAp

我正在将表从Outlook复制到Excel。我在网上找到的代码将表复制到一个新的Excel文件中

我想将表复制到现有的Excel文件中

下面是我在Outlook中运行的代码

Sub-dd（）
作为邮件项目的Dim项目，x%
将r作为对象“作为单词范围”
Dim doc作为对象“作为Word.Document”
Dim xlApp作为对象，wkb作为对象
设置xlApp=CreateObject（“Excel.Application”）
设置wkb=xlApp.Workbooks.Add
xlApp.Visible=True
将工作作为对象
集合工作=wkb.工作表（1）
对于Application.ActiveExplorer.Selection中的每个项目
Set doc=item.GetInspector.WordEditor
对于x=1到doc.Tables.Count
集合r=单据表（x）
r、 射程，收到
浆糊
wks.Cells（wks.Rows.Count，1）。结束（3）。偏移（1）。选择
下一个
下一个
端接头

此处的代码

Set wkb = xlApp.Workbooks.Add

是打开新工作簿的内容。试着用类似的东西替换这一行

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

先生，非常感谢您的帮助。这很有效。谢谢你的反馈。请将此标记为您的答案。