Tag: 脚本

自动部署Excel AddIn: 我已经使用AddIn Express .Net组件创build了一个Excel加载项。业务用户使用构build团队提供的MSI来安装加载项。每次我们对产品进行任何更改并提供给业务用户时，他们都需要手动卸载现有的加载项，然后使用更新的MSI安装新的加载项。我想知道是否有什么办法可以使用一些Windowsbatch file，脚本或一个小的C＃控制台程序自动执行此过程。理想情况下，它应该卸载现有的加载项，等待卸载过程完成，然后安装新的AddIn。我试过使用Msiexec，scriptcs等多个选项，但目前为止没有任何成功。我的主要问题是一旦现有的加载项卸载过程开始，它立即开始安装新的Addin，然后popup标准的Windows消息，“安装已经在进行中…” 任何帮助，将不胜感激。谢谢

php exec vbs脚本只能在循环中第一次使用: 我正在脚本来将Excel文件转换成CSV文件。 Excel文件在下载文件夹中，并以“START”开始。只有第一个文件被转换，然后PHP仍在运行，但没有任何反应。从浏览器运行它，我可以看到这个圆圈永远在运行，就像加载网站一样。这是代码： $path = "C:\Users\\tom\Downloads\\"; foreach(glob($path."*.xls") as $excel_file) { $substr = substr($excel_file, 24, 5); if($substr = "START") { $csv_file = str_replace(".xls", ".csv", $excel_file); exec("$path"."csv.vbs $excel_file $csv_file"); } } 我使用的脚本是csv.vbs脚本，代码是： if WScript.Arguments.Count < 2 Then WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv" Wscript.Quit End If Dim […]

转置并将列数据复制到每一行: 我有以下结构设置数据 A ,B ,C ,D ,E 1 a1,b1,c1,d1,e1 2 a2,b2,c2,d2,e2 3 a3,b3,c3,d3,e3 4 a4,b4,c4,d4,e4 我想从列E下的每一行中取出x个字段，以便可以发生下列情况 A ,B ,C ,D ,E 1 a1,b1,c1,d1,e1,e2,e3 2 a2,b2,c2,d2,e2,e3,e4 3 a3,b3,c3,d3,e3,e4,etc 4 a4,b4,c4,d4,e4,etc,etc 我只是用等等，因为我想象我想要做的事情的想法将被通过。本质上来说，转置数据只允许我把某一列的区域变成一行，但是我不想在转置后删除数据，我只是想复制那些区域，但是我有一个大的电子表格（1500行目前正在增长）虽然我使用的是电子表格，但这只是一个CSV，我很喜欢使用各种脚本语言或者编程语言（如果需要的话），我已经考虑了C ++，python，javascript等，但是我不确定什么是simplist实现这一目标的途径。

无法在VbScript中复制Excel中的大量数据: 我正在VbScript中将单个工作簿中文件夹中所有文件的所有工作表复制并保存。我有4个工作簿。每个包含1个工作表。工作表1 = 1 MB，工作表2 = 19 MB，工作表3 = 48 MB，工作表4 = 3 MB 在工作表3以外的所有工作表中，工作表都被正确复制。在工作表3中，只有一半的数据被复制。它背后的问题是什么？请find下面的代码。感谢提前。 '~~> Change Paths as applicable Dim objExcel, objWorkbook, Temp, wbSrc Dim objShell, fol, strFileName, strDirectory, extension, Filename Dim objFSO, objFolder, objFile strFileName = "C:\Users\ARUN\Desktop\LD.xlsx" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = […]

从日志文件中提取时间戳并保存到新的Excel文件中: 我想从本地计算机中的文本格式的日志文件中获取时间戳记值，并使用VB脚本将这些值保存到Excel文件中。我的日志文件格式是： – 14.000.00.10 – – [07 / Mar / 2015：16：06：51 -0800]“GET /twiki/bin/rdiff/TWiki/NewUserTemplate?rev1=1.3&rev2=1.2 HTTP / 1.1”200 4523 14.000.00.10 – – [07 / Mar / 2015：16：10：02 -0800]“GET / mailman / listinfo / hsdivision HTTP / 1.1”200 6291 14.000.00.10 – [07 / Mar / 2015：16：11：58 -0800]“GET / twiki / bin / view / TWiki / WikiSyntax HTTP […]

excel vba – 检查单选button是否被选中？: 我试图检查这些简单的单选button组的价值，但我的语法是closures的，有谁知道该怎么改？注意：它们是Excel选项button不是ActiveX的，它们不在用户窗体上。 If Worksheets("Input").Shapes("Option Button 3").Select.Value = xlOn Then MsgBox "fir" ElseIf Worksheets("Input").Shapes("Option Button 4").Select.Value = xlOn Then MsgBox "sec" Else MsgBox "none" 'in case they were deleted off the sheet End If

处理电子邮件地址列表的最佳方法: 我有3个文本文件（A，B和C），每个文件有几百个电子邮件地址。我想将列表A和列表B合并成一个文件，忽略大小写和空格的区别。然后，我想删除列表C中新列表中的所有电子邮件，并再次忽略大小写和空格的差异。我select的编程语言通常是C ++，但似乎不太适合这个任务。有没有一种脚本语言可以在相对较less的几行中做到这一点（以及类似的任务）？还是有已经在那里的软件（免费或商业），让我这样做？例如，Excel中可以这样做吗？

VBA Excel文件系统对象: 我试图开发一些VBA，将检查文件上的date修改部分。我发现一些在线代码使用FileSystemObject来做到这一点，但我遇到了VBA中的“types不匹配”错误，并希望有人可以帮助.. Sub test() Dim FileLastModified As Variant MsgBox FileLastModified("S:\FILEPATHISHERE.xls") End Sub （自然，我已经进入了实际的文件path！） Function FileLastModified(strFullFileName As String) Dim fs As Object, f As Object, s As String Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(strFullFileName) s = UCase(strFullFileName) & vbCrLf s = s & "Last Modified: " & f.DateLastModified FileLastModified = s Set fs = […]

运行一个打开MessageBox的macros: 我通过Powershell在Excel文档中调用一个macros。为了调用这个macros，我必须运行一个命名的macros并在运行中调用它。但是，当调用macros并成功完成时，将出现一个MessageBox。据我所知，这个消息框是唯一的方法来确定过程是否已经成功完成。我无法控制删除消息框的能力。 powershell脚本必须等待macros完成。从文档：这个文档没有给出这种情况的select，或者看起来如此。我可以使用的替代选项：（但是我不知道如何达到消息框将被解雇的地步） Excel文档可以通过Powershell插入代码可以在文档内存空间内更改选项是否有可能asynchronous运行macros并检查macros的执行？

VBA：如何使VBE中的当前光标跳转到最后发生错误的那一行？: 这仍然与我以前的问题， VBA：如何显示一个错误消息就像标准的错误消息，它有一个“debugging”button？现在，我成功地使VBE中的当前光标跳转到VBE中的特定过程。我使用Application.Goto来实现这一点。但是，我真正想要的是使VBE中的当前光标跳转到最后发生错误的那一行。我怀疑Application.VBE对象中应该有一些有用的用途，但不知道哪一个？解决这个问题也意味着完全满足我以前的问题。任何提示，甚至肮脏的窍门？