Tag: autoit

在VBA中使用AutoIt库: 我需要使用VBAmacros操作一些窗口，而且我看到AutoIt有很多function来帮助我。然后我想导入或使用我的VBAmacros内的AutoIt API（库）。可能吗？注意：在我的项目中，我不得不使用VBAmacros来解决其他问题。

仅将可见单元格从Excel保存到CSV: 简洁版本：你怎样才能把一个xls的可见单元格保存为一个csv？更长的版本：我有一个很大的.xls文件，其中包含一些分散在许多表单上的数据，我希望这些表单可以用于一些旧的UNIX Perl脚本。我有一些代码，将观察该文件的修改，重新生成CSV文件，并将其FTP到我需要他们的地方。问题是维护电子表格的人不想删除旧数据，他们只是将其隐藏起来以供后者参考。我保存到csv的方法（正如您在大多数情况下所期望的那样）最终会隐藏所有的数据，并且可以并排显示，无法知道最初隐藏的内容。我已经做了一些search在networking上，在这里，找不到任何方式（我能够遵循）做这个程序化。以下是我正在使用的一些代码。如果它可以作为答案的起点，这将使我更容易理解。在此先感谢，你们总是非常有帮助。下面是一些VBScript，我发现完成工作，但包括所有数据（不只是可见的数据）。 Dim oExcel Set oExcel = CreateObject("Excel.Application") Dim oBook Set oBook = oExcel.Workbooks.Open("S:\NetowrkFolder\SpreadSheet.xls") Dim oSheet If oBook.Sheets.count = 1 Then oBook.SaveAs "D:\output.csv", 6 else i=1 aname=split("D:\output.csv",".",-1,1) For Each oSheet In oBook.WorkSheets fname = aname(0) & "_sheet" & Cstr(i) oSheet.SaveAs fname, 6 i=i+1 Next […]

自动将最新的文件path复制到剪贴板: 您好我正在编写一个脚本，将打开Windows 10相机，然后显示最近的图像时，我closures相机，然后用GUI，询问用户，如果图像是好的。如果他们selectyes，那么脚本会将文件path复制到clibpoard，然后能够将该文件path放到Microsoft Excel单元格中。我一直在努力，直到我需要将文件path复制到剪贴板为止。这是我的代码到目前为止。 #include <MsgBoxConstants.au3> Camera() Func Camera() ;Execute Camera and wait for Camera to close local $iPID = ShellExecuteWait("explorer.exe", "shell:AppsFolder\Microsoft.WindowsCamera_8wekyb3d8bbwe!App") Sleep(3000) WinWaitClose("Camera") EndFunc ;——————————————————————————————– #Include <File.au3> #Include <Array.au3> #include <GUIConstantsEx.au3> #include <GUIComboBox.au3> #include <Process.au3> $dst = "C:\Users\Cex\Pictures\Camera Roll" ;specify folder $a_FileList = _FileListToArray2() _ArraySort($a_FileList, 1, 1, $a_FileList[0][0], 1) ShellExecute($a_FileList[1][0]) Func _FileListToArray2($s_Mask='*') […]

执行AutoIt并等待结束: 我需要实现一个在autoit之后运行的macros，并且完成运行该macros的其余部分的程序。我尝试了Shellandwait（），但是我没有find解释它的文档。我拿了其他代码的例子，并得到这个： Sub autoit（）昏暗的hProcess只要昏暗的xPath作为string 昏暗的wsh作为对象 Dim waitOnReturn As Boolean：waitOnReturn = True Dim windowStyle As Integer：windowStyle = 1 设置wsh = CreateObject（“WScript.Shell”） xPath = Application.ActiveWorkbook.Path hProcess = wsh.Run（“D：\ Program Files \ autoit-v3 \ install \ AutoIt3_x64.exe”_ ＆xPath＆“\ leandro.au3”，0，True） Workbooks.Open（xPath＆“\Mudança”＆Format（Date，“dd_mm_yyyy”）＆“.csv”）结束小组当我运行它返回我这个错误： “运行时错误'-2147024894（80070002）'：对象'IWshShell3'的方法'运行'失败” 我不知道这是什么意思，我不知道解决scheme。