excel 2010自动创建文件名

发布网友发布时间：2022-05-01 18:57

共2个回答

热心网友时间：2022-06-21 13:36

excel 2010自动创建文件名你回答的真快。我想应该也是对的。我就是不知道如何使用那些码字

--------------------------------------------------------------------------------
点击工具-宏-VisualBasic编辑器，在VBAProject上右击，点击插入-模块，在打开的窗口中粘贴下面的语句，然后保存并关闭窗口，然后点击工具-宏-宏...，选择保存文件，再运行就可以了。如果想方便一点的话，就点宏窗口里的选项，为这个宏设置一个快捷键，OK！

Private Sub 保存文件()
Dim theText As String
theText = Range("A25").Text
'这是自动存
ActiveWorkbook.SaveAs Filename:="E:\我的文档\" + theText + ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'这是打开另存为对话框
Application.Dialogs(xlDialogSaveAs).Show theText

End Sub

热心网友时间：2022-06-21 13:37

B.文档1

启动Excel程序后,会自动创建文件名为“文档1”的Excel工作薄。