function AutomateExcel()
{
// Excel を起動し、Application オブジェクトを取得します。
var oXL = new ActiveXObject("Excel.Application");
oXL.Visible = true;
// 新しいワークブックを取得します。
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
// 表のヘッダーをセルごとに追加します。
oSheet.Cells(1, 1).Value = "First Name";
oSheet.Cells(1, 2).Value = "Last Name";
oSheet.Cells(1, 3).Value = "Full Name";
oSheet.Cells(1, 4).Value = "Salary";
// A1:D1 を太字でフォーマットします。垂直方向の配置 = center.
oSheet.Range("A1", "D1").Font.Bold = true;
oSheet.Range("A1", "D1").VerticalAlignment = -4108; //xlVAlignCenter
// 複数の値を一度に設定する配列を作成します。
// A2:B6 に値の配列を入力します (VBScript から)。
oSheet.Range( "A2", "B6").Value = CreateNamesArray();
// C2:C6 に相対式 (=A2 & " " & B2) を入力します。
var oRng = oSheet.Range ("C2", "C6");
oRng.Formula = "=A2 & " " & B2";
// D2:D6 に数式を入力します(=RAND()*100000)
oRng = oSheet.Range("D2", "D6");
oRng.Formula = "=RAND()*100000";
oRng.NumberFormat = "$0.00";
// AutoFit 列 A:D.
oRng = oSheet.Range("A1", "D1");
oRng.EntireColumn.AutoFit();
//四半期売上データの可変数の列を操作します。
DispalyQuarterlySales(oSheet);
// Excel が表示されていることを確認し、Excel の有効期間をユーザーに制御させます
//。
oXL .Visible = true;
oXL.UserControl = true;
}
将页面中指定表格のデータを Excel に挿入 TITLE>
编号 |
姓 td>
| 年龄 |
性别 |
0001
|
张三
|
22 |
女
|
0002 |
李四 |
23 |
男 |
代码如下: