通过带有 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 文件... 总是相同的格式文件 除了您 PC 上文件中的内容外，我只想通过电子邮件添加来自 Excel 文件的行 我对 VBA 的了解非常有限

Answer 1

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

更多信息请参见How to automate Outlook from another program。