2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
wbNewWorkbook.SaveAs Filename:=strName End Sub 示例代码3:替换现有的工作簿 在使用SaveAs方法指定文件名保存工作簿时,如果刚好存在同名的工作簿文件,那么Excel就会给用户一条警告消息,提示用户确定是否覆盖已存在的文件。 如果希望覆盖已存在的文件,而不想每次都弹出警告...
菜单栏下方会出现一个黄色提示框,如果想要编辑,需要点击提示框的【仍然编辑】才可以。 方法四:通过“VBA代码”设置 打开Excel表格后,通过键盘快捷键“Alt+F11”打开VBA编辑器,然后依次点击VB编辑器菜单选项卡【插入】→【模块】; 出现空白编辑器后,输入以下代码: Sub SaveWorkbookAsReadOnly() Dim wb As Workbook ...
ActiveWorkbook.SaveAs _ FileFormat:=xlOpenXMLWorkbookMacroEnabled End If 此外,Workbook对象还有一个HasVBProject属性可以判断是否将工作簿保存为启用宏的工作簿。 ReadOnly属性 其语法为: Workbook对象.ReadOnly 如果工作簿只读,则返回True。 下面的代码当活动工作簿...
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)参数Filename可选，表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中。使用SaveAs方法将工作簿另存为新文件后...
EXCEL workbook.saveas 函数详解 本问所有资料来自于 Excel2003 VBA帮助文件,张荣整理,适用于DELPHI,VB的高级语言操作Excel用 ExcelApplication.WorkBook.SaveAs(filename,FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodePage, TextVisual...
使用SaveAs 方法來變更這個屬性。範例本範例會在使用中活頁簿是儲存成建議唯讀模式時顯示訊息。VB 複製 If ActiveWorkbook.ReadOnlyRecommended = True Then MsgBox "This workbook is saved as read-only recommended" End If 支援和意見反應有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並...
使用SaveAs 方法更改此属性。 示例 本示例检查当前工作簿是否以建议只读方式保存,如果是,则显示一条消息。 VB 复制 If ActiveWorkbook.ReadOnlyRecommended = True Then MsgBox "This workbook is saved as read-only recommended" End If 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office ...
SetNewBook = Workbooks.AddDofName = Application.GetSaveAsFilenameLoopUntilfName <>FalseNewBook.SaveAs Filename:=fName 支援和意見反應 有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱Office VBA 支援與意見反應。
打开Excel表格后,通过键盘快捷键“Alt+F11”打开VBA编辑器,然后依次点击VB编辑器菜单选项卡【插入】→【模块】;出现空白编辑器后,输入以下代码: Sub SaveWorkbookAsReadOnly() Dim wb As WorkbookDim filePath As String 'Get the active workbookSet wb = ActiveWorkbook ...