使用VBA将扫描图片保存到指定位置

以下是示例代码，可以将扫描图片保存到指定位置：

Sub ScanAndSaveImage()
    Dim WIA_Dialog As Object
    Dim WIA_Image As Object
    Dim WIA_ImageFile As Object
    Dim ImageFilePath As String
    
    'Create a WIA dialog object
    Set WIA_Dialog = CreateObject("WIA.CommonDialog")
    
    'Show the scanner dialog to scan image
    Set WIA_Image = WIA_Dialog.ShowAcquireImage()
    
    'Create a WIA image file object to save the scanned image
    Set WIA_ImageFile = CreateObject("WIA.ImageFile")
    
    'Copy the scanned image to the WIA image file object
    WIA_ImageFile.LoadFile WIA_Image.FileData.BinaryData
    
    'Specify the file path to save the scanned image
    ImageFilePath = "C:\Users\UserName\Pictures\ScannedImage.jpg"
    
    'Save the scanned image to the specified file path
    WIA_ImageFile.SaveFile ImageFilePath
    
    'Release the objects
    Set WIA_ImageFile = Nothing
    Set WIA_Image = Nothing
    Set WIA_Dialog = Nothing
End Sub

在上面的代码中，我们创建了一个WIA对话框对象，然后使用它来显示扫描仪对话框以扫描图像。然后，我们创建了一个WIA图像文件对象，将扫描的图像复制到该对象中，然后指定文件路径以保存图像。最后，我们释放了所有对象。您可以根据需要更改文件路径和名称