Tag: vbscript
Excel 2013 – 电力查询，后台刷新。 对象“WorkbookConnection”的方法“刷新”失败
我有一个工作簿，其中包含几个电力查询查询（数据源是SQL服务器），我试图通过任务调度程序在远程服务器上刷新。 我有一个VBScript打开一个Excel文件（刷新引擎），然后刷新包含查询（目标文件）的文件。 它的结构是这样的，每个月目标文件的名称已经更改，副本被存档为历史日志。 如果我login到远程服务器并手动踢VBscript代码运行没有错误。 但是，通过计划任务运行脚本时，刷新引擎将失败，错误logging为“-2147417848，方法'刷新'对象'WorkbookConnection'失败'。 我试过改变了很多连接设置没有任何成功。 任何人都可以帮忙吗？ 我用来刷新目标工作簿中的查询的代码如下所示。 （请注意各种variables已经被创build并绑定在前面的子目录中）。 On Error GoTo ErrLog For Each Cn In CurStr.Connections Log.WriteLine (Now() & " Looking at " & Cn.Name) bg = Cn.OLEDBConnection.BackgroundQuery Cn.OLEDBConnection.BackgroundQuery = False Log.WriteLine (Now() & " Refreshing " & Cn.Name) Cn.Refresh Cn.OLEDBConnection.BackgroundQuery = bg Next Log.WriteLine (Now() & " Refreshing model") CurStr.Model.Refresh On Error […]
Excelmacros通过命令行运行
我想通过bash命令运行excelmacros像：cscript fileformat.vbs我每次都得到错误。 “C：\ xampp \ htdocs \ magento \ readcsvitem \ fileformat.vbs（4，48）Microsoft VBScript编译错误：预期'）'” Sub siddfinal1() ' siddfinal1 Macro ' Read Item format With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\xampp\htdocs\magento\readcsvitem\csvitem\CmCSVExport-final.csv", _ Destination:=Range("$A$1")) .Name = "CmCSVExport-final" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True […]
Excel调用被callee错误拒绝
我写了一个基本上在后台打开Excel的vbs，运行一个macros，然后通过将单元格的值附加到它的名称来保存它。 但是，这只是有时会发生，我得到粗线上的错误… 线路：23 Char：3 错误：呼叫被被叫方拒绝。 代码：80010001 来源：（null） Option Explicit ExcelMacroExample Sub ExcelMacroExample() Dim objExcel Dim objApp Dim objWorkbook Dim objSheet Dim SI Dim scriptdir Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") scriptdir = oFSO.GetParentFolderName(WScript.ScriptFullName) Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(scriptdir & "\SCORECARD.xlsm") objExcel.Run "RefreshConns" WScript.Sleep 90000 Set objSheet = objWorkbook.Worksheets("Cover") SI = objSheet.Cells(4, 2).Value […]
从Excel读取并将数据写入HTA应用程序
这里是VBscript和HTA代码从Excel中读取数据，并使用HTA应用程序将该数据粘贴到可编辑的<div>并从<div>写入更新的数据，并在Excel中再次粘贴更新的数据。 <html> <head> <link href="D:\VBScriptTrainee\bootstrap-3.3.6-dist\css\bootstrap.min.css" rel="stylesheet"> <HTA:application ICON= "D:\VBScriptTrainee\Ampeross-Qetto-Icon-developer.ico" APPLICATIONNAME="myApp" BORDER="dialog" BORDERSTYLE="complex" CAPTION="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no" SYSMENU="yes" VERSION="2.0" WINDOWSTATE="maximize" SCROLLFLAT="yes" SYSMENU="no"/> <title>Read Excel</title> <style type="text/css"> body { background-color: #1abc9c; } p { font:bold 18px arial; } </style> <script language="vbscript"> Public mySpan,selectexcel,objExcel,objWorkbook,rowCount,colCount,rowData,textdata,sp,b,word On Error Resume Next Sub ReadExcelData() Set mySpan = document.getElementById("Span_id_two") mySpan.InnerText = " […]
从网站读取数据并将其粘贴到Excel中
这里是从网站读取文本数据的代码，并将该数据粘贴到Excel firstcolumn（逐行）（1,1），（2,1），（3,1）反之亦然。 Function Read(URL) Set ie = Wscript.CreateObject("InternetExplorer.Application") Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject") ie.Navigate(URL) ie.Visible = 1 Do While ie.Busy WScript.Sleep 100 Loop Data = ie.document.documentElement.innerText MsgBox(Data) sp = Split(Data, " ") b = UBound(sp) MsgBox(b) For i=0 To b MsgBox(sp(i)) Next selectexcel = InputBox("Enter the location", _ "Location of the excel file(Xls/xlsx)", _ "Enter your […]
当excel中有事件时，vbs不会执行所有的代码行
我有一个脚本新手问题。 试图寻找答案，但无法find答案。 或者不能够制定足够的search引擎来理解。 我试图从VBS控制excel。 我在VBS中写了简单的脚本。 当Excel中没有事件时，脚本可以正常运行。 但是当我多次按下鼠标button时，VBS脚本不会执行FOR循环中的所有代码行（只有第一个被执行，我的代码示例： dim FileName dim firstCell dim run_time dim xlBook dim i FileName = "excelTaimeris.xlsx" on error resume next Set objExcel = GetObject(, "Excel.Application") if err.number = 0 then Set xlBook = objExcel.Application.ActiveWorkBook if xlBook.Name = FileName then objExcel.DisplayAlerts = true objExcel.Visible =true Set firstCell = xlBook.ActiveSheet.range("A2") 'nustatom pirmaji laukeli […]
从Html表单写入Excel文档
在内部networking上，我想写一个内部Web表单上的同事填写到excel数据库。 经过一番研究后，我想出了下面的代码，但我似乎无法让它为我工作。 任何帮助，将不胜感激。 <script language="vbscript" type="text/vbscript"> Sub Divert () Dim iRow Set objExcel = CreateObject ("Excel. Application") Set objWorkbook = objExcel.Workbooks.Open ("G:\Bournemouth\CorporateShared\General Insurance\GI complaint Team\Baxter Diverted\diverted.xlsx") objExcel.Application.Visible = True ObjWorkbook.Windows (1).Visible = True Set XlSheet =objWorkbook.Sheets (1) XlSheet.Activate iRow = 1 With objExcel Do while .Cells (iRow, 1).value <> "" .Cells (iRow, 1).activate iRow = […]
findreplacevbscript excel特定的单元格
我想利用查找replaceExcel中的特定单元格上的Vbscript函数。 我目前的代码是： Dim myxl Dim mywb Dim mysh Set myxl = CreateObject("Excel.Application") myxl.Visible = True myxl.DisplayAlerts = False myxl.EnableEvents = False '20160412 BM open the workbook Set mywb = myxl.Workbooks.Open(mysrcfile, True, False, , , , , , , True) '20160523 BM open the sheet Set mysh = mywb.WorkSheets("General") 'The parameters in the following order for: […]
VBS脚本在按计划任务运行时与双击运行不同
我正在尝试运行下面的代码。 当我在Windows中双击.vbs脚本时，它确实需要做什么。 保存并closures所有打开的excel实例，然后打开2张指定的表格，在表格中运行macros并closures它们。 当计算机进入Wi-Fi范围时，我使用Excel中的Auto_Open同步这些表单。 当我尝试通过.bat或直接与Windows任务计划程序运行命令。 第一部分需要保存和closures所有打开的Excel表格似乎不起作用。 一切都像一个魅力。 有什么基本的任务调度我缺less？ 代码如下： On Error Resume Next While Err.Number = 0 Set objOffice = GetObject(,"Excel.Application") set objShell = CreateObject("Wscript.Shell") objOffice.DisplayAlerts = False For Each objWindow In objOffice.Windows objWindow.Activate Set WBook = objOffice.ActiveWorkbook WBook.Saved = True WBook.Save WBook.Close Next objOffice.DisplayAlerts = True objOffice.Quit Set objOffice = Nothing WScript.Sleep 2000 Wend […]
将文本字段parsing为excel列
我试图parsing超过20,000条logging的数据。 每个logging有4个字段，前面加上2个字母数字值。 下面是一个2logging的例子。 我目前有一个臃肿的解决scheme，使用基于这里的链接的Java： 使用JavaparsingHTML数据（DOMparsing） 。 但是我不打算使用这个解决scheme，因为这只是分离logging而已。 有没有一种解决scheme，使用VBS，Python或任何其他语言，可以根据我已经使用的逻辑分开领域？ 还是另一个逻辑的方法 100000000 SMP008483 |— Category Western |— Model Ford |— Asset Delivered Date ? |— Scheduled ? 100000001 SMP008484 |— Category Eastern |— Model Chevrolet |— Asset Delivered Date ? |— Scheduled ? 预期的输出在这里： ID1 ID2 Category Model Asset Delivered Date Scheduled 100000000 SMP008483 Western Ford ? […]
