☰

希望使用宏将 Word 中的制表符分隔行附加到 Excel 中

tag-icon • tag-icon microsoft-excel microsoft-word macros csv
希望使用宏将 Word 中的制表符分隔行附加到 Excel 中

或者别的....
Word 与我们的软件集成，因此它一次只能处理一个帐户。

每个制表符分隔的行的格式如下：姓名地址帐户# dob amtdue

对于每个帐户，我都必须加载一个新的 Word 文档，将值复制粘贴到现有的 Excel 表中，然后将其发送。

对我来说，这需要按很多按钮，有什么方法可以实现自动化吗？我制作了几个简单的宏，无需编写任何程序。

我有以下版本的...东西

Excel 2002 10.6501.6714 SP3
Word 2002 10.6612.6714 SP3
Visual Basic 编辑器：VB 6.3 v.9969 VBA Retail 6.4.8869
MS 脚本编辑器 10.0

答案1

您可以采用类似这样的方法。现在，它会将整个 Word 文档选入新工作簿。您可以将其粘贴到模板工作簿或现有工作表位置，并在 Word 中更具选择性，但您明白我的意思了。

Sub paste2excel()
Selection.WholeStory
Selection.Copy
Dim excelObj As Object
Set excelObj = CreateObject("excel.application")
excelObj.Visible = True
excelObj.Workbooks.Add
excelObj.Range("a1").Select
excelObj.ActiveSheet.Paste
End Sub

这在 Office 2003 中有效，并且可能在你的版本中也有效

相关内容