|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub ddd()
- xlapp.DisplayAlerts = False
- Dim fileName As String
- xlapp.Range("w2").Value = xlapp.Range("f2").Value '指定单元格里面有保存路径,例如F2里面写着D:\ABS.DPS
- xlapp.Range("w2").Replace(What:=".DPS", Replacement:="", LookAt:=2) '.DPS是后缀,查找进行删掉。
- fileName = xlapp.Range("w2").Value '这里就变成了D:\ABS
- xlapp.ActiveWorkbook.SaveAs(Filename:=fileName + ".xls", FileFormat:=-4183, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False)
- xlapp.DisplayAlerts = True '这里就是指定另存为名字路径为D:\ABS.XLS。
- End Sub
复制代码 |
|