使用excel文件附件通过Outlook邮件更新和现有excel文件

Question

我目前在Outlook VBA中有下一个代码（在这里的主题之一中找到它）：

Public Sub FMK(Item As Outlook.MailItem)

Const PathName = "C:\Documents and Settings\Administrator\My Documents\files\Diary.xlsx"

Dim arrLines As Variant
Dim varLines As Variant
Dim RowNext As Long
Dim xlApp As Excel.Application
Dim ExcelWkBk As Excel.Workbook
Dim excWkb As Object
Dim excWks As Object
Dim temp As String

arrLines = Split(Item.Body, vbCrLf)

Set xlApp = Application.CreateObject("Excel.Application")
Set excWkb = xlApp.Workbooks.Open(PathName)
Set excWks = excWkb.ActiveSheet


RowNext = excWks.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
With excWks
excWks.Cells(RowNext, 1) = temp
End With
RowNext = RowNext + 1

excWkb.SaveAs PathName
excWkb.Close

End Sub

请帮帮我... 我需要使用Outlook中的文件更新计算机上存在的Excel文件... 始终使用相同的格式文件 我只是想通过电子邮件添加Excel文件的行以及PC上的文件 我的知识在VBA中非常有限

Answer 1

您可以从Excel自动化Outlook以提取所需的附加文件。 Attachment类提供SaveAs方法，该方法可用于将文件保存在磁盘上。然后，您可以使用Workbook类的Open方法打开刚刚保存的文件。

有关详细信息，请参阅How to automate Outlook from another program。