Tag: vbscript
使用范围而不是在单元格中获取正确的数据
我有几百个名字中有date的文件。 我需要从名称中提取date，并将其放在文件中每行的每个文件的第一列中。 示例 – datarequested20140209.csv 我已经从这个名字中拉出了这个date，并重新排列了这个date – 这是为了要求的。 我可以添加列并正确设置第一个单元格 – 标题。 如果有超过2行（标题加1），那么它工作正常，并把date在单元格中。 但是，如果只有标题行和单行，则会重复第二行中的标题。 我肯定错过了什么。 有什么build议么？ 这是我的代码到目前为止： 'Writing to the file Dim objXLApp, objXLWb, objXLWs 'Getting modified date Dim FSO, outFQN Dim sfile, strFolder, strSub1 Dim sYear, sMonth, sDay, sName, sDate Dim nPos, nPos2 strFolder = "C:\test1" set objFSO = CreateObject("Scripting.FileSystemObject") 'set objOutput = objFSO.OpenTextFile(strFolder & […]
使用VBScript将CSV文件中列的date格式更改为yyyy-MM-dd
我正在尝试将date从06-10-2009 00:00:00转换为yyyy-MM-dd。 我需要通过命令行通过Salesforce Apex Data Loader自动导入数据。 因此，手动打开Excel并格式化列是不成问题的。 我已经尝试过使用下面的VBScript – 但它没有帮助。 Option Explicit Dim objExcel1, objWB, strPathExcel1, objSheet1 Set objExcel1 = CreateObject("Excel.Application") strPathExcel1 = "C:\Path\To\File\Details.csv" Set objWB = objExcel1.Workbooks.Open(strPathExcel1) Set objSheet1 = objWB.Worksheets(1) objExcel1.Visible = True objSheet1.Columns("E:E").NumberFormat = "yyyy-MM-dd" objWB.Save objWB.Close objExcel1.Quit 我根本不知道任何VB脚本。 我需要做的就是将CSV列的date格式转换为yyyy-MM-dd。 另外我需要从Windowsbatch file调用脚本。 我会很感激，如果有人简要添加如何从batch file调用VBScript。
批量比较两个Excel表
如果在批处理过程中不匹配，我需要在两张表之间自动比较，然后发送电子邮件。 我的表看起来像这样： Head1 Head1 Head1 Column1 Column2 Column3 Head2 Head2 Head2 Head3 Head3 Head3 Head4 Head4 Head4 Info1 Info2 Info3 Info4 Row1 100 1,001 2,001 Info1 Info2 Info3 Info4 Row2 101 1,002 2,002 Info1 Info2 Info3 Info4 Row3 102 1,003 2,003 Info1 Info2 Info3 Info4 Row3 103 1,004 2,004 Info1 Info2 Info3 Info4 Row4 104 […]
从外部VBScript错误运行Excelmacros
我有两个文件。 example.wsf：一个自动化脚本 example.xlsm：带有Macro的Excel模板，Macro包含一个API调用外部服务器来检索数据。 我正在尝试调用example.wsf中的macros。 example.wsf代码： <package> <job id="example"> <script language="vbscript"> Set objApp = CreateObject("Excel.Application") Set objExcel = objApp.Workbooks.Open("example.xlsm",0,FALSE) objApp.Visible = True objApp.DisplayAlerts = False objApp.Run("RefreshData") msgbox "closing" objExcel.Close objApp.Quit Set objExcel = Nothing Set objApp = Nothing set objShell = Nothing </script> </job> </package> example.xlsm中的Excelmacros代码： Public Sub RefreshData() Dim API As New EXTERNAL_API Dim varResult […]
vbscript等到Excel保存之前closures
我有一个VBScript的HTML表单，这将保存在Excel表单中的数据。 我的问题是，30人将使用相同的HTML表单，所以会发生两个或更多的同时保存。 我的想法是，VBScript检查是否Excel文件是打开的，什么时候它closures，所以它可以再次打开并保存数据，但我不知道如何在代码中实现。 我对vbscript只有很less的了解，我的大部分代码都是通过研究来收集的。 这是我的代码到目前为止： <HTML> <HEAD><TITLE>Save in Excel</TITLE></HEAD> <SCRIPT Language = "VBScript"> Function Export(A,B,C,D,E) Set ExcelApp = CreateObject("Excel.application") ExcelApp.Visible = True strPathDoc = "G:\Test.xls" Set myExcelDoc = ExcelApp.Workbooks.Open(strPathDoc) ExcelApp.Visible = True myExcelDoc.Windows(1).Visible = True set XlSheet = myExcelDoc.Worksheets(1) currentRow = 2 currentVal = XlSheet.Range("A" & currentRow).value While currentVal <> "" currentRow = currentRow + […]
在IE11中的VBScript
我需要帮助。 基本上，代码所做的是从Excel文件中获取数据并通过htm显示。 发生这种事是因为我的公司不会为我提供一个数据库和服务器的PHP，这将使事情变得更容易。 问题是代码在WinXP上工作。 但是最近，我们转换到了Win7，突然间代码似乎不再工作。 我查看IE11 F12控制台时遇到的错误是answerkey（）未定义。 <HTML> <HEAD> <TITLE></TITLE> </HEAD> <BODY> <style type="text/css"> .main{WIDTH: 100%; background-color: #ACDFE7;font-family: arial; font-size: 10pt;} .main tr td{padding: 2pt 8pt;} .header{font-size: 2em; text-align: center; font-family: arial;} </style> <SCRIPT type="text/vbscript"> function answerkey() Dim strYourFile : strYourFile ="C:\Users\MilesF\Desktop\Q1\users\answers.xlsx" Dim strYourSheet : strYourSheet = "Sheet1" Dim objExcel : Set objExcel = CreateObject("Excel.Application") […]
自动执行批量复制/粘贴作业
我希望自动执行任务，因为编写脚本工作的速度更快，并且可以将未来实例的任务自动化。 我知道Java所以逻辑在这里（我认为：X），但是我对这个脚本的实际语法和实现感到非常失望。 我有一个称为： Pc_Profile.xls Pc_Profile（N）的.xls Pc_Profile（N + 1）的.xls 我有一个主文档叫： db.xls 每个PCconfiguration文件都有我需要粘贴到主文档中的内容。 这里是内容： A5：D5，A8：B8，A13：B13，A15：D17，A24：E26，A28：B30，A43：B43，A45：B45 上面列出的单元格的内容需要分成单独的表单，因此每个pc概要文档的内容都不会驻留在主文档（db.xls）中的同一张表单中。 每张纸需要重新命名为单元格A5的内容为每个相应的工作表。 这是我的伪代码： set screen updating to false set application updating to xlManual //1st run: open pc_profile.xls copy desired contents to clipboard open db.xls paste clipboard to A1 Copy A5 to clipboard Rename sheet > paste from clipboard //second run (loop) $number=1 […]
的CreateObject（“MSXML2.ServerXMLHTTP.6.0”）
我目前正在创buildCreateObject("MSXML2.ServerXMLHTTP.6.0")对象的一些问题。 Public Function PrepareHttpRequest(Request As RestRequest, TimeoutMS As Long, _ Optional UseAsync As Boolean = False) As Object Dim Http As Object **Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")** ' Set timeouts Http.setTimeouts TimeoutMS, TimeoutMS, TimeoutMS, TimeoutMS ' Add general headers to request Request.AddHeader "User-Agent", UserAgent Request.AddHeader "Content-Type", Request.ContentType If Request.IncludeContentLength Then Request.AddHeader "Content-Length", Request.ContentLength Else If Request.Headers.Exists("Content-Length") […]
如何将两个脚本合并成一个？
有了stackoverflow成员的真棒帮助，我有以下工作脚本。 ' 26Apr2015 jkw — q&d Option Explicit Dim g_fso: Set g_fso = CreateObject("Scripting.FileSystemObject") Dim tgt: tgt = BrowseFolder("M:\MarcStone Bids", False) ' If no folder selected, quit If tgt="" Then Wscript.Quit 1 End If Dim subdirs: subdirs = Array(_ "Anchors",_ "Color",_ "Engineering",_ "Mold Drawings",_ "Plans and Specs",_ "Plans and Specs\Plans",_ "Plans and Specs\Specs",_ "Shops",_ "Managing […]
将特定的xls列导出到txt
我喜欢从.xls文件导出2列到TXT。 让我们说列C和D.我也试图用_分隔他们。 .xls有几张纸，我只需要其中的一张。 你怎么理解呢？ 这是我迄今为止。 我从来没有做过这样的事情，我真的不知道我在做什么rihgt /错。 我得到各种各样的错误和难以想象的数字。 Dim saveDir set fso = CreateObject("Scripting.FileSystemObject") set shell = CreateObject("WScript.Shell") set objExcel = CreateObject("Excel.Application") Set objArgs = WScript.Arguments Set fso = CreateObject("Scripting.FileSystemObject") set top = fso.GetFolder(shell.CurrentDirectory) DirBase = top & "\" & "jipCOPY" & "\" Set objExcel = CreateObject("Excel.application") set objExcelBook = objExcel.Workbooks.Open(DirBase & "1.xls") objExcel.application.visible=false objExcel.application.displayalerts=false […]
