Excel 処理

Excel を起動する

<HTML>
<HEAD><TITLE>Excel Sample</TITLE>
<SCRIPT LANGUAGE=JavaScript>

var ExcelApp;
var ExcelSheet;

function LoadExcel()
{

	ExcelApp = new ActiveXObject("Excel.Application");

	ExcelSheet = new ActiveXObject("Excel.Sheet");
	ExcelSheet.Application.Visible = true;

}
</SCRIPT>
</HEAD>

<BODY style="background-color:#3A6DA5">

<INPUT type=button value="Load Excel" onClick="LoadExcel()">

</BODY>
</HTML>

Excel のセルへデータを転送する

<HTML>
<HEAD><TITLE>Excel Sample</TITLE>
<SCRIPT LANGUAGE=JavaScript>

var ExcelApp;
var ExcelSheet;

function LoadExcel()
{

	ExcelApp = new ActiveXObject("Excel.Application");

	ExcelSheet = new ActiveXObject("Excel.Sheet");
	ExcelSheet.Application.Visible = true;

}

function SetCell()
{

	with( ExcelSheet.ActiveSheet ) {

		Cells(1,1).Value = CellText.value;

	}

}

</SCRIPT>
</HEAD>

<BODY style="background-color:#3A6DA5">

<INPUT type=button value="Load Excel" onClick="LoadExcel()" style='position:absolute;left:100;top:150'>
<INPUT type=text name=CellText style='position:absolute;left:100;top:250'>
<INPUT type=button value="セルへ転送" onClick="SetCell()" style='position:absolute;left:100;top:350'>

</BODY>
</HTML>

<SCRIPT LANGUAGE=JavaScript>
// ******************************************************************
// 
// ******************************************************************
function errortrap(msg,url,line){

	alert( msg + "/" + url + ":" + line );
	return true;

}
onerror=errortrap;
</SCRIPT>

Excel Book の保存

<HTML>
<HEAD><TITLE>Excel Sample</TITLE>
<SCRIPT LANGUAGE=JavaScript>

var ExcelApp;
var ExcelSheet;

function LoadExcel()
{

	ExcelApp = new ActiveXObject("Excel.Application");
	ExcelSheet = new ActiveXObject("Excel.Sheet");
	ExcelSheet.Application.Visible = true;

}

function SetCell()
{

	with( ExcelSheet.ActiveSheet ) {

		Cells(1,1).Value = CellText.value;

	}

}

function SaveBook()
{

	with( ExcelSheet ) {

		SaveAs("D:\\TEST.XLS");
		ExcelSheet.Application.Quit();

	}

}

</SCRIPT>
</HEAD>

既存のプックを読み出して、セルにデータをセットする

<HTML>
<HEAD><TITLE>Excel Sample</TITLE>
<SCRIPT LANGUAGE=JavaScript>

var ExcelSheet;
var MyBook;

function LoadExcel()
{

	ExcelApp = new ActiveXObject("Excel.Application");
	ExcelApp.Visible = true;
	MyBook = ExcelApp.Workbooks.Open( document.all.item( "FileName" ).value );
	MyBook.ActiveSheet.Cells(1,1).Value = "New Data";

}

</SCRIPT>
</HEAD>

<BODY style="background-color:#3A6DA5">

<INPUT type=button value="Load Excel" onClick="LoadExcel()" style='position:absolute;left:100;top:150'>
<INPUT type=text name=FileName size=100 style='position:absolute;left:100;top:250'>

</BODY>
</HTML>

<SCRIPT LANGUAGE=JavaScript>
// ******************************************************************
// 
// ******************************************************************
function errortrap(msg,url,line){

	alert( msg + "/" + url + ":" + line );
	return true;;

}
onerror=errortrap;
</SCRIPT>

既存のシートをロードしてシート名を変更してシートをコピーしてコピーしたシートの名前も変える

<HTML>
<HEAD><TITLE>Excel Sample</TITLE>
<SCRIPT LANGUAGE=JavaScript>

var ExcelApp;
var ExcelSheet;

function LoadExcel()
{

	ExcelApp = new ActiveXObject("Excel.Application");
	ExcelApp.Visible = true;
	MyBook = ExcelApp.Workbooks.Open( "d:\\test.xls" );

	MyBook.Sheets("Sheet1").Select
	MyBook.ActiveSheet.Name = "名前1"
	MyBook.Sheets("名前1").Copy( MyBook.Sheets("名前1") )
	MyBook.ActiveSheet.Name = "名前2"

}

</SCRIPT>
</HEAD>
<BODY style="background-color:#3A6DA5">

<INPUT type=button value="Load Excel" onClick="LoadExcel()" style='position:absolute;left:100;top:150'>

</BODY>
</HTML>