Office中国论坛/Access中国论坛

标题: 如何用VBA代码用画图批处理打开某文件夹所有图片并保存 [打印本页]

作者: ejun0111 时间: 2013-5-17 21:37
标题: 如何用VBA代码用画图批处理打开某文件夹所有图片并保存
本帖最后由 ejun0111 于 2013-5-17 21:41 编辑

想用windows 自带的画图“C:\WINDOWS\system32\mspaint.exe” 打开某文件夹里的所有jpg图片后，不作任何操作就再自动保存一下，用VBA如何写代码
请大侠指教

作者: todaynew 时间: 2013-5-17 21:54
本帖最后由 todaynew 于 2013-5-17 22:04 编辑

Function OpenFileList(FolderName As String,Pname as String)
  '功能:打开文件夹中的所以文件
  '参数：FolderName--源文件夹名,Pname -- 程序文件名
  Dim myFSO As New FileSystemObject
  Dim myFolder As Folder
  Dim myfile As File
  If myFSO.FolderExists(FolderName) = True Then
   Set myFolder = myFSO.GetFolder(FolderName)
   For Each myfile In myFolder.Files
      Call Shell(Pname & " " & myFile.FullName)
   Next myfile
  End If
End Function

作者: ejun0111 时间: 2013-5-18 10:00
本帖最后由 ejun0111 于 2013-5-18 10:19 编辑

谢谢版主模块在编译的时候错误 ,提示“ .FullName” 方法和数据成员未找到，已经引用了Windows Script Host Object Model 类模块了是否还需要引用其它？另外代码中打开后保存与关闭没动作{:soso_e113:}

作者: t小宝 时间: 2013-5-18 12:28
楼主想要干什么？

作者: ejun0111 时间: 2013-5-18 14:43
通过画图打开－保存后使文件夹内的图片容量变小

作者: todaynew 时间: 2013-5-18 14:56

ejun0111 发表于 2013-5-18 10:00
谢谢版主模块在编译的时候错误 ,提示“ .FullName” 方法和数据成员未找到，已经引用了Windows Script Ho ...

引用 Microsoft Scripting Runtime

作者: ejun0111 时间: 2013-5-18 16:38
引用都已用了还是不行，还是提示“ .FullName” 方法和数据成员未找到，在自动下拉里myFile.FullName 没有这属性

作者: p51219 时间: 2016-7-10 00:45
好好好呵呵呵呵呵

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)