下面是读取的代码excel数据和结果数据转换成hta表格,并编写从编辑的数据hta来excel,在我的hta页面
看起来像这样,如果我选择所需的复选框并单击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)