VBA,调出文件选择窗口(Application.FileDialog)如何对其选择的文件修改文件名称并保存到指定路径(原路径文件并清除)
Sub a()
Dim file1 As String, file2 As String
file1 = "C:\Users\630gn\Desktop\新建文本文档.txt"
file2 = "C:\Users\630gn\Desktop\新建文件夹\文本文档.txt"
Name file1 As file2
End Sub
Dim file1 As String, file2 As String
file1 = "C:\Users\630gn\Desktop\新建文本文档.txt"
file2 = "C:\Users\630gn\Desktop\新建文件夹\文本文档.txt"
Name file1 As file2
End Sub
'不用那么复杂,就一句话 name [ ] as [ ],测试结果如下
追问等有时间试下,如果有问题再请教下您😂没问题的话到时候立即给好评
才注意你的答案😰
温馨提示:答案为网友推荐,仅供参考
第1个回答 2018-04-01
参考代码如下:
dim FileSelected as string
FileSelected = Application.GetSaveAsFilename(InitialFileName:="", _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="另存为pdf")
If Not FileSelected <> "False" Then
MsgBox "用户已取消保存"
Exit Sub
End If
If FileSelected <> "False" Then
icnt = icnt + 1
fname = FileSelected
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If追问
dim FileSelected as string
FileSelected = Application.GetSaveAsFilename(InitialFileName:="", _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="另存为pdf")
If Not FileSelected <> "False" Then
MsgBox "用户已取消保存"
Exit Sub
End If
If FileSelected <> "False" Then
icnt = icnt + 1
fname = FileSelected
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If追问
请问保存地址是怎么设置
追答输入的啊
追问之前没搞懂,貌似只是获得了路径
追答是的
你需要获取什么
本回答被提问者和网友采纳