Tag: vbscript

将VBS脚本转换为Excel VBA: 我目前有.vbs文件，我双击并运行将我的Excel文件转换为.txt文件格式为下面的输出。我想添加这个作为一个VBA代码片段，所以我可以在Excel内创build文件。我对.VBS没有经验，所以这已经certificate是困难的，我没有取得任何进展。有没有人有build议，或想帮助将其转换为VBA？我感谢任何帮助。谢谢， wscript.echo "Process Journal Entries for upload?" Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("S:\Accounting\JE60.xlsm") set myfileFSO=CreateObject("Scripting.FileSystemObject") set myts=myfileFSO.CreateTextFile("S:\Accounting\JE60.txt") set objWorksheet=objWorkbook.Sheets(1) introw=1 count=0 Do Until objWorksheet.Cells(intRow, 1).Value = "" count=count+1 introw=introw+1 loop myts.write "G," & objworksheet.cells(6,2).value & "," & objworksheet.cells(2,2).value & "," & objworksheet.cells(5,2).value & "," &objworksheet.cells(7,2).value & "," &objworksheet.cells(3,2).value […]

Application.WorksheetFunction.Find做什么？: 试图将一个VBScript转换为PHP。在脚本中有这一行： digit = Application.WorksheetFunction.Find(aChar, PERMITTED) aChar是字符，PERMITTED是string。它看起来像某种validation，但不是100％确定。数字是什么值？如果aChar不被允许会发生什么情况？文件不是很清楚。

尝试使用VBS运行Excel子版时未findmacros: 我已经在网上find了下面的代码来尝试一个Excelmacros的自动化。 ' Create a WshShell to get the current directory Dim WshShell Set WshShell = CreateObject("WScript.Shell") ' Create an Excel instance Dim myExcelWorker Set myExcelWorker = CreateObject("Excel.Application") Dim strSaveDefaultPath Dim strPath strSaveDefaultPath = myExcelWorker.DefaultFilePath strPath = WshShell.CurrentDirectory myExcelWorker.DefaultFilePath = strPath ' Open the Workbook specified on the command-line Dim oWorkBook Dim strWorkerWB strWorkerWB = strPath […]

HTA中的VBScript – 查找Excel列中的下一个打开的单元格: 我已经四处搜寻，无济于事。即时通讯在VB和VBS新，似乎不能得到这个工作。我正在寻找A中的下一个空单元格，并通过objexcelinput一个值。这全部包含在HTA中。 <SCRIPT Language="VBScript"> Sub TallySportsBottle() Dim oXLApp, wb, ws '~~> Define xlUp Const xlUp = -4162 Set objExcel = CreateObject("Excel.Application") objExcel.Application.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Gloria Vena\Desktop\new2\Excel\SportsBottleIssuesTally.xlsx") Set ws = objWorkbook.Worksheets(1) With ws lastRowIndex = .Cells(.Rows.Count, "A").End(xlUp).row End With objExcel.Selection.Value = "X" objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close objExcel.Application.Quit End Sub </SCRIPT>

通过VBS更改Excel创builddate: 我想通过VBS更改的创builddate显示在“ Related Dates下的“文件”选项卡（Excel 2010或更高版本）下。我的问题是如何更改Excel的内部创builddate，而不是文件的创builddate（又名File Properties ）。我可以用macros来改变Excel的内部创builddate： ThisWorkbook.BuiltinDocumentProperties("Creation Date") = Date 你如何通过VBS做到这一点？现在我有： Dim objFSO, objFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("C:\My\Path\Excel.xls") objFile.BuiltinDocumentProperties("Creation Date") = Date 但是这改变了文件的创builddate。

Excel VBA – 将正确的parameter passing给程序: 从昨天起我一直在这里，但似乎无法find我的路。在下面的过程中，我创build了obj。 dropdownRange作为parameter passing给底层的过程。但是，当我debug.print它们时，这两个参数在“立即窗口”中都输出为空。我没有得到一个错误在线 – >与curCell.Validation，但是，我得到下一行的错误 – > .Addtypes… 错误：1004：应用程序定义或对象定义的错误 Dim mainTab As Object 'Tab 'main' Dim tranTypeSize As Integer 'Length of entries for transaction type Dim dropdownRange As Range 'Dynamic range for dropdown Set mainTab = Sheets("Main") tranTypeSize = Sheets("Misc").Cells(Rows.Count, 1).End(xlUp).Row Set dropdownRange = Sheets("Misc").Range("A1:A" & tranTypeSize) ' <- problem Call createDropdownList(mainTab.Range("G8"), […]

从日志文件中提取时间戳并保存到新的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工作表中find一个string。 Excel单元格值使用公式计算。当我运行这个代码： Set firstExcel = CreateObject("Excel.application") firstExcel.Workbooks.Open "C:\Myroute\excelName.xls" Set oSht = firstExcel.Worksheets("Input Data") str="hello" Set aCell = oSht.Range("A1:E15").Find(str, , xlValues) MsgBox aCell.row 我有一个错误，说：错误：下标超出范围代码：800A0009

代码在.vbs文件中运行良好，但不在UFT脚本中运行 – 错误429: 我有一行代码： Dim objExcel Set objExcel = CreateObject("Excel.Application") Msgbox Err.number 当我在.vbs文件中运行这个代码时，它会被成功的执行，而不会引发任何错误（Err.number = 0）（我在桌面上创build了一个文本文件，把它的扩展名从txt改成了vbs，并双击vbs文件 – 正确运行没有错误 – 不知道这种方法默认使用32位或64位wscript.exe我需要了解这一点。有人请解释这一点，除了主要问题之外？）问题：当我把这个代码放在一个UFT脚本中时，它会抛出错误429 – ActiveX组件不能创build对象。它仍然卡在行Set objExcel = CreateObject("Excel.Application")一段时间，最后抛出错误429。附加信息： Windows 7（64位） UFT – 32位 – 版本：12.02 Excel – 32位（版本 – 14.0.7181.5000）我已经看了很多这个问题的地方，我认为这与一些在这里的答案中提到的一些架构不匹配（不知道如果我指着你们到正确的地方）。我真的很感激如果有人解释为什么代码运行良好的VBS，但不是在UFT脚本？我真的需要使它在UFT脚本中工作。感谢您的帮助。

在VBScript中创buildExcel文件生成一个损坏的文件: 我有一个VBScript中的以下代码： Set ExcelObject=CreateObject("Excel.Application") ExcelObject.visible=False ExcelObject.WorkBooks.Add ExcelObject.Sheets(1).Cells(1,1).value="1" ExcelObject.Sheets(1).Cells(1,2).value="2" ExcelObject.Sheets(1).Cells(1,3).value="3" ExcelObject.Sheets(1).Cells(1,4).value="4" ExcelObject.Sheets(1).Cells(2,1).value="5" ExcelObject.Sheets(1).Cells(2,2).value="6" ExcelObject.Sheets(1).Cells(2,3).value="7" ExcelObject.Sheets(1).Cells(2,4).value="Y" For x=0 to testData.Count-1 ExcelObject.Sheets(1).Cells(x+3,1).value=testData(x) ExcelObject.Sheets(1).Cells(x+3,2).value="Constant" ExcelObject.Sheets(1).Cells(x+3,4).value="Y" Next ExcelObject.Activeworkbook.Sheets(1).Name = "Name" ExcelObject.Activeworkbook.SaveAs(path+"Data.xls") ExcelObject.Quit() Set ExcelObject=Nothing 虽然，一旦我用Excel打开这个电子表格，我得到以下错误： “Data.xls”的文件格式和扩展名不匹配。该文件可能是correupted或不安全的 … 另外，我无法从UFT HP导入此数据表。我相信这可能是因为如何生成Excel文件的这个问题。我能做些什么来解决它？