小编Seb*_*ony的帖子

如何使用vbscript识别hta中复选框的状态(选中的值)

下面是读取的代码excel数据和结果数据转换成hta表格,并编写从编辑的数据htaexcel,在我的hta页面Excel示例数据看起来像这样,如果我选择所需的复选框并单击Click To Write按钮,数据将以"是"或"否"存储在excelsheet中.

<!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      = inputbox("Enter the path","path here","D:\VBScriptTrainee\Sample.xlsx")
  Set objExcel      = CreateObject("Excel.Application")
  Set objWorkbook   = objExcel.Workbooks.open(file2)
  objExcel.visible  = …
Run Code Online (Sandbox Code Playgroud)

vbscript excel hta

0
推荐指数
1
解决办法
476
查看次数

标签 统计

excel ×1

hta ×1

vbscript ×1