EXCEL VBA的SAVEAS问题

把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")

在进行VBACOPY工作簿操作后，如使用ActiveWorkbook.SaveAs进行另存为时，弹窗提示通常源于路径输入不正确或格式不符。正确的路径应当使用英文双引号包围，确保完整字符串的格式。以下是改进后的VBA代码示例：假设您希望将工作簿保存至特定路径，如下所示：Dim myPath As String myPath = "C:\Users\YourNam...

把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")

E盘 或 E:\收据\ 这个目录不存在 问题补充：“工具”菜单下“选项”对话框“安全性”选项卡中的“保存时从文件属性中删除个人信息”不要选中就没提示了

可以 1、取消自己判断是否重名的程序段，直接使用系统的功能。或者 2、先让程序dir一下，如果重名，弹出自己的处理对话框，通过 覆盖——先删除重名文件，再保存现文件，另存——调用系统另存对话框（好像是savecopyas那个），达到目的。

这个参数：ConflictResolution，是为了解决：SaveAs方法发生在共享的工作簿上时如果有冲突(要SaveAs的文档有被其他进程/用户独占打开)时处理的方式；而不是存在有同名文件时的处理方式。至于最后的那个False，参数名是Local，表示的是使用VBA的语言而不是控制面板指定的语言来保存，这个和楼主的问题无关 ...

代码中保存文件并命名的语句是：.saveas "c:\aaa.xlsx"要改变路径和名称修改引号里面的内容就可以了，例如：.saveas "c:\" & [e1] & "-" [e2] & ".xlsx"

Dim afnold As String ZCanSave = True afnold = Application.ActiveWorkbook.FullName If Application.Dialogs(xlDialogSaveAs).Show = False Then Application.ActiveWorkbook.SaveAs afnold Else ActiveWorkbook.Close savechanges = False End If ZCanSave = False ...

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\b.xls"

1. 可以通过VBA代码实现在Excel中弹出另存对话框。2. 原因是VBA中提供了SaveAs方法，可以用于保存文件，而另存对话框可以让用户选择保存的路径和文件名，提供更灵活的保存方式。3. 在VBA中，可以使用以下代码实现另存对话框： ``` Sub SaveAsDialog() Dim filePath As Variant filePath = ...