WPS JSA代码:创建文件夹、保存新工作簿并打印2份

WPS JSA代码：可以拿来即用，修改对应的工作表名称就行。

function 测试()

{

// 创建文件夹、保存并打印

var folderPath = ThisWorkbook.Path; // 获取当前工作簿的路径

var folderNames = [Range("O1").Value2, Range("A1").Value2, Range("J6").Value2]; // 获取要创建的文件夹名称

const data = new Date()

var rq = data.getFullYear() + "年" + (data.getMonth()+1) + "月" + data.getDate() + "日" + "_" + data.getSeconds(); //"H+": data.getHours(), //时+"h+": data.getHours(), //时+"m+": data.getMinutes(), //分+"s+": data.getSeconds(), //秒

var baseFileName = Range("J6").Value2 ; // 获取基础文件名

var fileExtension = ".xlsx"; // 文件扩展名

var fullFolderPath = folderPath;

var selectedSheets = ActiveWindow.SelectedSheets;

// 创建文件夹

for (var i = 0; i < folderNames.length; i++) {

fullFolderPath += "\\" + folderNames[i];

try {

MkDir(fullFolderPath);

console.log("文件夹创建成功：" + fullFolderPath);

} catch (error) {

console.error("创建文件夹失败：" + fullFolderPath + "，错误：" + error.message);

}

}

// 新建工作表按设定路径保存

var fileName = baseFileName + "_" + rq ; // 初始文件名

var filePath = fullFolderPath + "\\" + fileName + fileExtension; // 初始文件路径

ActiveWindow.SelectedSheets.Copy(undefined, undefined);// 将工作表复制并移动为新工作簿

ActiveSheet.Name = fileName;// 为新工作表命名

ActiveWorkbook.SaveAs(filePath);// 按设定路径保存新工作簿

ActiveWorkbook.Close(filePath);// 关闭新工作簿

//打印

var selectedSheets = ActiveWindow.SelectedSheets;

if (selectedSheets.Count > 0) {

selectedSheets.PrintOut(1, 1, 2, false, undefined, false, false, undefined, false);// 当前工作表打印2份

}

}