excel中点击按钮,可以另存为未启用宏的.xlsx格式文件
时间: 2024-04-10 12:33:30 浏览: 174
将图表另存为图片.xlsx源码EXCEL VBA宏编程xlsx实例代码下载
在 Excel 中,您可以通过以下步骤来实现点击按钮后另存为未启用宏的 .xlsx 格式文件:
1. 首先,打开您的 Excel 文件并点击开发工具栏上的 "插入" 按钮,选择 "按钮" 控件。
2. 在工作表上绘制一个按钮的矩形形状。
3. 在弹出的 "分配宏" 对话框中,点击 "新建" 按钮来创建一个新的宏。
4. 在弹出的 Visual Basic 编辑器中,输入以下代码:
```VBA
Sub SaveAsXLSX()
Dim filePath As String
Dim fileName As String
' 获取当前文件的路径和名称
filePath = ThisWorkbook.Path
fileName = ThisWorkbook.Name
' 移除文件扩展名
fileName = Left(fileName, Len(fileName) - 5)
' 以 .xlsx 格式另存为文件
ThisWorkbook.SaveAs filePath & "\" & fileName, xlOpenXMLWorkbook
' 关闭宏启用警告
Application.DisplayAlerts = False
' 关闭当前文件
ThisWorkbook.Close
' 重新打开刚保存的 .xlsx 文件
Workbooks.Open filePath & "\" & fileName & ".xlsx"
' 恢复宏启用警告
Application.DisplayAlerts = True
End Sub
```
5. 关闭 Visual Basic 编辑器。
6. 返回 Excel 工作表,在按钮上右键单击,并选择 "分配宏"。
7. 在弹出的 "分配宏" 对话框中,选择刚刚创建的宏 "SaveAsXLSX",然后点击 "确定"。
8. 点击该按钮,Excel 将会另存为未启用宏的 .xlsx 格式文件,并自动打开该文件。
请注意,这个宏会在当前文件所在的文件夹中创建一个新的 .xlsx 文件,并关闭当前文件,然后重新打开刚保存的 .xlsx 文件。
阅读全文