Tag: vbscript

testing一个SOAP WSDL在vb脚本中是启动还是closures？

我正在尝试validationWSDL是否在运行或不在VB脚本中。 如果我们在浏览器中打开WSDL，如果我们得到一个XML，那么WSDL就是UP和Running 如果它是空白/超时/不响应，那么WSDL是closures的 我想写一个VB脚本程序呢？ 我期待在VB脚本中这样的东西在QTP / UFT或EXCEL VBA MACRO中运行。 这个程序是用Java编写的 public static void main(String args[]) { String wsdl = "http://lxomavnat005.dev.qintra.com:10301/icl/services/ICL_2_0?wsdl"; URL url = null; URLConnection urlConnection = null; try { url = new URL(wsdl); urlConnection = url.openConnection(); if (urlConnection.getContent() != null) { System.out.println("GOOD URL"); } else { System.out.println("BAD URL"); } } catch (IOException ex) { […]

脚本根据时间/date打开特定的Excel文件/工作表

我们有一个包含每个月的子文件夹的文件夹，每个子文件夹包含每天的Excel文件。 每个Excel文件有三个表，早，晚和夜class。 我想要的是一个脚本，它可以检查现在是什么时间，并用正确的class次打开Excel文件。 Shift可以随时间指定。 对于夜class，我需要从前一天的Excel文件。 该脚本检查月份（打开文件夹2015年）后，检查月份（打开文件夹11（例如）），然后检查时间和date（如果7AM或更早，然后开夜class从昨天，如果7AM或更晚，然后打开今天的Excel如果晚上3点或更晚的时间开放，那么正确的一天）。 excel文件的命名是这样的： 25.11.2015.xlsx 。 文件夹的层次结构是： X：\ Shifts（这里是VBS脚本）\ 2015 \ 11 \ 25.11.2015.xlsx 这是我到目前为止的代码。 这是一个batch file，虽然我读了批处理不可能的地方，但我最好再问一遍。 我只是不知道应该在哪里添加代码来打开特定工作表。 *我没有自己编写所有的东西，我search了很多东西，并把特定的部分放在一起。 @echo off set day=-1 echo >"%temp%\%~n0.vbs" s=DateAdd("d",%day%,now) : d=weekday(s) echo>>"%temp%\%~n0.vbs" WScript.Echo year(s)^& right(100+month(s),2)^& right(100+day(s),2) for /f %%a in ('cscript /nologo "%temp%\%~n0.vbs"') do set "result=%%a" del "%temp%\%~n0.vbs" set "YYYY=%result:~0,4%" set "MM=%result:~4,2%" set "DD=%result:~6,2%" set […]

在Excel中一次应用多个自动筛选器

我写了一个简单的VBScript来根据input值过滤列值。 工作表中有多列，目前我只在一列上进行筛选。 但是我也必须在过滤标准中包含其他列。 假设，我必须在filter中包含第一列（Capitals）。 这个列的值是Y,X,Z 。 而除了Z ，我必须select所有的值。 因此，首先将在ProcessName上进行筛选，然后在Capitals列上进行筛选。之后，应该根据第三列进行筛选，其中值可以是New或Blanks。不确定如何在此处添加或调整。 我目前的代码： strPath="C:\Users\Desktop\Code.xlsx" Dim ProcessName ProcessName=Trim(InputBox("Process Name:")) Set objExcel= CreateObject("Excel.Application") objExcel.Visible= True objExcel.Workbooks.Open(strPath) With objExcel.Activeworkbook.Sheets("All") .Range("A1").AutoFilter 19,"="&ProcessName .Range("A1").AutoFilter 1,"<>"&"z" .Range("A1").AutoFilter 7,"="&"New" or "="&"(Blanks)" <– throwing error End With 请build议。

在Excel中包含PowerShell脚本

希望这里有人有一个build议。 我是一名networking工程师，多年来做了大量的编程/脚本编写，但我不是程序员。 我目前的问题是，我在Excel中创build了一个表单来收集特定types的安装数据。 我还使用input到表单中的数据来创build此安装中涉及的各种networking设备的configuration。 这些configuration是简单的文本，您可以复制和粘贴到telnet或ssh会话中。 我想有一种方法来单击我的Excel表单中的button，并将configuration自动推送到设备，所以用户不必复制并粘贴到设备。 工作表中已经包含了几个与VBScriptmacros绑定的button，它们执行各种function，包括将configuration转储到文件。 但是，由于VBScript缺less以本地方式打开会话（telnet）到设备以发送/接收文本，所以我正在寻找使用PowerShell脚本来推送configuration的方法。 我已经编写了一个PowerShell脚本，通过telnet将包含文本configuration的文件推送到设备，并捕获对日志文件的任何响应，但是我找不到像您一样的将Excel PowerShell脚本作为macros包含在Excel中的方法可以使用MS Visual Basic for Applications中的VBScript。 我试图避免必须创build一个.MSI或.zip包将包括Excel文件和PowerShell脚本（或编写的东西在编译.exe）。 最终目的是让一个工具可以让任何人在Windows上运行的Excel都可以填写，然后点击几个button，通过telnet将configuration（文本）发送到设备上，而无需在PC上安装任何东西。 这个工具对于其他networking工程师来说，对于脚本或者Excel来说，知道的远不及我（不是我所知道的）。

使用VBScript在Excel中删除空白行

我们从源码系统获得excel文件，我们需要将其转换为CSV。 有时，excel文件的最后一行，我们得到空行。 我们需要在将文件放置为CSV之前删除该行。 我使用下面的代码来做这个转换，但它不会一直工作。它仍然保留空行导致转换为CSV时出现问题，最后一行CSV只显示逗号。 以下是脚本 Dim StrSourcePathFile, StrDestPathFile set xlApp = CreateObject("excel.application") Set fso = CreateObject("Scripting.FileSystemObject") StrSourcePathFile = "c:\temp\var31.XLSX" StrDestPathFile = "c:\temp\var31.csv" xlApp.Workbooks.Open StrSourcePathFile xlApp.DisplayAlerts = False If xlApp.ActiveSheet.Rows(1).Text = "" Then xlApp.ActiveSheet.Rows(1).EntireRow.Delete End If If xlApp.ActiveSheet.Rows((xlApp.ActiveSheet.UsedRange.Rows.Count)).Text = "" Then xlApp.ActiveSheet.Rows((xlApp.ActiveSheet.UsedRange.Rows.Count)).EntireRow.Delete End If xlApp.ActiveWorkbook.SaveAs StrDestPathFile,6 xlApp.ActiveWorkbook.Saved = true xlapp.Quit() Set fso = Nothing Set xlApp […]

VBS pharser在Excel工作表中

你好我有一个1.000行的XLS表。 我必须随机提取30行，几乎一个城市，并复制在其他表。 我已经尝试过，但我疯了。 我开始写这个脚本，但我需要帮助。 Sub emp_to_dept() Dim wks As Worksheet Windows("Sales.xls").Activate For Each wks In ActiveWorkbook.Worksheets wks.Copy After:=Workbooks("SampleSheet.xls").Sheets(1) Next Set wks = Nothing End Sub 这里有一些行的样本。

如何使用vbscript以读/写模式打开qtp（.usr）文件

我能够打开使用VB脚本的QTP应用程序，但是当我尝试打开文件，它是在只读模式下打开，当我运行脚本，它不会从Excel表中读取数据，它应该已经读取。 Set oShell = CreateObject ("WScript.Shell") Dim qtpAppObj,qtpTest 'Create the QTP Application object Set qtpAppObj = CreateObject("QuickTest.Application") 'Open the test in read-only mode qtpAppObj.Open c:\test, True 'set run settings for the test Set qtpTest = qtpAppObj.Test 我正在使用上面的代码 所以我想读一个excel文件，我认为它不能被读取，因为只读模式。

QTP执行时无法读取外部excel文件，使用vb脚本

我想使用vb脚本在QTP上运行testing，我可以打开QTP并开始运行testing。 但是，testing无法访问从中获取数据所需的外部数据表。 这是代码： Set oShell = CreateObject ("WScript.Shell") Dim qtpAppObj,qtpTest 'Create the QTP Application object Set qtpAppObj = CreateObject("QuickTest.Application") 'Open the test in read-only mode qtpAppObj.Open c:\test, True 'set run settings for the test Set qtpTest = qtpAppObj.Test

将代码导入xlsb与xlsm

我有vbscript代码，将cls和bas文件导入到excel文件中，然后运行一个函数来刷新服务器中的数据。 book.VBProject.VBComponents.Import "D:\Energy\Data\ProfileAutomation.cls" XL.Application.Run("'" + wkname + "'!Run") 当Excel文件是一个xlsm它很好。 当Excel文件是一个xlsb它不起作用。 它试图运行代码时给我一个错误，错误是： Can't perform operation since the project is protected 现在，工作簿中已经存在一个受保护的插件，该插件在工作簿中已经存在，并且如果文件是xlsm或xlsb，则会受到保护。 有谁知道为什么这会在我注入的代码有所作为？

Excel VBScript在打印到另一个PDF之前closures打开的和之前打印的PDF

我正在用一块代码将工作表打印到一个PDF文件中。 打开这个PDF文件，如果我尝试从这个相同的Excel文件再次打印到PDF，我得到一个VB错误：“文档没有保存”和debugging带我在这里的代码： ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _ strFilename & " " & wedate_text & " Time", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True 这是代码： Sub PrintAnadarkoTicketsToPDF() Worksheets("Cover").Visible = False Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False Dim strFilename As String Dim rngRange As Range Dim wedate As Date Dim wedate_text As […]