请教 用单元格的值 修改为文件名 VBA

634074698

请教大神  用单元格的值  修改为文件名  这个简单的VBA怎么写

biaobro@sina

1. ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.Path + "" + CStr(Range("A1").Value) + ".xlsx"

复制代码

634074698

biaobro@sina 发表于 2021-11-10 00:08

非常感谢您！、你代码简洁得很,  现在有小问题，如果重复执行  会出现错误，请帮忙再完善一下，如果文件名与单元格内容一致则不修改。   感谢  感谢

biaobro@sina

634074698 发表于 2021-11-10 16:58
非常感谢您！、你代码简洁得很,  现在有小问题，如果重复执行  会出现错误，请帮忙再完善一下，如果文件 ...

1. Sub test()
   
2.     If Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) <> Range("A1").Value Then
   
3.         ThisWorkbook.SaveAs Filename:=Application.ThisWorkbook.Path + "" + CStr(Range("A1").Value) + ".xlsx"
   
4.     End If
   
5. End Sub
   

复制代码

biaobro@sina

引号之间有反斜线 不知为啥发不出来

biaobro@sina

634074698 发表于 2021-11-10 16:58
非常感谢您！、你代码简洁得很,  现在有小问题，如果重复执行  会出现错误，请帮忙再完善一下，如果文件 ...

用这个最新的吧

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim position As Integer
   
5.     position = WorksheetFunction.Find(".", VBA.StrReverse(ThisWorkbook.Name))
   
6.    
   
7.     Dim shortFileName As String
   
8.     shortFileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - position)
   
9.    
   
10.     Application.DisplayAlerts = False
    
11.     If shortFileName <> Range("A1").Value Then
    
12.         ThisWorkbook.SaveAs Filename:=Application.ThisWorkbook.Path + "" + CStr(Range("A1").Value) + ".xlsx"
    
13.     End If
    
14.     Application.DisplayAlerts = True
    
15. End Sub
    

复制代码