Dim file As String=args(0)
Dim r As Row=args(1)
Dim Ifo As new FileInfo(file)
Dim App As New MSExcel.Application
App.DisplayAlerts = False
Dim Wb As MSExcel.WorkBook
Dim ok As Boolean = True
Dim psw() As String = {"123","456"}
Dim idx As Integer = 0
Do While ok AndAlso idx < 2
'' Output.Show(psw(idx))
try
wb= App.WorkBooks.Open(file,password:=psw(idx))
ok = False
Catch ex As Exception
idx += 1
app.quit
End try
Loop
If ok = False
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作表
ws.Activate
Dim Rg As MSExcel.Range = Ws.UsedRange
For j As Integer=0 To rg.count
If j<29 Then
Dim na As String
na=Ifo.Name.Replace(Ifo.Extension,"")
Dim i As Integer=0
For Each s As object In rg.shapes
s.CopyPicture(Appearance:=1, Format:=2)
ClipBoard.GetImage.save(r("保存路径") & "\" & na & "-" & i & ".jpg")
i=i+1
Next
Dim nr As Row=Tables("扫描记录").addnew
nr("文件名")=Ifo.name
nr("扫描时间")=Date.now
nr("图片数量")=i
nr.save
app.quit
End If
Next
End If
这个是异步函数
调用代码
Dim r As Row=Tables("excel图片提取").current
If r.Isnull("扫描路径") OrElse r.Isnull("保存路径") Then
MessageBox.show("请先设置扫描和保存路径!","提示")
Return
End If
If FileSys.DirectoryExists(r("扫描路径")) =False
MessageBox.show("扫描路径不存在!","提示")
Return
End If
If FileSys.DirectoryExists(r("保存路径")) =False
MessageBox.show("保存路径不存在!","提示")
Return
End If
For Each file As String In filesys .GetFiles(r("扫描路径"))
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Functions.AsyncExecute(Functions.Execute("scan",file,r))
End If
Next
加好友 
发短信
Post By：2019/6/17 20:37:00 [只看该作者]
