调用系统保存对话框

朱付安

With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            strPath = .SelectedItems(1) & "\"    ' 添加反斜杠以表示文件夹路径
            subfold = InputBox("请输入存放图片文件夹名称", "图片")
            MkDir strPath & subfold    ' 创建文件夹
            strPath = strPath & subfold & "\"
        Else: Exit Sub
        End If

    End With，将这一段代码需改为调用系统的保存对话框，如图片所示的对话框，谢谢老师

xjl565135022

1. Sub test()
   
2. With Application.FileDialog(msoFileDialogSaveAs)
   
3.     .Title = "另存为"
   
4.     .AllowMultiSelect = True
   
5.     .InitialFileName = "C:\Users\Administrator\Desktop"
   
6.     If .Show = True Then
   
7.         Set gof = .SelectedItems
   
8.         .Execute
   
9.     Else: Exit Sub
   
10.     End If
    
11. End With
    
12. End Sub

复制代码

ykcbf1100

用这句就行：
strPath = Application.Dialogs(5).Show

朱付安

xjl565135022 发表于 2024-9-10 17:57

老师，我的意思是保存图片的路径对话框，而不是文件另存为路径，谢谢

朱付安

ykcbf1100 发表于 2024-9-10 18:36
用这句就行：
strPath = Application.Dialogs(5).Show

老师，是这样的系统对话框

ykcbf1100

朱付安 发表于 2024-9-10 19:40
老师，是这样的系统对话框

没错啊，就是这个对话框啊

朱付安

ykcbf1100 发表于 2024-9-10 19:41
没错啊，就是这个对话框啊

老师，不知道这局代码放在哪儿，还是另存为excel文件的对话框，不是图片存放位置的对话框

ykcbf1100

朱付安 发表于 2024-9-10 20:17
老师，不知道这局代码放在哪儿，还是另存为excel文件的对话框，不是图片存放位置的对话框

另存文件时调用这个对话框就行了。

zhumin1025

为什么不直接用代码指定保存位置呢

lss001

https://learn.microsoft.com/zh-cn/office/vba/api/Excel.Application.GetSaveAsFilename
可参考一下以上链接
Application.GetSaveAsFilename