2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
下面的示例代码用来保存当前工作簿：Sub SaveWB()ActiveWorkbook.Save End Sub 如果是首次保存工作簿，那么要使用 SaveAs 方法来指定工作簿的名称。其语法为：Workbook 对象.SaveAs(FileName,FileFormat,Password,WriteResPassword,R eadOnlyRecommended,CreateBackup,AccessMode,ConflictResolu tion,AddToMru,TextCodepage,...
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)参数Filename可选，表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中。使用SaveAs方法将工作簿另存为新文件后...
ActiveWorkbook.SaveAs FileName:=MyFileName, _FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End If End Sub 代码的解析说明：mynz过程过程使用GetSaveAsFilename方法显示标准的内置“另存为”对话框，获取备份文件的文件名和保存路径，新建工作簿保存备份数据。VBA过程代码163：利用VBA代码，定制...
dim savefilename as variant savefilename = application.getsaveasfilename( _ filefilter:=" 文本文件 (*.txt),*.txt") if savefilename <> false then msgbox " 保存文件为 : " & savefilename end if end sub 运行代码后的效...
可以使用Workbook对象的Save方法保存工作簿,其语法为: Workbook对象.Save 下面的示例代码用来保存当前工作簿: Sub SaveWB() ActiveWorkbook.Save End Sub 如果首次保存工作簿,则要使用SaveAs方法来指定工作簿的名称。其语法为: Workbook对象.SaveAs(FileName,FileFormat,Passwo...
.Show FilePath&FileName 'ORalternatively 'ActiveWorkbook.SaveAs FileName:=FilePath&FileName&"....
在核心代码的开始和最后添加取消警告和恢复警告。代码：Sub 打开文件() Application.DisplayAlerts = False Workbooks.Open Filename:="D:\test\test.xlsx" ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!" ActiveWorkbook.Save ActiveWorkbook.Close Application.DisplayAlerts = True End Sub ...
MyFilename = "AAA-" & Format(Date, "yymmdd") & ".xlsx"ThisWorkbook.SaveAs Filename:=MyFilename, FileFormat:=xlNormal ' 另存为 ' 恢复所有工作表的保护 For each sht in Thisworkbook.Worksheets sht.Protect Next sht Application.DisplayAlerts = True ' 允许显示提示窗口 End Su...