Excel的操作

Excel的操作

1. 创建文件夹及文件(excel)

function creatExcel(){
	var fso;
	var folderspec = "E://html";	//文件夹路径
	var filespec = "E:/html/afr.xls";//文件路径
	fso=new ActiveXObject("Scripting.FileSystemObject");
	if(fso.FolderExists(folderspec)){	//FolderExists：判断文件夹是否存在
		//文件夹存在
		if(fso.FileExists(filespec)){	//FileExists:判断文件是否存在
			//文件存在
		}else{
			//文件夹不存在
			var f = fso.CreateTextFile(filespec,true);//创建文件
	 		f.Close();
		}
	}else{
		//文件夹不存在
		fso.CreateFolder ("E:/html");//创建文件夹
		var f = fso.CreateTextFile(filespec,true);//创建文件
	 	f.Close();
	}
}

2 . 在已存在的excel中添加数据

function writeXLS(strSaveLocation) {
	var strSaveLocation = 'file:///E:/html/afr.xls';
    var exApp = new ActiveXObject("Excel.Application");
    var exWBook = exApp.workbooks.open(strSaveLocation);
	var exWSheet = exWBook.Worksheets(1);
	exWSheet.Cells(1,1).Value="a";
	exWSheet.Cells(1,2).Value="s";
	exWSheet.Cells(1,3).Value="d";
	exWSheet.Cells(1,4).Value="f";
	exWBook.Close(savechanges=true);
	//exWSheet.Close();
	//exApp.Close();
	exApp.Quit();
	exApp= null;
}