Question

我真的很难让VBA宏工作。基本上，我有一个用于生成报告的电子表格。此报告采用Word模板的形式，因此代码查找＆lt;＆lt;标签＆gt;＆gt;并用电子表格中的特定值替换它。

除时间线部分外，这一切都正常。我想要做的是导出所有B4 [在此输入图像描述] [1]和C3以及直到行为空的点。我90％的路在那里，但是当桌子被粘贴到工作中时，就会离开页面。

有没有办法解决这个问题，以便粘贴的区域适合页面？这是我的代码：

' ** Populate Incident Timeline **
LastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Range("B4:C" & LastRow).Select
Selection.Copy
.Application.Selection.Find.Text = "<< timeline >>"
.Application.Selection.Find.Execute
.Application.Selection.PasteSpecial

以下是从宏中粘贴后的表格的示例屏幕截图： https://i.stack.imgur.com/ZPLEH.png

TIA

Answer 1

研究这几个小时，草皮法律我发布后立即找到答案。这为我解决了这个问题：

    '** Populate Incident Timeline **
LastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Range("B4:C" & LastRow).Select
Selection.Copy
.Application.Selection.Find.Text = "<< timeline >>"
.Application.Selection.Find.Execute
.Application.Selection.PasteExcelTable False, True, False

将表格内容从Excel导出到Word

1 个答案: