作者：绿色风
分类：
时间：2022-08-18
浏览：81
楼主
xmyjk |
Q:将文件名改为工作表1的A1单元格的文本
A:两种方式，一种用工作薄关闭事件，一种用程序批处理执行。
第一种：
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Dim f As String
- f = Dir(ThisWorkbook.Path & "\" & Sheet1.Range("a1") & ".xlsm")
- If Len(f) = 0 Then
- ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheet1.Range("a1") & ".xlsm"
- End If
- End Sub
第二种
- Option Explicit
- Sub 按钮1_单击()
- Dim myPath As String, myFile As String, Wb As Workbook, i As Integer
-
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
-
- myPath = ThisWorkbook.Path & "\"
-
- myFile = Dir(myPath & "*.xlsx")
- Do While myFile <> ""
- If myFile <> ThisWorkbook.Name Then
- Set Wb = Workbooks.Open(myPath & myFile)
- Wb.SaveAs ThisWorkbook.Path & "\改名后\" & Worksheets(1).[a1].Value & ".xlsx"
- Wb.Close True
- End If
- myFile = Dir '找寻下一个*.xls文件
- Loop
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
- MsgBox "改名完成，请查看！", 64, "提示"
- End Sub
 第一种.rar
第二种.rar
|
2楼
い卋玑┾宝珼 |
向妃妃学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一