Office Word 工作薄间工作表合并 VBA

最新推荐文章于 2025-10-12 12:40:13 发布

原创最新推荐文章于 2025-10-12 12:40:13 发布 · 625 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#c# #c++ #c语言 #小程序

office 专栏收录该内容

2 篇文章

订阅专栏

这篇博客介绍了如何利用Word的VBA编程来高效合并多个工作簿。通过提供的VBA代码，用户可以批量将多个Excel文件中的工作表移动到一个目标工作簿中，大大提高了文件合并的效率。

在日常生活中，我们经常使用到Word；有时我们要将Word合并，这时候一个个复制站点体贴显得不那么方便快捷，这时候就要使用到Word自带的开发者工具，进行VBA编程实现。具体实现代码如下：

Sub 工作薄间工作表合并()
Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub