excel - 从 Excel 中打开 Word 文档(Office 2016 和 MacOS)

Question

我正在尝试通过 Excel 中的 VBA 打开 Word 文档。我明白了

Run-time error 2146959355 (80080005)

我需要将数据从 Excel 复制到 Word，但系统无法打开 Word 文档。

我的部分代码:

Dim ws As Worksheet, msWord As Object

Set ws = ActiveSheet
Set msWord = CreateObject("Word.Application")

With msWord
    .Visible = True
    .Documents.Open ThisWorkbook.Path & "~/Desktop/! Rezervační smlouva - vzor.docx"
    .Activate

Answer 1

您可能会收到该错误，因为

MAC 不支持 /作为路径分隔符。它使用 :作为路径分隔符。

您的 MS Office 没有最新更新。

在 EXCEL 2011 中试用和测试

Sub Sample()
    Dim oWord As Object

    Set oWord = CreateObject("Word.Application")

    oWord.Visible = True

    Ret = Application.GetOpenFilename()

    oWord.documents.Open (Ret)
End Sub