vba批量打开的excel文件,修改后批量方式保存无效

386026398

附件为一个带有vba的文件，用于批量打开存放在d：盘我的测试文件夹中的excel文件。打开后进行修改，用保存文件无法批量保存用vba所打开的excel文件。但不用vba打开而直接打开后修改，又能批量保存。求助修改一下代码，不知是打开vba的原因，还是saveall的原因

ykcbf1100

保存的话，一句代码的事

Application.Quit

ykcbf1100

工作簿保存并退出

1. Sub 一键退出并保存所有工作簿()      '优先使用，速度快
   
2.     Application.DisplayAlerts = False
   
3.     Application.Quit
   
4.     Application.DisplayAlerts = True
   
5. End Sub

复制代码

386026398

ykcbf1100 发表于 2024-9-17 10:01
工作簿保存并退出

谢谢回复，我的要求是批量保存通过打开文件所打开的文件。

ykcbf1100

386026398 发表于 2024-9-17 10:27
谢谢回复，我的要求是批量保存通过打开文件所打开的文件。

你怎么去判定哪些工作簿是你用代码打开的呢？

386026398

ykcbf1100 发表于 2024-9-17 10:42
你怎么去判定哪些工作簿是你用代码打开的呢？

用打开文件按钮打开的就是

ykcbf1100

386026398 发表于 2024-9-17 10:48
用打开文件按钮打开的就是

你那些工作簿有标记的？你还能认出来？

386026398

ykcbf1100 发表于 2024-9-17 10:51
你那些工作簿有标记的？你还能认出来？

打开文件是打开文件夹中所有excel文件，估计是通过打开文件的vba打开后，与打开的文件有某种联系，导致不能批量保存，独立点击保存是没问题的。只是我想用多个文件时批量保存方便些

lss001

386026398 发表于 2024-9-17 10:55
打开文件是打开文件夹中所有excel文件，估计是通过打开文件的vba打开后，与打开的文件有某种联系，导致不 ...

主要是打开文件方式问题
打开文件应使用当前Applicetion对象
而不是另外创建对象
另外创建的对象它属于另一进程
要关闭另一进程打开的文件虽然也可以
但需要枚举进程判断进程比较麻烦些？
建议还是使用当前工作薄对象Applicetion

需要修改两处
第一处为打开文件
Set xlBook = CreateObject("Excel.Application")
修改为
Set xlBook = Application

第二处为保存文件
xWb.Save
修改为/不关闭保存当时工作薄
If xWb.Name <> ThisWorkbook.Name Then
    xWb.Close Savechanges:=True '关闭保存
End If