Question

我的目标是将Excel表格转换为文本

我已经在Excel中复制了该范围，然后是以下代码......

＆＃39; =============== ＆＃39;转换成词＆＃39; ===============

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 ...此位置没有表。

这是一个用Word本身编写的宏，在我手动粘贴到Word后运行没有错误，但我想使用上面的解决方案，因为我还在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表转换为Word中的文本

1 个答案: