Tag: vbscript

使用VBScript在Excel 2003中分隔txt文件：错误: 和我以前的问题一样，如果我使用的是VBA，这将非常简单，但是我必须使用VBScript。我知道如何使用OpenText像这样导入一个txt文件： objExcel.WorkBooks.OpenText "path\xxxx.txt" 这工作正常，但文本不会自动放入Excel中的列。所以我假设我需要指定分隔符。但是，在尝试向该方法添加选项时出现错误。例如 objExcel.WorkBooks.OpenText "path\xxxx.txt", , , xlDelimited, , , , , , True, " " 给我一个错误说：“工作簿类的OpenText方法失败”，代码800A03EC。我究竟做错了什么？我见过其他人使用这种方法。关于如何格式化我的txt文件没有什么特别的，它只是文本。谢谢你的帮助。

查找特定单元格后，select一个列作为范围: 我正在使用这些代码行来查找我的VBScript中的特定单元格。 Set FoundCell = objSheetSrc.Range("A1:BZ1").Find("Device", , , 1) For Each Cell In Range() If Cell.Value <> "*MSP430*" Then Cell.EntireRow.Delete End If Next 所以你可以看到Range（）是我遇到问题的地方。基本上，我需要弄清楚如何selectFoundCell所在的整个列作为范围，然后删除不包含“MSP430”的行。有任何想法吗？谢谢，安德鲁

VBS开始一个excel的实例，然后从中分离出来: 所以我基本上有一个VBS脚本，应该将数据asynchronous发布到Excel工作表。我目前通过在工作簿的path上使用GetObject这样做： Set xlBook = GetObject(strPath & "\Runner.xlsm") 这似乎工作正常，除了工作簿将closures在脚本的末尾，如果它以前没有打开（不需要，我有一个macros，将closures，并在必要时保存该书）。这与问题7708039类似，除了我想故意保持excel实例OPEN，而不是强迫它closures（与他的问题相反）。我认为它是closures的，因为引用该对象的variables在脚本结束时被销毁，但是我不知道如何释放这些句柄而不销毁它们（即设置为Nothing）。

写入已经有一个值，而不是写在先前的VAL的Excel单元格: 是否有可能写入一个已经有价值的Excel单元格，而不是删除已经存在的单元格？所以只需添加已经在那里。所以例如，我有一个每个循环获取差异值，我希望它都进入一个单元格。那可能吗？

从VBS打开或激活工作簿: 我正在写一个小的VBScript来执行以下操作：检查Excel是否打开; 如果没有打开它。如果Excel打开，请检查是否打开了特定的工作簿。如果工作簿已经打开，请将其激活; 如果没有，打开它。到目前为止，我已经能够编写下面的代码： ExcelFileName = "….xlsx" On Error Resume Next Set xl = GetObject(, "Excel.Application") IF Err Then If Err.Number = 429 Then WScript.Echo "Workbook not open (Excel is not running)." Else WScript.Echo Err.Description & " (0x" & Hex(Err.Number) & ")" End If WScript.Quit 1 End If On Error Goto 0 […]

读取已发布的二进制文件并写入新的二进制文件: 我正在创build一个网页，允许用户上传文件到服务器。我能够保存在服务器上的文件，但我注意到，办公室文件（如Word，Excel）已损坏，无法打开。我的用户界面非常简单 <form method="post" enctype="multipart/form-data" action="uploadFile.asp"> <p>Select a file:<br><input type=File size=30 name="file1"></p> <input type=submit value="Upload"> </form> 在我的uploadFile.asp ，我使用VBScript。我试图读取和写入二进制数据并直接写入。 Function SaveBinaryData(FileName, ByteArray) Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 'Create Stream object Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") 'Specify stream type – we want To save binary data. BinaryStream.Type = adTypeBinary 'Open the […]

Vbscript将excel列数据分成2列: 我试图在excel表中分割数据，就像这样： |aa 1| |bb 2| |cc 3| |ddd 4| 至 |aa| 1| |bb| 2| |cc| 3| |ddd| 4| 我观察到一个模式，就像在任何特定的单元格（或行）的字符之间有多个空格的情况下，它们应该被拆分成单独的列。

统计Excel工作簿中空白文本的行数: 我正在尝试编写一个VBScript，它打开一个Excel文件并计算列A中包含数据的所有行。计数部分就是我所苦苦挣扎的，因为VBA中使用的许多内置函数在VBScript中不起作用。

将VBA翻译成VBScript以删除列中的重复项: 我在Excel文件中有一个工作表，我想从列1中删除重复的值。在Excel中，当您单击“数据”下的“删除重复项”，然后在名为“代码”的列上删除重复项时，该function将成为第一列。我试图把这个翻译成VBScript，不确定如何。我试图录制一个macros来获取VBA语法，但是对于VBScript来说却不一样。我从logging的macros获得的代码是 Sub Macro1() Columns("A:A").Select ActiveSheet.Range("$A$1:$K$523").RemoveDuplicates Columns:=1, Header:=xlYes End Sub

如何将不带分隔符的.txt文件转换为Excel: 我在.txt文件中获得了多个不以任何分隔符分隔的数据。它只是一串string。到目前为止，我做到了这一点，但我现在卡住了。我应该在哪里继续下去？以下是我迄今为止所做的示例。有人可以澄清我下一步该做什么吗？ Dim objFSO Dim TextFile Dim TextRead Dim Line, Line1, Line2, Line3 Dim Count Const ForReading = 1 'Constant declared so that can be used throughout the script 'Name of the text file that need to be convert TextFile = "C:\Documents and Settings\Administrator\Desktop\2_12_2015\HRILOANDIC20170601.txt" 'Create File system object set objFSO = […]