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

最新推荐文章于 2025-04-10 22:54:39 发布

板混少年

最新推荐文章于 2025-04-10 22:54:39 发布

阅读量578

点赞数

分类专栏： office 文章标签： c# c++ c语言小程序

本文链接：https://blog.csdn.net/jeackem/article/details/124115081

版权

office 专栏收录该内容

2 篇文章

订阅专栏

在日常生活中，我们经常使用到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