Tag: vbscript
VBS：将SQL拉到Excel文件
我试图创build一个简单的VBS脚本，将允许SQL查询创build一个Excel文件。 我所有的代码在下面的工作，除了把所有3列我select到单元格A1。 我怎样才能得到它与标题创build一个标准的Excel输出？ set objExcel = CreateObject("Excel.Application") objExcel.Application.DisplayAlerts = False set objWorkbook=objExcel.workbooks.add() Dim Connection Dim Recordset Dim SQL SQL = "SELECT PersonID, FirstName, LastName FROM [TestDB].[dbo].[Persons]" Set Connection = CreateObject("ADODB.Connection") Set Recordset = CreateObject("ADODB.Recordset") Connection.Open = "Provider=SQLOLEDB; Data Source=compname\SQL; Initial Catalog=DB; UID=usera; Integrated Security=SSPI" Recordset.Open SQL, Connection dim resultString, oRS Set oRS = Connection.Execute(SQL) resultString […]
错误800A0400为ActiveSheet.Range（“$ A $ 1：$ CV $ 749”）。RemoveDuplicates Columns：= 2，Header：= xlNo
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set Excel2= objExcel.Workbooks.Open("D:\DBG\Temp.xlsm") Excel2.Worksheets("output").Activate ActiveSheet.Range("$A$1:$CV$749").RemoveDuplicates Columns:=2, Header:=xlNo 如果我尝试执行上面的代码，我得到错误。提前感谢 Line 35 Char 60 Error Expected statement Code 800A0400 我该如何解决这个问题
VBScipt到Excel – 范围函数语法
重新：Excel 2007 我正在使用VBScript来创build一个Excel文件，并有一个小问题与语法我想… 如果我这样做，它可以愉快地将我的图表从我的应用程序粘贴到Excel单元格A1中的工作表： – ActiveDocument.GetSheetObject("CH_Contacts").CopyTableToClipboard True XLSheet2.Paste XLSheet2.Range("A1") 我现在需要做的是替代variables而不是A1，但我不确定正确的语法来做到这一点。 我有2个variables名为num_cols＆num_rows所以我想要做一些像… XLSheet2.Paste XLSheet2.Range(num_cols,num_rows) 我注意到，如果我logging一个Excelmacros，并拖动一个区域，它会产生这样的事情… Range("PV58:PZ58").Select 那么我也需要引号吗？ 我是否也需要冒号？ 任何帮助赞赏
如何在运行时在vba中的userform的文本框中显示过滤的值
感谢您审查我的问题:)我在运行时在用户窗体上创build一个文本框，并希望在其上显示过滤的数据。 我为以下代码运行许多运行时错误。 对于第一个文本框，我想显示一个fatalcount，对于第二个文本框，它应该是Majorcount＆最后一个文本框，它应该是minorcount。 有人能指导我正确的道路吗？ 提前致谢 Private Sub UserForm_Initialize() Set sh = ThisWorkbook.Sheets("Testing") sh.Range("F21").Activate With sh fatalcount = WorksheetFunction.CountIf(Range("F:F"), "Fatal") 'MsgBox fatalcount Majorcount = WorksheetFunction.CountIf(Range("F:F"), "Major") 'MsgBox Majorcount Minorcount = WorksheetFunction.CountIf(Range("F:F"), "Minor") 'MsgBox Minorcount 'Add a text box at run time Dim txtB1 As Control Dim i For i = 0 To 5 Set txtB1 = […]
Vb脚本获取超时错误
一些背景第一个解决scheme：我已经构build了一个使用文本数据源导入所需数据的Excel解决scheme。 我select了这个方法作为发送数据的URL将发送一个csv文件。 一旦收到数据，许多过程和条件必须应用于此。 关注的原因：这需要大量的时间来获取数据超过6分钟。 这导致Excel挂起。 在我的第二个类似的解决scheme： – 我已经select从Excel中调用VB脚本来做数据的下载。 这对这个解决scheme非常有效。 现在，我想为第一个解决scheme实现这个方法。 我的主要问题：在第二个解决scheme中使用的VB脚本失败，出现以下错误。 错误： – C：\ Users-user id- \ Desktop \ script \ download_moni.vbs（15，1）msxml6.dll：操作超时 我的VB脚本代码： – Set args = WScript.Arguments Url = "url given here" dim xHttp: Set xHttp = createobject("MSXML2.ServerXMLHTTP.6.0") dim bStrm: Set bStrm = createobject("Adodb.Stream") xHttp.Open "GET", Url, False 'Open socket to get the website […]
GetElementByID从HTML到Excel失败
任何人都可以帮助我这个VBScript？ 尝试使用getelementbyID将值从IE拉到Excel，但脚本仅将[对象HTMLDivElement]传输到Excel。 Set objExplorer = CreateObject("InternetExplorer.Application") WebSite = "https://www.google.co.uk/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=abbott+stocks" Const READYSTATE_COMPLETE = 4 WScript.Sleep 1000 With objExplorer .Navigate2 WebSite .Left=5 .Top=5 .Height=1000 .Width=700 .AddressBar = 0 .Visible = 1 .ToolBar = 0 .StatusBar = 0 Do Until .ReadyState = READYSTATE_COMPLETE Loop End With Set xl = CreateObject("Excel.Application") xl.Visible = True Set wb = xl.Workbooks.Open("C:\Users\ukristense\Documents\CI\testauto.xlsx") Set […]
在导出到Excel时，是否有任何事件可以通过VBScript用于SSRS报告？
我已经尝试了所有我能想到的和其他人的build议，正如这里所见的，当报告运行器将SSRS报告导出到Excel时指定表名。 到目前为止没有任何工作。 是否有一些事件可以用来写入代码（VBScript）？ 可以使用VBScript分配或调整数据值，但是在SSRS中，是否有办法编写“OnGenerate”等事件的代码？
无法select范围
我正在写一个VBScriptrecursion转换文件夹中的每个CSV到xlsx文件。 我想根据CSV文件中的分隔符将这些xlsx文件中的数据分开。 相关的代码如下： Set objWorkbook = objExcel.Workbooks.open(srccsvfile) Set objWorksheet1 = objWorkbook.Worksheets(1) objWorksheet1.Activate objWorksheet1.Range("A:A").Select MsgBox Selection '<<< Here the MsgBox is empty Selection.TextToColumns objWorksheet1.Range("A1"), xlDelimited, xlDoubleQuote, False, False, False, False, False, True, "|" 我的问题是，functionTextToColumns什么都不做，因为Selection是空的。 如何解决这个问题？ （脚本从.vbs文件执行，而不是从Exceldebugging器执行）。
使用getelement来获得具有多个值的类
我正在使用VBScript和getElementsByClassName从HTML获取数据到Excel。 不幸的是，一个网站已经改变了他们的编码，所以现在我不确定如何获得class级中的数据，因为它现在分成几个部分。 页面源代码如下所示： <span class="mod-tearsheet-recommendation__visual__column"> <i data-recommendation-count="5" style="background-color:#458B00; height:25%"></i> <i data-recommendation-count="2" style="background-color:#74A840; height:10%"></i> <i data-recommendation-count="11" style="background-color:#777777; height:55%"></i> <i data-recommendation-count="2" style="background-color:#DF6060; height:10%"></i> <i data-recommendation-count="0" style="background-color:#CC0000; height:0%"></i> </span> 我只对值5，2，11，2，0感兴趣。 http://markets.ft.com/data/equities/tearsheet/forecasts?s=MMM:NYQ 我使用这样的getElementByClassname ： ws.Range（“V2”）。Value = objExplorer.document.getElementsByClassName（“mod-tearheet-recommendation__visual__column”）（1）.innerHtml 但这并不能区分课堂上的价值。 有没有办法在课堂上获得每个“我数据推荐计数”值？
如何在Excel中创build一个多selectcheckbox列表？
我想在Excel中实现一个多选的下拉列表，请参阅下面的图像 正如你所看到的，它是部分实现的，但由于它不直观，我想有一个checkbox来代替3个选项 – APR，LEASE和CASH存在的下拉列表。 在此先感谢任何能帮助我的人。
