Tag: vbscript

QTP的行数和列数始终为1: 我正在写一段代码将数据从networking表复制到Excel表。我不明白为什么我得到行数和列数1.是否还有其他东西，我需要添加？这是我的代码： Dim XL Set XL=createobject("Excel.Application") XL.Workbooks.Open "D:\QTP\RailwaysforSurat.xlsx" Set nsheet = XL.Sheets.Item(1) row=Browser("title:=.*").Page("title:=.*").WebTable("html tag:=TABLE", "index:=0").GetROProperty("rows") msgbox row cols=Browser("title:=.*").Page("title:=.*").WebTable("html tag:=TABLE", "index:=1").GetROProperty("cols") msgbox cols 这不是完整的代码。我无法获得行和列数。请帮忙！ PS我正在使用这个网站进行testing“ http://www.indianrail.gov.in/cgi_bin/inet_trnnum_cgi.cgi ”

用另一列中的值填充列（如果语句）: 我目前有一个VBScript，接受一个Excel文档，并重新格式化到另一个更有组织的Excel文档。此代码还必须查看CATALOG列（“B1”）的值，并且只在值的起始处以“EDASM”，“EDBSM”等开头的情况下，才将其放在图纸列（“M1”移动时，必须删除“ED”前缀。例如，产品目录号EDF12-01114将导致图纸栏中没有任何内容，但是对于EDSM10265，我们需要将SM10265放置在图纸栏中（放下“ED”）。我到目前为止所做的是这个，甚至不完整： Set objRange = objWorkSheet.Range("M1").EntireColumn IF objWorkSheet.Range("B1").Row = "EDF*" THEN 'Maybe correct-ish? Not sure about syntax objRange = Null Else objRange = ("B1") 'Totally an awful guess, but I have no clue what to put here End If 我曾经见过类似的代码有循环和什么，但他们似乎没有做我需要做的事情。谢谢！编辑：目前的代码基于布鲁斯韦恩的。仍然不会返回任何Excel数据表的绘图列，但它看起来更接近… Sub move_Text() Dim lastRow, nextRow, cel , rng lastRow = […]

如何保存工作簿和处理TITUS（或任何其他文档分类加载项）popup？: 我在HP UFT 12中创build了一个脚本，该脚本对CSV文件执行网格数据validation，并将结果保存在带有两个工作表的Excel文件中。我正在使用Excel，因为它对用户来说更加清晰，因为它允许单元格格式化，比较数据更容易等等。我的代码在我的机器上工作，但我的客户端安装了TITUS文档分类插件，所以每次运行我的脚本时都会挂起，因为TITUSpopup消息要求用户在保存时对文档进行分类。该消息不会显示给用户，可能是因为objExcel.DisplayAlerts = False ，但脚本无法向前移动。以下是我的代码与此事有关的部分（由于保密原因，我省略了大部分代码）。 Dim objExcel : Set objExcel = CreateObject("Excel.Application") Dim objWorkbook : Set objWorkbook = objExcel.Workbooks.Add objExcel.Visible = False Dim wsGrid : Set wsGrid = objWorkbook.Worksheets(1) wsGrid.Name = "Grid Data" Dim wsExported : Set wsExported = objWorkbook.Worksheets.Add wsExported.Name = "Exported Data" ' Internal code to perform validation […]

vbscript在范围命令的xlsx文件中select不同的行: 我写了一个vbscript来将xlsx文件的特定范围保存到csv文件中。我想select不相邻的不同列。每列的范围应包含最后一行的内容（范围("F6").End(xlToRight) ）。我的代码： Public Sub xlsToCsv() Const WorkingDir = "C:\" Const xlCSV = 6 Dim fso, SaveName, myFile Dim objExcel, objWorkbook, sheet myFile = "test.xlsx" SaveName = "test.csv" With CreateObject("Scripting.FilesystemObject") If Not .FileExists(WorkingDir & myFile) Then MsgBox "File not found:" & vbCrLf & WorkingDir & myFile, vbInformation, "Script Cancelled" WScript.Quit End If End […]

debuggingMS Excelmacros: 我有一个从MS Excel 2007运行的VBScriptmacros。5分钟前，当我debugging时，如果代码对已打开的Excel文档进行了更改，则可以在执行代码时实时查看这些更改。突然之间，我没有看到Excel文件中的大部分更改。

Excel VBA比较两个工作表并输出特定的单元格到一个新的: 我一直在尝试几个小时来做到这一点，但不是在VBScript的Excel的专家，我想我需要一点帮助。这就是我所反对的。我有两个不同的工作表，其中包含一些相同的信息。 WORKSHEET1 Section/Dept City Building SVD User Name Item Short Code Item Full Name SUPPLIER_SC Serial Number IP Address Product Class Product Item Status BT&IT- WINNIPEG GATEWAY CO IT NETWORK CHK0639V1JX 07JACM401093000MSYS000 CISCO WNPIMBTVBBN-DSTH 1.2.3.4 SWITCHES 3550-24 ACTIVE WORKSHEET2 Hostname Management IP Device Type Vendor Model Software Version Serial Number Location In Site […]

使用VBscript或批处理脚本将xlsx文件转换为HTML: 我已经研究了几天，但我找不到任何解决这个问题，我有。我有一个.xlsx格式的Excel文件，通过一天更新。我需要做的是调用一个批处理，将其转换为.html。我将采取该HTML文件，并将其复制到一个文件夹，自动发布它在我公司的内部使用。如果有人可以帮助，将不胜感激。

打开Excel并通过文件密码: 我有一些我每晚刷新的excel文件我现在要密码保护他们，以便修改他们的任何数据，但是当脚本打开文件时，它会提示input密码，我如何通过脚本密码？ inheritance人我用什么（已经尝试过） Set fs = CreateObject("Scripting.FileSystemObject") Set rootFolder = fs.GetFolder(fs.GetParentFolderName(wscript.ScriptFullName)) Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True oExcel.DisplayAlerts = False oExcel.AskToUpdateLinks = False oExcel.AlertBeforeOverwriting = False For Each file in rootFolder.Files If inStr(file.type, "Script") = 0 Then Set oWorkbook = oExcel.Workbooks.Open(file.path) Dim WSH Set WSH = CreateObject("WScript.Shell") wsh.sleep(25000) Wsh.SendKeys "?" Wsh.SendKeys "{ENTER}" oWorkbook.RefreshAll […]

如何将大纲添加到VBScript中的文本框: 我正在使用VBScript在Excel中创build一个基本的文本框： Dim TextBox Set TextBox = objWorksheet.Shapes.AddTextBox(1, 57, 31.8, 228.24, 18.72) TextBox.TextFrame.Characters.Text = "Test" TextBox.TextFrame.Characters.Font.Bold = True TextBox.TextFrame.Characters.Font.Size = 14 TextBox.TextFrame.Characters.Font.Name = "Arial" TextBox.TextFrame.Characters.Font.Color = RGB(0, 0, 0) 我想为此文本框添加黑色轮廓。我如何做到这一点？我似乎无法find任何有关文本框属性的文档等。

将Excel文件转换为CSV – 不能压缩Excel提示窗口: 我有一个Gulp任务观看Excel文件并运行VBScript：口令代码： .pipe(shell([ 'XlsToCsv.vbs test test.xlsx test.csv' ])) VBScript代码： If WScript.Arguments.Count < 3 Then WScript.Echo "Please specify the sheet, the source, the destination files. Usage: ExcelToCsv <sheetName> <xls/xlsx source file> <csv destination file>" Wscript.Quit End If csv_format = 6 Set objFSO = CreateObject("Scripting.FileSystemObject") src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(1)) dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(2)) Dim oExcel Set oExcel = CreateObject("Excel.Application") […]