Tag: vbscript

打开excel文件工作正常，但如果我通过Windows任务计划程序安排脚本，它不起作用: 我遇到了与我的VBScript问题。我有下面的代码工作正常，当我直接运行它（通过双击它，它触发wscript ）。 FilePath有一些1000 .xls文件。 FilePath = "c:\test" Set SourceFolder = objFSO.GetFolder(FilePath+"\") For Each file In SourceFolder.Files If Right(LCase(file.Name), 4)=".xls" Then OutFile = OutFilePath + "\" + Left(file.Name, Len(file.Name)-4) + ".csv" Set ExcelObject = oExcel.Workbooks.Open(file.Path) If Err.Number <> 0 Then objLogFile.WriteLine "Exception occured(1): " + Err.Decscription RowCount = oExcel.ActiveWorkbook.Sheets(1).UsedRange.Rows.Count ColumnCount = oExcel.ActiveWorkbook.Sheets(1).UsedRange.Columns.Count For i=1 To […]

单元格边框不复制与粘贴特殊: 总新手到VB脚本。我的问题是2部分：我需要从一个Excel表格复制一个450列标题到另一个Excel表格与数据。标题具有表格边框并被格式化。我在网上查了一些例子，把这个脚本复制一下。但是，单元格边框不被复制。只是文本 – 所以标题格式不结转。下面是我的代码。这不是粘贴边界的正确方法吗？一旦复制了边框，如果我将这个表单复制到另一个表单中，单元格边框和格式化是否也会被转移？ Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook1= objExcel.Workbooks.Open("header.xlsx") Set wksSource = objWorkbook1.Worksheets("Sheet1") Set objWorkbook2= objExcel.Workbooks.Open("IS3.xlsx") Set wksDest = objWorkbook2.Worksheets("TD") Set objRange = objWorkbook1.Worksheets("Sheet1").Range("A1:IZ3").Copy wksDest.Range("A1:IZ3").PasteSpecial objRange objWorkbook1.Save objWorkbook1.Close objWorkbook2.Save objWorkbook2.Close objExcel.Quit Set objExcel = Nothing Set wksSource = Nothing Set wksDest = Nothing

VBA使用VBScript将行范围复制到另一个工作簿: 我试图将一个工作簿中的单个行的几个段复制到另一个工作簿，这是我的脚本，不知道，但我得到一个（运行时错误'91'：对象variables或块variables未设置）。 Sub copyToXml() Set xlBook1 = Workbooks.Open("C:\Users\roperalta\Desktop\Book1.xlsx", 0, True) Set xlBook2 = Workbooks.Open("C:\Users\roperalta\Desktop\PBJ_Excel_to_XML_Template_v_2_00_3.xlsx", 0, True) xlBook2.Sheets("Header").Range("B3:D3").Value = xlBook1.Sheets("Sheet0 (2)").Range("B2:D2") xlBook1.Close End Sub 错误来自第5行。 xlBook2.Sheets("Header").Range("B3:D3").Value = xlBook1.Sheets("Sheet0 (2)").Range("B2:D2") 这是脚本： Dim xlBook, xlApp Set xlApp = createObject("Excel.Application") xlApp.Visible = True xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.Open("C:\Users\roperalta\Desktop\PBJ_Excel_to_XML_Template_v_2_00_3.xlsx", 0, False) Set xlmodule = xlBook.VBProject.VBComponents.Add(1) strCode = _ "Sub […]

移动鼠标 – VBScript和Excelmacros: find一个使用Excel在VBScript中移动鼠标的脚本。这几乎是我正在寻找我的项目，但是我需要改变一点点，以使我能够在代码中input坐标，以专门将鼠标移动到这些坐标; 该代码当前使用当前的鼠标位置，并从该位置移动 – 我需要能够将鼠标移动到一个绝对的位置，而不是一个相对的。这是VBS代码： Option Explicit Dim Excel, GetMessagePos, x, y, Count, Position Set Excel = WScript.CreateObject("Excel.Application") GetMessagePos = Excel.ExecuteExcel4Macro( _ "CALL(""user32"",""GetMessagePos"",""J"")") x = CLng("&H" & Right(Hex(GetMessagePos), 4)) y = CLng("&H" & Left(Hex(GetMessagePos), (Len(Hex(GetMessagePos)) – 4))) Position = "+ 180" Position = "- 180" Excel.ExecuteExcel4Macro ( _ "CALL(""user32"",""SetCursorPos"",""JJJ""," & x & " " […]

将Excel VBA代码注入并执行到从外部源接收的电子表格中: 我想以编程方式（在VBScript或命令行或其他）注入VBA代码到我从FTP站点获得的工作簿，然后在工作簿上执行macros。全自动化。没有用户交互。我有一个文本文件中定义的VBA代码。

工作表上的VBScript，Excel 8.0密码: 我没有太多的运气Googlesearch。基本上每个创build一个Excel电子表格（基于模板），需要密码保护。可以这样做吗？ '______________________CreateExcel()____________________________________ Function CreateExcel() SELECT DATA FROM SQL TABLE If objStructure.BOF = False And objStructure.EOF = False Then Do While objStructure.EOF = False Call CreateActualExcel() objRsExcel.Fields("Field") = objStructure.Fields("Field") objStructure.MoveNext Loop End If End Function '………………….End CreateExcel()……………………………. '______________________CreateActualExcel()________________________________ Sub CreateActualExcel() Dim objSFSO Dim strCon, strSQL strFile = " Staffing_List_" & Clng(Timer()) & ".xls" Set […]

Excel VBScript插入列并填充: 我试图通过脚本插入到Excel电子表格的列。我发现下面的代码应该允许我插入一个列，但是我将如何使用fill> down或fill> series命令来填充该列中的数据，就像在Excel应用程序中那样？ Const xlToRight = -4161 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWB = objExcel.Workbooks.Open("C:\Temp\Scripts\Test2.xls") Set objSheet = objwb.Sheets("Overall") objSheet.Columns("D:D").Insert xlToRight objWB.Close True objExcel.Quit 编辑这是结束了工作。 Const xlToRight = -4161 const xlColumns = &H2 const xlLinear = -4132 const xlDay = 1 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWB […]

如何找出使用VBScript共享Excel文件的实例数量: 我试图找出，使用VBScript，在不同的系统上运行共享的Excel文件的实例的数量。假设文件是'test.xls'，它被放置在共享驱动器上，不同的人正在访问它。我想从VBscript中找出这个文件打开的位置。要么如果任何人都可以build议一个方法来实现在Excel文件上使用VBScript的信号量概念将是非常有帮助的。也就是说，一次只能有一个人使用Excel文件。

无法在VbScript中复制Excel中的大量数据: 我正在VbScript中将单个工作簿中文件夹中所有文件的所有工作表复制并保存。我有4个工作簿。每个包含1个工作表。工作表1 = 1 MB，工作表2 = 19 MB，工作表3 = 48 MB，工作表4 = 3 MB 在工作表3以外的所有工作表中，工作表都被正确复制。在工作表3中，只有一半的数据被复制。它背后的问题是什么？请find下面的代码。感谢提前。 '~~> Change Paths as applicable Dim objExcel, objWorkbook, Temp, wbSrc Dim objShell, fol, strFileName, strDirectory, extension, Filename Dim objFSO, objFolder, objFile strFileName = "C:\Users\ARUN\Desktop\LD.xlsx" Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = […]

如何使用vbs在excel中添加一个下拉列表: 嗨，我想添加一个使用VBS的Excel下拉，我得到了下面的错误。 vbs(18, 15) Microsoft VBScript compilation error: Syntax error 我甚至logging了一个marco，并使用从那里的代码仍然没有工作。第18行和第15列是添加关键字的行。 Range("A1").Select With Selection.Validation .Delete .Add (Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$Q$9:$Q$11") .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With 问题9：Q11有一个样本数据集我做错了什么？