大神些,这个录制的宏如何循环
/**
* 打印 Macro
* 宏由 Administrator 录制,时间: 2022/07/10
*/
function 打印()
{
Windows.Item("措施数据.xls").Activate();
Range("A2").Select();
Selection.Copy(undefined);
Windows.Item("附件:户档案模板.xlsx").Activate();
ActiveSheet.Paste(undefined, undefined);
Application.EnableEvents = false;
ActiveWindow.SelectedSheets.PrintOut(1, 2147483647, 1, false, "HP LaserJet 1020 (副本 2)", false, false, undefined, false);
Application.EnableEvents = true;
Windows.Item("措施数据.xls").Activate();
Rows.Item("2:2").Select();
Selection.Delete(xlShiftUp);
Range("A2").Select();
Windows.Item("附件:盐津县人均纯收入低于1万元一般农户持续增收三年户档案模板.xlsx").Activate();
}
/**
* 打印 Macro
* 宏由 Administrator 录制,时间: 2022/07/10
*/
function 打印()
{
Windows.Item("措施数据.xls").Activate();
Range("A2").Select();
Selection.Copy(undefined);
Windows.Item("附件:户档案模板.xlsx").Activate();
ActiveSheet.Paste(undefined, undefined);
Application.EnableEvents = false;
ActiveWindow.SelectedSheets.PrintOut(1, 2147483647, 1, false, "HP LaserJet 1020 (副本 2)", false, false, undefined, false);
Application.EnableEvents = true;
Windows.Item("措施数据.xls").Activate();
Rows.Item("2:2").Select();
Selection.Delete(xlShiftUp);
Range("A2").Select();
Windows.Item("附件:盐津县人均纯收入低于1万元一般农户持续增收三年户档案模板.xlsx").Activate();
}