VBA

Question

我的 objective 是将 Excel table 转换为文本

我复制了 Excel 中的范围，然后是以下代码...

' =============== ' 转换成文字 ' ===============

Dim wApp As Word.Application
Dim wDoc As Word.Document

Set wApp = CreateObject("word.application")
wApp.Visible = True

Set wDoc = wApp.Documents.Add

With wDoc.Content
    .PasteExcelTable False, False, False
    .Tables(1).Select
    .Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
End With

最后一行代码失败，抛出运行时间错误 5907...此位置没有 table。

这是一个用 Word 本身编写的宏，在我手动粘贴到 Word 后运行s 没有错误，但我想使用上面的解决方案，因为我也在运行ning 代码这个 table 在 Excel 中，然后将其引入 Word 并尝试使用一个例程而不是两个例程。

With Selection
    .WholeStory
    .PasteExcelTable False, False, False
    .Tables(1).Range.Select
    .Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _
        NestedTables:=True
End With

感谢您的帮助...grinnZ

Answer 1

With wDoc.Content
    .PasteExcelTable False, False, False
    .Tables(1).Rows.ConvertToText _
                Separator:=wdSeparateByDefaultListSeparator, _
                NestedTables:=True
End With

VBA - 将 Excel Table 转换为 Word 中的文本

VBA - Convert Excel Table to Text in Word

excel

ms-word