2026-01-09 22:40
excel
vbSub MergeWorkbooks()Dim wb As WorkbookFor i = 1 To 3Set wb = Workbooks.Open(i + 1)wb.Close FalseNextEnd Sub
Dim wb As WorkbookFor i = 1 To 3Set wb = Workbooks.Open(i + 1)wb.Close FalseNextEnd Sub
这个代码会打开并关闭所有以序号+1命名的文件,并将它们合并到当前工作簿中。希望以上内容对您有所帮助!
关于我们|免责条款|版权声明|侵权举报|隐私政策|联系我们
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号