Tag: vbscript

Visual Basic脚本将Excel工作簿打开到启用了加载项的特定工作表: 在装有64位Microsoft Office Professional Plus 2016的Windows 7 Enterprise x64主机上工作。我想创build启动Microsoft Excel的Visual Basic脚本vbscript （在我的Windows桌面上的文件），打开启用macros的Excel工作簿文件“Workbook.xlsm”，并select/激活该工作簿中的工作表“XYZ”。所以，我想下面的VB脚本： ' File: test.vbs ' Opens Excel workbook "Workbook.xlsm" to worksheet "XYZ" Set objXl = CreateObject("Excel.Application") Set ObjWb = objXl.Workbooks.Open("C:\Path\To\Workbook.xlsm") objXl.Goto ObjWb.Sheets("XYZ").Range("A1") objXl.Application.Visible = True 此脚本成功启动Excel，打开指定的工作簿，并select指定的工作表。但是，包含调用附加模块中定义的一个或多个函数的公式的所有工作表单元格都已损坏; 这些单元格都包含错误值#NAME？。如果我手动closures并重新打开工作簿（不使用脚本），包含调用附加模块中定义的一个或多个函数的公式的工作表单元格均可正常工作。所以我想知道如何修改我的Visual Basic脚本，以便启动Excel后打开工作簿并select所需的工作表，工作簿的工作表单元格可以成功地调用在加载项模块中定义的函数。

如何在没有用户提示保存文件的情况下保存Excel？: 嗨我写了一些代码使用VBScript在Excel表单如下。现在，每次脚本完成处理时，它都会提示用户Save 。但是我不想要这个，而是希望它自动保存，而不会提示。码 Option Explicit Dim objExcel1,strPathExcel1,objSheet1,objSheet5 Set objExcel1 = CreateObject("Excel.Application")'Object for Condition Dump strPathExcel1 = "D:\VA\GE_Wing_To_Wing_Report.xlsx" objExcel1.Workbooks.Open strPathExcel1 Set objSheet1 = objExcel1.ActiveWorkbook.Worksheets(1) Set objSheet5 = objExcel1.ActiveWorkbook.Worksheets(5) '===================================================================================== 'Here Bad sheet will be copied by the data from First sheet master data sheet '===================================================================================== ParentPIDFromMasterSheet objSheet1,objSheet5 '===================================================================================== 'Here Bad sheet will be copied by […]

VBA查找string的字体颜色: 我是新的VBA ..我正在写一个macros的一些文件比较..我的要求是如果一个string有红色的字体，该string应该被忽略的迭代和代码应该移动到下一个迭代..我已经尝试了以下码。 Dim compare = {"test1","test2","test3",…..etc} i=0 For j=1 to Ubound(compare) j=1 If compare.Characters(j,Len(compare(i))).Font.Color <> vbRed Then ' Some Code End If i=i+1 Next 但是在执行期间，我得到运行时错误424“对象Required.Please帮我完成这个任务提前致谢。

数据格式自动转换为父子格式: 这是一个excel表单，每行只填充一个列。（说明：所有城市类别属于V21，所有手机类别属于CityJ等） V21 CITYR CITYJ HandsetS HandsetHW HandsetHA LOWER_AGE<=20 LOWER_AGE>20 SMS_COUNT<=0 RECHARGE_MRP<=122 RECHARGE_MRP>122 SMS_COUNT>0 我需要将此格式更改为具有父级和子级分类格式的双列格式。因此输出表将是 V21 CITYR V21 CITYJ CITYJ HandsetS CITYJ HandsetHW CITYJ HandsetHA HandsetHA LOWER_AGE<=20 HandsetHA LOWER_AGE>20 LOWER_AGE>20 SMS_COUNT<=0 SMS_COUNT<=0 RECHARGE_MRP<=122 SMS_COUNT<=0 RECHARGE_MRP>122 LOWER_AGE>20 SMS_COUNT>0 数据是巨大的，所以我不能做手动。我怎么能自动化这个？

Microsoft.ACE.OLEDB.12.0当前logging集不支持尝试更新访问时收到的更新错误: 我有一个ASP页面，用户将上传一个Excel文件。文件成功上传后，我想要在REGION选项卡中的行，并将它们插入MS Access 2007表。下面是我使用的代码，我得到这个错误。我可以使用Microsoft.ACE.OLEB.12.0提供程序的logging集更新吗？有一个更好的方法吗？ ADODB.Recordset错误“800a0cb3” 当前logging集不支持更新。这可能是提供者或所选lockingtypes的限制。 Set cnnExcel = Server.CreateObject("ADODB.Connection") cnnExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & strExcelFile & ";" & _ "Extended Properties=" & Chr(34) & "Excel 12.0 Xml;HDR=Yes;IMEX=1" & Chr(34) & ";" Response.Write "Excel connection opened<BR>" ' Load ADO Recordset with Excel Data Set rstExcel = Server.CreateObject("ADODB.Recordset") rstExcel.Open "Select […]

从VBA到VBScript的variables: 我正在使用VBA，我必须通过传递一些值来调用vbscript。这里是代码： ''VBA 'Below values are on different cells of Excel file which I am reading 'into a global variable then pass it to vbscript. 'SFilename = VBscript file path 'QClogin = "abc" 'QCpassword = "abc" 'sDomain = "xyz" 'sProject = "xyz123" 'testPathALM = "Subject\xyz – Use it!\xyz_abc" 'QCurl = "http://xxx_yyy_zzz/qcbin/" Set wshShell = CreateObject("Wscript.Shell") […]

舍入到最接近的N号码: 我有一组十进制数，我需要将它们四舍五入到最接近7的数字。例如： 0.45 –> 0.47 4.70 –> 4.67 6.49 –> 6.47 8.32 –> 8.37 我可以使用Excel或Access（基本上是VBS）。我只能抓住小数点后两位，将其转换为整数（* 100），然后应用舍入规则，然后预先等待原始值的整数值。例如： 0.45 –> 45 –> 47 –> 0.47 4.70 –> 70 –> 67 –> 4.67 6.49 –> 49 –> 47 –> 6.47 8.32 –> 32 –> 37 –> 8.37 我已经尝试了舍入公式： Let N represent the nearest number to round […]

如何防止Excel加载项文件将单元格引用更改为R1C1 /列到字母: 我创build了Excel加载项文件（ .xlam ），以便能够将我的macros分配给我的部门。但是，当我在网上search答案时，我遇到了一个似乎无法find的问题。当我添加和安装加载项文件到Excel（通过VBScript，如果有的话），它将Excel设置为R1C1模式，所以列编号，而不是字母。任何想法可能导致这个？是否可以在vbscript或Add-In文件中触发这个改变？在部署Excel加载项之前，有没有人有过这种情况？我如何防止它？

打开一个保存有密码的Excel文件进行修改: 我想打开一个用VBScript修改密码的excel文件。我目前的代码VBS代码是在下面，这是工作，但它不断popup与要求input密码的boax。我怎样才能打开excel电子表格与Excel提示我的密码？ 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\jasons\Documents\TestFile.xlsm",,,,"yep123") xlApp.Visible = True xlApp.Run "Refresh_data_ss" xlApp.Save xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub

excel：如何将.bas文件转换为VBScript / EXE或从命令行运行？: 如何将.bas文件转换为VBScript / EXE或从命令行运行？我在Excel中通过MS Visual Basic for Aplications来编写脚本，但是我只能在Excel下运行这个脚本。我怎样才能使这个脚本为.vbs或.exe？？