Dim proc As new Process proc.File = ApplicationPath & "capture.exe" proc.WaitForClose = True proc.Start If ClipBoard.GetImage IsNot Nothing Then Dim r As Row = Tables("表A").current ClipBoard.GetImage.save(ProjectPath & "attachments/" & r("_Identify") & ".jpg") r("第三列") = r("_Identify") & ".jpg" msgbox("ok") End If