如何使excel文件的名称与其中某一工作表的名称一致变动？ 10
展开全部
用宏可实现此愿望
工具->宏->Visual Basic 编辑器->”视图“菜单->工程资源管理器->双击在“工程VBAProject"工具栏里的"THISWORKBOOK",在右边的空白区输入以下代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets(1).Name & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
此宏在关闭文件以前另外保存文件名为SHEET1的工作表名，自动完成，无需执行.
特别注明:原文件未删除!
工具->宏->Visual Basic 编辑器->”视图“菜单->工程资源管理器->双击在“工程VBAProject"工具栏里的"THISWORKBOOK",在右边的空白区输入以下代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets(1).Name & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
此宏在关闭文件以前另外保存文件名为SHEET1的工作表名，自动完成，无需执行.
特别注明:原文件未删除!
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
EXCEL文件名和工作表名是独立没关联的~想一致变动不可能吧~
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
那得用Excel里的VBA来实现。
不过VBA不是短时间内能掌握的。
不过VBA不是短时间内能掌握的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
使用vba即可。每当打开工作簿、另存工作簿均检查工作表名称。不相等则赋值。
private sub workbook_beforesave(byval saveasui as boolean, cancel as boolean)
worksheets(1).name = thisworkbook.name
end sub
private sub workbook_open()
worksheets(1).name = thisworkbook.name
end sub
private sub workbook_beforesave(byval saveasui as boolean, cancel as boolean)
worksheets(1).name = thisworkbook.name
end sub
private sub workbook_open()
worksheets(1).name = thisworkbook.name
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
