Tag: hta
VBS代码不能在HTA中使用（WScript声明）
我目前正在开发一个界面，让用户select哪个报告，他们想要生成，但我有问题，我的“WScript”的声明。 我也附上了错误。 正如我已经固定行间的间距不注意行号 – 我粗线的，我错了。 真的很感谢任何帮助（尽我所能，正确格式化我的问题）。 <html> <title>Report Generation</title> <head> <HTA:APPLICATION APPLICATIONNAME="Master Report Generation" SCROLL="yes" SINGLEINSTANCE="yes" WINDOWSTATE="normal"> </head> <style> BODY { background-color: buttonface; Font: arial,sans-serif margin-top: 10px; margin-left: 20px; margin-right: 20px; margin-bottom: 5px; } .button { width: 91px; height: 25px; font-family: arial,sans-serif; font-size: 8pt; } td { font-family: arial,sans-serif; font-size: 10pt; } #scroll { height:100%; […]
如何在hta中使用vbscript 标识checkbox的状态（checked value）
这里是读取excel数据并将数据导入到hta表中的代码，并将编辑后的数据从hta写入excel ，在我的hta页面 看起来像这样，如果我select所需的checkbox并单击Click To Writebutton，数据按“是”或“否”存储在Excel表格中。 <!DOCTYPE html> <head> <HTA:application Applicationname="MyApp" BORDER="thin" BORDERSTYLE="Normal" Caption="yes" ICON="D:\VBScriptTrainee\Ampeross-Qetto-Icon-developer.ico" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes" SINGLEINSTANCE="no" NAVIGABLE="yes" SYSMENU="yes" VERSION="2.0" WINDOWSTATE="maximize"/> <title>Read Excel</title> <link rel="stylesheet" href="D:\VBScriptTrainee\bootstrap-3.3.6-dist\css\bootstrap.min.css"> <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,tempcol,checkData,i,j On error resume next Sub ReadExcelData() Set fileexcel =document.getelementbyid("file_id") file2=fileexcel.value 'selectexcel = […]
在Javascript代码中重复元素
我创build了一个连接到excel文件的.hta表单。 input的数据被粘贴在电子表格中。 我有这个代码的两个问题，我似乎无法弄清楚我做错了什么。 <html> <head> <script> function test() { var excel = new ActiveXObject("Excel.Application"); excel.visible = true; var wb = excel.Workbooks.Open("C:\\Users\\Dane\\Desktop\\1.xlsx"); var optionValue; var s = Form1.select1; var data = []; var sCell = wb.sheets("sheet1").cells(1,1).currentregion.offset(1); data.push(Form1.text1.value); data.push(Form1.text2.value); data.push(Form1.text3.value); data.push(Form1.text4.value); data.push(s.options[s.selectedIndex].text); data.push(Form1.text5.value); data.push(Form1.text6.value); data.push(Form1.text7.value); for(var i=0;i<Form1.option1.length;i++) { if(Form1.option1[i].checked){ data.push(Form1.option1[i].value); break; } } for(var i=0; i<data.length;i++) { […]
如何使用VBScript在HTA文件中操作DropDownBox名称
我正在创build一个使用VBScript创build，写入和读取Excel文件的HTA文件。 基本上，Excel文件将是“网站名称，login名和密码”（最终encryption）的数据库，而HTA只是提供了一个界面，可以在文本框中轻松查看这些信息。 我想创build一个“下拉框”，它预先填充了当前存储在Excel文件中的所有帐户。 这样当用户select账户名时，会显示相应的login名和密码。 下拉框的典型代码： <select size="1" name="DropDownBox" onChange="ReadDropdown"> <option value="0"></option> <option value="1">Account 1</option> <option value="2">Account 2</option> <option value="3">Account 3</option> </select> 而不是查看“帐户1 … 2 … 3等”我希望程序读取当前存储在Excel文件中的“网站名称”，而不是在下拉框中使用这些名称。 例： <select size="1" name="DropDownBox" onChange="ReadDropdown"> <option value="0"></option> <option value="1">Facebook</option> <option value="2">GMAIL</option> <option value="3">Stack Over Flow</option> </select> 我不能提前指定名称，因为我不知道什么帐户将包含在Excel文件中。 我假设我可以修改下拉框选项的“值”，但是这不会改变用户实际看到的文本（例如在文本框中）。 我想出了一个“有趣”的想法。 如果我创build了第二个HTA文件来充当“Loader”呢？ 装载程序HTA程序将执行以下操作： 打开Excel程序以查看文件中当前有哪些网站帐户 打开主HTA文件，并使用Excel文件中find的帐户名称进行编辑，然后保存。 然后运行新保存的主要HTA文件 并closures本身（装载HTA） 只是一个想法。
从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 = " […]
将SYLK格式的文本从HTA复制到剪贴板
我想以编程方式将表格数据（包括格式和公式）从HTA（HTML应用程序）复制到剪贴板，以便粘贴到Excel中。 Excel支持一种名为SYLK的文本格式来完成这个任务，但是我在window.clipboardData.setData（format，data）中遇到了过度validation的问题，格式被限制为“Text”或者“URL”如果格式设置为其他任何内容，则错误“意外调用方法或属性访问”，并且如果格式设置为“SYLK”，则Excel只识别SYLK文本，否则将其作为普通文本进行粘贴。 我想知道是否有另一种方法来从HTA设置剪贴板数据，例如通过预装Windows或Office的COM控件，这将允许我将SYLK数据复制到剪贴板。 我知道我可以编写一个自定义的COM控件，并将其安装在每个客户端上，但是在这种情况下，写入文件并打开文件而不是使用剪贴板可能会更好。
使用Excel，试图从外部HTA中find真正使用的范围
我一直在使用这个命令： LastRow = ActiveSheet.UsedRange.Rows.Count 但UsedRange属性通常可能不准确。 所以我正在寻找替代品。 我发现了一个很棒的提示，解释了这种方 LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 这在Excel中工作。 但是，我正在运行HTA代码，所以我需要转换这一行，而我正在挣扎。 这是我的问题—请有人提供关于如何将这个简单的代码转换为HTA兼容的指导？ 出于兴趣，为了避免这个问题，我试着以我理解的方式写一个例程。 结果起作用 ，但是非常缓慢。 这是为了咯咯地笑起来： Set objExcel = GetObject(,"Excel.Application") wb = "test.xlsx" objExcel.Workbooks(wb).Activate wbactiveSheet = objExcel.Workbooks(wb).ActiveSheet.Name 'determine rows and columns in range of first xls theNumRow = objExcel.Workbooks(wb).Sheets(wbactiveSheet).UsedRange.Rows.Count theNumCol = objExcel.Workbooks(wb).Sheets(wbactiveSheet).UsedRange.Columns.Count 'determine genuine used rows: x = 1 'start at first […]
HTA和查找functionExcel VBA
Sub search Set objExl = CreateObject("Excel.Application") Set objWb = objExl.Workbooks objWb.Open("C:\Documents and Settings\user\Desktop\book.xls") Set strbol = objWb("C:\Documents and Settings\user\Desktop\book.xls").Sheets(1).Cells.Find(document.getElementById("q").Value, Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, False) Set objDiv = document.getElementById("content") objDiv.innerText = "Result: " & objWb.Sheets(1).Cells(strbol.Row,strbol.Column).Offset(0,-4).Value objWb("C:\Documents and Settings\user\Desktop\book.xls").Close Set objWb = Nothing Set objExl = Nothing End Sub 以上是HTA代码，它从HTA文本框中获取查询词，在excel中find该词，并在名为div的内容中返回/显示结果偏移行值。 我可以成功运行脚本，直到打开excel文件。 但是脚本给出错误：Set strbol。 。 。 […]
