Tag: wsh

WSH VBScript在已打开的Excel工作簿中切换workSHEET

是否有可能在WSH VBScript中的工作簿（名称引用）切换工作表，如果是这样，我将如何做？ 这将在已经打开Excel文件的脚本中使用。 我想访问一个名为“版本控制”的工作表。 以下是我如何打开工作簿： xlsFile = path & "\xml-sitemap.xls" Set objExcel = WScript.CreateObject("Excel.Application") objExcel.Workbooks.open(xlsFile)

JavaScript通过Cscript运行时错误 – 奇数预期';'

我正在编写一个基本的脚本，以便用Jscript将数据input到Excel中，而且我遇到了一个奇怪的错误（返回的错误并不奇怪，更多的是如何去解决它）。 我基本上是通过检查单元格（i，8）来查找我的工作表中最后一个空闲行。查看是否有两个连续的行是空的，打破循环以保留索引i，并执行数据input。 while(!data.AtEndOfStream)//Looping to find the data for the the five digit code found above. { var ts = new String(data.ReadLine()); var t=ts.split(","); if(search==t[0]) { var i; for(i=0; i<wks.UsedRange.Rows.Count; i++) { if(wks.Cells(i,11).Value==null) { WScript.StdOut.Writeline("empty at "+i); break; } } //Data entry statements etc… } } 当通过cmd编译时，我得到：Microsoft JScript运行时错误：预期';' 返回的行是在if（wks.Cells）行，字符4.我不知道这是不好的编程在我的部分，或者我完全忽略了…

JScript使用Excel TextToColumns

我一直在努力使这个小片段工作，但我一直在失败悲惨。 该脚本似乎工作正常，但事情是：我需要第三列（数字的一个）被转换为文本。 看看Excel中的帮助页面，似乎“数组（3,2）”部分将使它成为可能，但即使尝试了很多这个函数的数字和参数的组合，我不能使它的工作。 任何帮助这个问题？ var app = new ActiveXObject("Excel.Application"); app.Visible = true; var xls = app.Workbooks.Add(); app.Cells(1, 1).Value = "Olympia, WA, 123"; app.Cells(2, 1).Value = "Salem, OR, 3434"; app.Cells(3, 1).Value = "Boise, ID, 342"; app.Cells(4, 1).Value = "Sacramento, CA, 3"; app.Range("A1").EntireColumn.TextToColumns(app.Range("B1"),1,1,false,false,false,true,false,false,Array(3, 2));

SAP GUI脚本打开一个Excel窗口，我无法阻止它

我试图将SAP导出为一个Excel文件，然后由另一个带有VBA代码的Excel文件来自动化过滤和格式化数据。 我已经得到了所有的运行，除了一个（看似微不足道）的问题：SAP总是自动打开导出的Excel文件，似乎没有办法阻止这个，因为它似乎发生后，子程序导入Excel中的数据VBA已经完成（它们包含SAP GUI脚本）。 如果我只运行sap_export子例程，则会打开Excel文件，这很烦人。 但是，如果我运行调用sap_export() refresh_sap() ，然后执行refresh() ，它访问导出的Excel文件导入数据，我得到提示，告诉我该文件已被使用。 我发现没有办法阻止文件被SAP GUI脚本打开，因为它在运行时似乎不会发生。 我怀疑这就是为什么我找不到任何方式来使用Application.Wait或DoEvents来解决这个问题。 然而，我等了很久，它就无法工作，因为这个文件直到运行后才开放。 Sub refresh_sap() Call sap_export Call refresh End Sub Sub refresh() 'refreshes the connection to the SAP-exported Excel-file ActiveWorkbook.Connections("export").refresh 'deleting unwanted data ActiveWorkbook.Sheets("PC-Liste komplett").Select Selection.AutoFilter ActiveSheet.ListObjects("Tabelle_export").Range.AutoFilter Field:=4, Criteria1:="Löschen" Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.EntireRow.Delete ActiveSheet.ListObjects("Tabelle_export").Range.AutoFilter Field:=4 Range("A1").Select End Sub Sub sap_export() Dim set0 As […]

从Javascript代码隐藏Excel选项卡

我怎样才能以编程方式隐藏Excel选项卡？ ExcelSheetName.Visible = False似乎不工作。 我GOOGLE了很多，但还没有收到正确的解决scheme。 怎么做 ？

如何阅读WSH电子表格？

我需要使用WSH下的JScript从.xls文件读取一些单元格值。 有没有COM对象或任何我可以用来做到这一点？

如果没有安装AddIns，则无法访问Excel的Application.ComAddIns属性

为Windows脚本主机剪下的代码显示了当前安装到Excel中的COM-AddIns的数量。 除了没有安装COM-AddIns之外，它工作正常。 我相信它应该输出一个“0”，但是会引发一个exception（代码800A03EC）。 有谁知道为什么？ test.vbs Set objExcel = CreateObject("Excel.Application") WScript.Echo objExcel.ComAddIns.Count

Windows脚本宿主失败

我正尝试使用VBA从Excel运行R脚本。 理想情况下，我将使用一个.R（Rscript）名称来调用R并运行该进程，或者如果不行，则调用Rscript.exe并执行传递给它的文件名。 REXcel是不好的，因为它需要一个32位版本的Excel（我在1989年不工作） 我发现在（ http://shashiasrblog.blogspot.co.uk/2013/10/vba-front-end-for-r.html ）上似乎是一个完美的脚本，在适当的本地化看起来像这样： Sub RunRscript() Dim shell As Object Set shell = VBA.CreateObject("WScript.Shell") Dim waitTillComplete As Boolean: waitTillComplete = True Dim style As Integer: style = 1 Dim errorCode As Integer Dim path As String path = "C:\Users\Charles\SkyDrive\Documents\Development\G4H\Technical evaluation templates\Graphical analysis.R" errorCode = shell.Run(path, style, waitTillComplete) End Sub 这与消息失败 运行时错误“-2147024894（80070002）”：对象'IWshShell3'的方法'运行'失败。 哪一个告诉我什么都没有。 我试着用谷歌search错误消息，但什么都没有。 […]

无法使用VBA重新导入Windows产品密钥 – 自动化错误

以下代码将引发“自动化错误” Sub GetWindowsProductKey() Set WshShell = CreateObject("WScript.Shell") MsgBox WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId") End Sub 但是这个代码工作正常 Sub GetPath() Set WshShell = CreateObject("WScript.Shell") MsgBox WshShell.RegRead("HKEY_CURRENT_USER\Environment\Path") End Sub 显然，这与被保护的产品密钥或某事有关。 我正在写一个电子表格来收集来自远程办公室的审计数据，然后再有人假设我（真的很糟糕）黑客行为。 UPDATE 我现在正在尝试以下方法，但我得到一个types不匹配的错误，而不是第二个function（第一个仍然有效）… Sub GetPathUsingStdRegProv() Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Environment" strValueName = "Path" oReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue […]

excel：如何将.bas文件转换为VBScript / EXE或从命令行运行？

如何将.bas文件转换为VBScript / EXE或从命令行运行？ 我在Excel中通过MS Visual Basic for Aplications来编写脚本，但是我只能在Excel下运行这个脚本。 我怎样才能使这个脚本为.vbs或.exe？ ？