WPS常用表格对象应用

一、工作簿操作

function 新建工作簿()
{
   
   
	let wb=Workbooks.Add();
	wb.SaveAs("C:/Users/demo/Desktop/123/test.xlsx");
	wb.Close();
//	Workbooks.Add("C:/Users/demo/Desktop/123/工资表.xlsx")

}
function 删除文件(){
   
   
//	Kill("C:/Users/demo/Desktop/123/test.xlsx");
	Kill("C:/Users/demo/Desktop/123/*.txt")
}

function 新建工作簿(){
   
   
	let strpath = ThisWorkbook.Path;
	for(let datesV = 1 ;datesV<=12;datesV++){
   
   
		let wb = Workbooks.Add(`${
     
     strpath}/工资表.xlsx`);//以工作表为模板
		wb.SaveAs(`${
     
     strpath}/2023/${
     
     datesV}月.xlsx`);
		wb.Close()
	}
}

function 打开关闭工作簿(){
   
   
	let wb=Workbooks.Open("D:\\WPS JS宏视频教程\\第3章\\3-3\\demo.xlsx");
	Range("a1:d10").Value2=100;
//	wb.Save();
	wb.Close(true);
}

function 取文件名(){
   
   
	let strpath = Dir(ThisWorkbook.Path+"/产品/*.xls*")
	while(strpath != ""){
   
   
		console.log(strpath);
		strpath = Dir();
	}
}

function 汇总每个工作簿中的数据(){
   
   
	let strPath=Workbooks.Item("3-5.xlsm").Path;
	let strFileName=Dir(`${
     
     strPath}\\产品\\*.xlsx`);
	let intTotal=0;
	while (strFileName!=""){
   
   
		let wb=Workbooks.Open(`${
     
     strPath}\\产品\\${
     
     strFileName}`);
		intTotal +=wb.Sheets(1).Range("b14").Value();
		wb.Close(false);
		strFileName=Dir();
	}
	alert(`总金额为：${
     
     intTotal}`);

function 判断工作簿是否打开(){
   
   
	let intNum=0
	for (let wb of Workbooks){
   
   
		if (wb.Name=="调查表.xlsx"){
   
   
			intNum++;
		}
	}
	switch (intNum){
   
   
		case 0:
			Workbooks.Open("D:/WPS JS宏视频教程/第3章/3-6/调查表.xlsx");
			break;
		case 1:
			alert("调查表.xlsx,已打开！")
			break;
	}
}

二、工作表操作

新建:
Sheets.Add(Before, After, Count, Type)
可以创建的类型为：xlWorksheet（工作表）、xlChart（图表）、xlExcel4MacroSheet（宏表） 或 xlExcel4IntlMacroSheet（支持多语言的宏表）。
以新建工作表为例，讲解一下JS宏中的函数(也就是方法)，它的使用方法。
1.如果参数中带有?，表示可选参数。否则表示必选参数。
2.可选参数如果是最后一个位置，可以忽略不写。
3.可选参数如果不在最后，不能忽略不写，必需写undefined。
--------------------------
删除:
ActiveWindow.SelectedSheets.Delete //删除已经选择的工作表
Sheets(n).Delete(); //删除指定的单个工作表
注意：工作表可以用索引，也可以用名称。

function Macro2()
{
   
   
	let u=undefined;
	Sheets.Add(u, Sheets("Sheet15"), 1,u);
}
function Macro1()
{
   
   
//	Sheets.Item("Chart1").Select(false);
	Sheets(2).Delete();
//	Sheets.Item("Sheet2").Activate();
//	ActiveWindow.SelectedSheets.Delete();
}

function 提取工作簿和工作表名称(){
   
   
	let wbOpen=Workbooks.Item("3-8.xlsm");
	let strFileName=Dir(`${
     
     wbOpen.Path}\\销售表\\*.xlsx`);
	let intRowNum=1;
	while (strFileName!=""){
   
   
		let wb=Workbooks.Open(`${
     
     wbOpen.Path}\\销售表\\${
     
     strFileName}`)
		for (let ws of wb.Sheets){
   
   
			wbOpen.Sheets(1).Cells(intRowNum,"A").Value2=wb.Name;
			wbOpen.Sheets(1).Cells(intRowNum,"B").Value2=ws.Name;
			intRowNum++;
		}
		wb.Close(false);
		strFileName=Dir();
	}
}

function 工作表的复制和移动(){
   
   
	//移动（move）复制（copy）,两个参数为before和after
	//同一个工作簿下工作表的移动与复制
	Sheets("工资表").Move(Sheets("other")); 
	Sheets