|
转自:
http://www.microsoft.com/china/technet/community/scriptcenter/topics/activex/spreadsheet.mspx
以下是这个“精美”的 HTA 的完整代码：
<html>
<head>
<title>Spreadsheet Example</title>
</head>
<Script Language="VBScript">
Sub Window_Onload
Spreadsheet1.Range("A1:C1").ColumnWidth = 20
Spreadsheet1.TitleBar.Caption = "Process Information"
End Sub
Sub GetProcesses
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process")
i = 2
Spreadsheet1.Range("A1").Cells(1) = "Process"
Spreadsheet1.Range("B1").Cells(1) = "Working Set Size"
Spreadsheet1.Range("C1").Cells(1) = "Handle Count"
Spreadsheet1.Range("A1:C1").Font.Bold = True
For Each objProcess in colProcesses
strCell = "A" & i
Spreadsheet1.Range(strCell).Cells(1) = objProcess.Name
strCell = "B" & i
Spreadsheet1.Range(strCell).Cells(1) = objProcess.WorkingSetSize
strCell = "C" & i
Spreadsheet1.Range(strCell).Cells(1) = objProcess.HandleCount
If objProcess.WorkingSetSize > 5000000 Then
strCell = "A" & i & ":C" & i
Spreadsheet1.Range(strCell).Interior.ColorIndex = 6
End If
i = i + 1
Next
Set objConstants = Spreadsheet1.Constants
strSortRange = "A1:C" & i
Spreadsheet1.Range(strSortRange).Sort 1, objConstants.xlAscending, objConstants.xlYes
End Sub
</script>
<body bgcolor="buttonface">
<br>
<object classid="clsid:0002E559-0000-0000-C000-000000000046" id="Spreadsheet1" width="90%">
<param name="DisplayToolbar" value="0">
<param name="DisplayWorkbookTabs" value="0">
<param name="DisplayTitleBar" value="-1">
</object>
<p><input type="button" value="Get Process Information" name="B3" onclick="GetProcesses">
</body>
</html>
电子表格属性简直太多了，请参阅 MSDN 中的 Microsoft Office 电子表格组件参考（英文）
http://msdn.microsoft.com/library/en-us/owcvba11/html/ocobjSpreadsheet_HV05260286.asp
http://msdn2.microsoft.com/en-us/library/aa205671.aspx
|
软件商城 
加入收藏 
在HTA中使用电子表格控件
网友评论：（只显示最新5条。评论内容只代表网友观点，与本站立场无关！）