Question

我正在尝试使用此代码和一个按钮在运行高山脉的Mac上的excel 2106中打开word文档：

Sub buttontest1()
Dim objdoc As Object

FileName = "/Volumes/256SSD/word docs/shortcut keys.docx"

With CreateObject("word.application")

Set objdoc = .documents.open(FileName)
End With

Set objdoc = Nothing
End Sub

我第一次运行此程序，效果很好。然后关闭单词doc（命令q）并再次运行，但出现运行时错误 -2146959355（80080005）并打开一个空白字词文档。我在运行时错误框中单击“结束”，退出单词doc并再次运行代码，单词doc正确打开。我退出文档，然后再次运行并得到运行时错误。

有人可以帮忙吗？

我尝试在文件路径中使用：而不是/，但给出了不同的错误

Answer 1

我可以复制行为。这似乎是Mac VBA的一个已知问题-一年多来，正如Microsoft确认的那样：

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_officeinsider-mso_mac-msoinsider_excel/trying-to-open-word-from-excel-vba-results-in-run/856d9a54-cc92-4ad8-9f49-cae38e7335b7

在Mac上使用Excel 2016按钮打开Word文档

1 个答案: