Tag: vbscript
如何在导出为excel时显示前导零？
我正在通过更改内容types来创build一个Excel报告。 Response.ContentType = "application/vnd.ms-excel" 我有包含前导零的值。 问题是当输出为excel时，前导零缺失。 例如 000123 – > 123 我知道这可以通过Excel手动更改。 问题是我怎样才能完成这个编程？
为什么在VBScript中快速写入Excel单元格值，但在PowerShell中速度慢？
为什么在VBScript中将单元格值写入Excel比在PowerShell中快得多？ PowerShell不是新事物，而VBScript是不赞成的MS脚本语言？ VBScript的例子（保存到filename.vbs）这运行在一瞬间。 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = false Set objWorkbook = objExcel.Workbooks.Add() ' Edit: increased number of writes to 500 to make speed difference more noticeable For row = 1 To 500 'Edit: using .cells(row,1) instead of .cells(50,1) – this was a mistake objWorkbook.workSheets(1).cells(row,1).value = "test" Next objWorkbook.SaveAs(CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) & "\test.xlsx") objExcel.Quit msgbox "Done." […]
Excel 2003 XML格式不会在Excel 2010 x64中自动打开
我有一个VBScript，它以旧式Excel XML Spreadsheet 2003格式生成Excel文件。 它包含必要的处理指令（即<?mso-application progid="Excel.Sheet"?>标签），我的用户可以在Office 2003和Office 2007（XP上运行）中打开它们，方法是双击附件。 我们现在正在使用Office 2010 x64testingWindows 7 x64的桌面版本，这不再有效。 这些文件只是在IE中打开，并显示底层的XML。 如果文件保存到桌面，它仍然在图标上显示Excel徽标，但仍然会在IE中打开。 这是一个64位问题或Excel 2010问题？ 有没有修复？ 我想在持久化处理程序可能会丢失或错误注册在registry中，但我不知道要添加什么…
用正则expression式replace文本文件中的所有文本
我有一个带有以下文本的文本文件 161624.406：发送：[sometext1] 161624.437：发送：[sometext2] 161624.468：发送：[sometext3] 161624.499：发送：[sometext4] 161624.531：发送：[sometext5] 我只想保留该文件中的文本部分。 所需的输出是 sometext1 sometext2 sometext3 sometext4 sometext5 我在Excel-VBA中使用以下代码 Public Sub testa() a = "C:\Users\pankaj.jaju\Desktop\test.log" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTxtFile = objFSO.OpenTextFile(a, 1) strText = objTxtFile.ReadAll objTxtFile.Close Set objTxtFile = Nothing Set objRegEx = CreateObject("VBScript.RegExp") With objRegEx .Global = True .MultiLine = True .Pattern = "\[([^]]+)\]" Set objRegMC = […]
在Excel文件中写入macros的VBScript
当VBScript生成的时候，在Excel文件中写入一个macros是否可以在打开文件时运行？ 我有一个VBScript自动生成一个Excel文件和一些数据，它运行一次，并生成所有的数据/sorting等文件 我需要的是在程序运行时有一些通常用macros运行的交互性，有人查看数据，这里的问题是自动生成的文件，没有保存macros。 如果是的话这将如何实现，一个macros如何被运行在vbscript？
将每个工作表导出到单独的csv文件
我需要通过VBA / VBS脚本编程，将所有工作表（总共4个，我知道名称）导出到同一文件夹中名为csv文件的工作表，而不需要加载excel并手动运行macros。 理想情况下，脚本会将源文件path/ filename.xls和导出文件path作为命令行参数。 我已经阅读了许多Excel VBA脚本在Excel中做这个，我已经看到一些加载Excel工作簿导出第一张表。 但是，当我尝试混合两个我得到这个错误： （1,12）预期结束语句 Dim source As Workbook Set source = Application.Workbooks.Open(WScript.Arguments.Item(0), ReadOnly:=True) For Each sheet In source.Sheets .SaveAs Filename:= WScript.Arguments.Item(1) & Source.Sheets.Name, FileFormat:=xlCSV Next sheet wb.Close
如何在Excel中使用VBSCript查找合并单元格的开始和结束行？
从VBS脚本中，我必须使用以下格式的Excel书籍： | A | B | C | —-|———–|———–|———–| 1 | Header1 | Header2 | Header3 | —-|———–|———–|———–| 2 | FOLDER1 | | | —-|———–|———–|———–| 3 | Item1 | 111 | 222 | —-| |———–|———–| 4 | | Item1Info | Item1Data | —-| |———–|———–| .. | | … | … | —-| |———–|———–| 11 | […]
如何从VBScriptclosuresExcel文件而不被提示？
我有一个VB脚本，打开一个Excel文件，并运行一个macros。 我想closures这个excel文件（不保存任何更改），而不会提示保存。 我已将“已保存”属性设置为true。 但是我仍然提示保存窗口。 我读的地方，我必须禁用macros。 不知道如何？ 我想closuresexcel文件而不保存和不提示。 Dim objExcel, objWorkbook Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("c:\aaa\Test.xls") objExcel.Visible = True objExcel.Run "Extract_PLStatements" objworkbook.Saved = True objWorkbook.Close objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing WScript.Quit
打开一个Excel文件并保存为.XLS
我有下面的代码，我想打开我的文件保存为.xlsx，并简单地将它们保存为相同的文件名，但这次是一个.xls文件，以便它们与Excel 2003兼容 Set app = CreateObject("Excel.Application") Set fso = CreateObject("Scripting.FileSystemObject") For Each f In fso.GetFolder("Y:\Billing_Common\autoemail").Files If LCase(fso.GetExtensionName(f)) = "xlsx" Then Set wb = app.Workbooks.Open(f.Path) app.DisplayAlerts = False wb.SaveAs "*.xls*" wb.Close SaveChanges=True app.Close app.Quit End if Set f = Nothing Set fso = Nothing Next
使用VBScript以独占模式打开Excel文件
我有一个简单的问题，但我已经find了这个，找不到任何有用的主题.. 我正在打开一个Excel文件，并修改了一些东西的VBScript的工作..所以我使用这个代码： Set objXLApp = CreateObject("Excel.Application") objXLApp.Visible = False objXLApp.DisplayAlerts = False Set objXLWb = objXLApp.Workbooks.Open(FilePath) 现在，我想要做的是使用locking文件的方式打开Excel文件，并防止用户在脚本打开时打开它（直到closures）。 更新： 我认为这个问题与Excel实例有某种关系，我试图做到以下几点（当文件被脚本打开时）： 当我手动打开文件（当它被脚本打开时），它们都变成了一个单一的实例。 当我打开任何其他的Excel文件，他们都成为一个单一的实例！ 原始文件（由脚本打开）变得可见！ 现在这很奇怪，因为我使用的是CreateObject("Excel.Application")而不是GetObject(, "Excel.Application")
