Tag: vbscript

创buildVBScript文件Excel: 我没有太多的知识来创build一个VBScript文件。我有一个代码，我想自动发送每个月的电子邮件。通过一些研究，我发现了下面的代码： dim EXL set EXL = CreateObject("Excel.Application") 'not required EXL.Visible = true 'your file and macro EXL.Workbooks.Open "full path to your excel file including extension here" EXL.Run "Fixing" 'close everything EXL.Quit Set EXL = Nothing 我的问题是：我执行此代码到我的Excel模块或在工作表事件？一旦我有这个正确的应用我将能够设置Windows任务计划在特定的时间运行。

运行excel或word之外的application.commandbars（）: 我试图找出一种方法来运行一个简单的VBA代码行： application.commandbars("research").enabled = false 不用打开excel或word（我想把这行代码同时用于excel和word）我正在考虑在vbs中创build一个word / excel对象，但想不到在对象的相同上下文中使用这一行代码的方法。

需要帮助来使用VB脚本从Excel表更新SQL表: 先谢谢你。我的目标是从Excel中更新SQL表。所以我写了一个VBScript从一个单一的点击从my-sql获得SQL表。表看起来像这样： ID规则长度是活动date 1规则1 3 1 NULL 2规则2 5 0 NULL 3规则3 6 1 NULL 4规则4 7 1 8/10/2015 5规则5 3 0 NULL 现在我将更新length ， isactive ， date字段和这个数据应该在表中更新在一个单一的点击。请帮助我在这个脚本。我试图更新查询失败与运行时错误 – 80040E14。部分脚本是 For iCount = 2 To 6 intRLength = CInt(objSheet.Cells(iCount, 3).Value) intID = CInt(objSheet.Cells(iCount, 1).Value) strQuerie = "UPDATE" & strDatabase & […]

Excel通过脚本导出到.txt: 我遇到了这个问题，导出大量的Excel单元格到一个.txt文件，这一定需要UTF-8格式。因此，我做了一个VBScript，由batch file执行，它完全做它应该（尽pipe它创build一个UTF-16文件）。 Set file = fso.OpenTextFile(FILE, 2, True, -1) 在文档中提到， -1将生成一个Unicode文件，我很确定，这仅限于UTF-16。我现在的问题是：我是否错过了一些东西，或者用VBScript来实现这一点是不可能的？有更容易的方法吗？除此之外：这个平台是独立的吗？

使VB脚本中的目录相对于运行macros的工作簿: 我正在使用以下来创build一个文件夹： Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") ' Create a new folder oFSO.CreateFolder "C:\MyFolder" 但是我希望文件夹位置与运行代码的excel工作簿位于相同的位置。

VBScript运行时错误: 我有两个Excels作为input。我正在从一个Excel中取值，并将其作为parameter passing给其他Excel应用filter。一旦filter打开，我正在读取列中的过滤值并尝试匹配下面的代码中提到的条件。而一切正常工作到这个地方。一旦我得到特定的匹配，我必须写回到第一个Excel，但我得到运行时错误，这样做。 strPath = "C:\Users\PSingh\Desktop\CodeInventory.xlsx" strPath1 = "C:\Users\PSingh\Desktop\MyScripts\Processes.xlsx" Dim rows Set objExcel1 = CreateObject("Excel.Application") objExcel1.Visible = True Set objExcel2 = CreateObject("Excel.Application") objExcel2.Visible = True Set objDict = CreateObject("Scripting.Dictionary") objDict.CompareMode = vbTextCompare Const xlUp = -4162 Const xlCellTypeVisible = 12 Dim a(), val objExcel1.Workbooks.Open(strPath1) With objExcel1.Activeworkbook.Sheets("Sheet1") rowcount = .Range("A" & .Rows.Count).End(xlUp).Row MsgBox […]

Google Maps API两点之间的距离返回不同的路线: 在Excel中，使用VB来计算两点之间的距离。当我这样做时，我似乎无法得到两点之间的多条路线的距离。当我调用函数GetDistance（“Alabama”，“Georgia”）时，它给出了从Alabama到Georgia的一条路线的距离，显然在Google Maps上它们是从A点到B点的多条路线，距离不同。当我使用MsgBox objHTTP.responseText来显示所有的路由距离时，它只显示一个路由距离，如截图所示。我怎样才能显示所有的路线英里距离？ 'Calculate Google Maps distance between two addresses Public Function GetDistance(start As String, dest As String, unit As Integer) Dim firstVal As String, secondVal As String, lastVal As String firstVal = "http://maps.googleapis.com/maps/api/distancematrix/json?origins=" secondVal = "&destinations=" lastVal = "&mode=car&language=pl&sensor=true&units=Imperical" Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") URL = firstVal & Replace(start, " ", […]

VBScript文件的相对path: 我有一个VBScript文件来打开一个Excel文件并运行一个macros。此Excel文件位于与VBScript文件相同的文件夹中。我想使用相对path来调用它，以便我可以移动该文件夹，而无需重写脚本中的path。现在我的VBScript看起来像这样： Option Explicit On Error Resume Next ExcelMacroExample Sub ExcelMacroExample() Dim xlApp Dim xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\Users\Ben\Desktop\GeocodingBatchFile\Files\GeocodingStart.xlsm") xlApp.Run "Export" xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub 而不是使用完整的文件path，如果我可以做这样的事情将是很好的： Set xlBook = xlApp.Workbooks.Open(".\GeocodingStart.xlsm")

CreateObject（“Excel.Application”）不起作用: 作为背景，我试图删除我的2007 Excel工作簿的第二行。我没有MS Office安装在服务器上，安装它们是不可能的。使用互操作程序集是没有用的，因为我不能安装Office。当我尝试使用VB脚本（下面）来操纵文件时，它给了我各种各样的错误： Dim filename As String Dim appExcel As Object Dim newBook As Object Dim oSheet1 As Object appExcel = CreateObject("Excel.Application") filename = "C:\test.xls" appExcel.DisplayAlerts = False newBook = appExcel.Workbooks.Open(filename) oSheet1 = newBook.worksheets("Sheet1") oSheet1.Range("A2").Entirerow.Delete() newBook.SaveAs(filename, FileFormat:=56) appExcel.Workbooks.Close() appExcel.Quit() 我有点得到它，没有Excel和程序集，我不能操纵文件。有没有其他办法可以做到这一点？我不知道我可以尝试使用什么样的程序集。谢谢阅读。

VBA通过循环读取Excel中的两列: 我有这个代码： Dim cityList() Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Users\xyz\Desktop\Test\Cities.xlsx") objExcel.Visible = True i = 1 x = 0 Do Until objExcel.Cells(i, 1).Value = "" ReDim Preserve cityList(x) cityList(x) = objExcel.Cells(i, 1).Value i = i + 1 x = x + 1 Loop objExcel.Quit 我有两个条件使这个像数组的问题。我的Excel包含两列：城市date Mumbai 22.04.2016 Delhi 23.05.2016 Goa 24.06.2016 我已经设法阅读列城市，并一一阅读，但我也需要阅读date和条件是这样的：对于城市=“孟买”和date=“22.04.2016”做些事情…. […]