Excel VBA宏扫描文档保存为JPEG格式的问题咨询

Private Sub CommandButton1_Click()
    Dim scansione As Object
    Dim Immagine As Object
    Dim savePath As String
    
    ' 初始化WIA扫描对象
    Set scansione = CreateObject("WIA.CommonDialog")
    Set Immagine = CreateObject("WIA.ImageFile")
    
    Do
        ' 调用扫描仪获取图像，如提示变量未定义可直接替换为对应数值：
        ' ScannerDeviceType→1，ColorIntent→1，MaximizeQuality→131072
        Set Immagine = scansione.ShowAcquireImage(ScannerDeviceType, ColorIntent, MaximizeQuality)
        
        ' 调用保存对话框获取用户选择的存储路径
        savePath = getSaveAsFilenameFromUser(, "jpg")
        
        ' 路径有效则保存图像
        If Len(savePath) > 0 Then
            Immagine.SaveFile savePath
        End If
        
    Loop Until MsgBox("是否执行新的扫描？ ", vbYesNo + vbQuestion, "文档扫描") = vbNo
End Sub

Public Function getSaveAsFilenameFromUser(Optional initialFileOrPath As String, Optional fileExtension As String = "jpg") As String
    Dim fileFilter As String
    Dim varResult As Variant
    
    ' 构造正确的文件过滤器，锁定对应格式
    fileFilter = fileExtension & " (*." & fileExtension & "),*." & fileExtension
    
    varResult = Application.GetSaveAsFilename(initialFileOrPath, fileFilter)
    
    If varResult <> False And LenB(varResult) > 0 Then
        getSaveAsFilenameFromUser = varResult
    End If
End Function

• 补充图像保存逻辑：原代码仅调用了保存对话框，没有承接返回的存储路径、也没有执行图像写入操作，调整后新增变量接收用户选择的路径，确认路径有效后直接调用WIA对象的SaveFile方法保存扫描得到的JPG图像
• 修正文件过滤器规则：原函数中构造的过滤器多了冗余双引号，导致格式规则不生效，调整后可正常锁定JPG格式，保存对话框不会默认显示xlsm扩展名
• 兼容异常操作场景：新增用户点击保存对话框「取消」按钮的判断，避免无效路径导致的运行报错

内容的提问来源于stack exchange，提问作者John22