function 早班()
{
let path = ThisWorkbook.Path;
let file = Dir(path + '\\*.xlsx');
if(file.slice(0,1) == "~" || file.slice(1,2) == "$")
{
file = file.split("$").splice(1).join("");
}
while(file)
{
let onffile = Workbooks.Open(path + '/' + file);
let newcname = ThisWorkbook.Name;
Windows.Item(newcname).Activate();
(obj=>{
obj.LeftHeader = "";
obj.CenterHeader = "";
obj.RightHeader = "";
obj.LeftFooter = "";
obj.CenterFooter = "第 &P 页,共 &N 页";
obj.RightFooter = "";
obj.LeftFooter = "";
obj.CenterFooter = "第 &P 页,共 &N 页";
obj.RightFooter = "";
})(ActiveSheet.PageSetup);
ActiveWindow.ScrollRow = 1;
(obj=>{
obj.Orientation = xlLandscape;
obj.Zoom = 100;
obj.FirstPageNumber = 1;
obj.LeftMargin = 14.173228;
obj.RightMargin = 14.173228;
obj.TopMargin = 14.173228;
obj.BottomMargin = 34.015748;
obj.HeaderMargin = 21.543307;
obj.FooterMargin = 14.173228;
obj.CenterHorizontally = true;
obj.CenterVertically = false;
obj.PrintErrors = xlPrintErrorsDisplayed;
obj.Order = xlDownThenOver;
obj.PrintGridlines = false;
obj.PrintHeadings = false;
obj.BlackAndWhite = false;
obj.PrintQuality(undefined, 600);
obj.PaperSize = xlPaperA4;
obj.PrintComments = -4142;
obj.PrintArea = "";
obj.PrintTitleRows = "$3:$3";
obj.PrintTitleColumns = "";
})(ActiveSheet.PageSetup);
ActiveSheet.PageSetup.LeftMargin = 14.173200;
ActiveSheet.PageSetup.RightMargin = 14.173200;
ActiveSheet.PageSetup.TopMargin = 14.173200;
ActiveSheet.PageSetup.BottomMargin = 34.015701;
ActiveSheet.PageSetup.HeaderMargin = 21.543301;
ActiveSheet.PageSetup.FooterMargin = 14.173200;
Columns.Item("D:J").Select();
Selection.Activate()
Selection.WrapText = true;
Columns.Item("B:C").Select();
Range("B1").Select(false);
Range("C1").Select(false);
Range("B:C").Activate();
Columns.Item("B:C").ColumnWidth = 18;
Columns.Item("D:D").ColumnWidth = 34;
var result = Cells.Range("A1:J1220").Formula;
var deleteRows = [];
for(var k in result)
{
if(result[k][3] == "广东省清远市清城区凤翔大道" || result[k][3] == "" && result[k][2] != "")
{
deleteRows.push(Number(k)+1);
}
}
for(var i=deleteRows.length-1;i>=0;i--)
{
Rows.Item(deleteRows[i]).Select();
Selection.Delete(xlShiftUp);
}
}
{
let path = ThisWorkbook.Path;
let file = Dir(path + '\\*.xlsx');
if(file.slice(0,1) == "~" || file.slice(1,2) == "$")
{
file = file.split("$").splice(1).join("");
}
while(file)
{
let onffile = Workbooks.Open(path + '/' + file);
let newcname = ThisWorkbook.Name;
Windows.Item(newcname).Activate();
(obj=>{
obj.LeftHeader = "";
obj.CenterHeader = "";
obj.RightHeader = "";
obj.LeftFooter = "";
obj.CenterFooter = "第 &P 页,共 &N 页";
obj.RightFooter = "";
obj.LeftFooter = "";
obj.CenterFooter = "第 &P 页,共 &N 页";
obj.RightFooter = "";
})(ActiveSheet.PageSetup);
ActiveWindow.ScrollRow = 1;
(obj=>{
obj.Orientation = xlLandscape;
obj.Zoom = 100;
obj.FirstPageNumber = 1;
obj.LeftMargin = 14.173228;
obj.RightMargin = 14.173228;
obj.TopMargin = 14.173228;
obj.BottomMargin = 34.015748;
obj.HeaderMargin = 21.543307;
obj.FooterMargin = 14.173228;
obj.CenterHorizontally = true;
obj.CenterVertically = false;
obj.PrintErrors = xlPrintErrorsDisplayed;
obj.Order = xlDownThenOver;
obj.PrintGridlines = false;
obj.PrintHeadings = false;
obj.BlackAndWhite = false;
obj.PrintQuality(undefined, 600);
obj.PaperSize = xlPaperA4;
obj.PrintComments = -4142;
obj.PrintArea = "";
obj.PrintTitleRows = "$3:$3";
obj.PrintTitleColumns = "";
})(ActiveSheet.PageSetup);
ActiveSheet.PageSetup.LeftMargin = 14.173200;
ActiveSheet.PageSetup.RightMargin = 14.173200;
ActiveSheet.PageSetup.TopMargin = 14.173200;
ActiveSheet.PageSetup.BottomMargin = 34.015701;
ActiveSheet.PageSetup.HeaderMargin = 21.543301;
ActiveSheet.PageSetup.FooterMargin = 14.173200;
Columns.Item("D:J").Select();
Selection.Activate()
Selection.WrapText = true;
Columns.Item("B:C").Select();
Range("B1").Select(false);
Range("C1").Select(false);
Range("B:C").Activate();
Columns.Item("B:C").ColumnWidth = 18;
Columns.Item("D:D").ColumnWidth = 34;
var result = Cells.Range("A1:J1220").Formula;
var deleteRows = [];
for(var k in result)
{
if(result[k][3] == "广东省清远市清城区凤翔大道" || result[k][3] == "" && result[k][2] != "")
{
deleteRows.push(Number(k)+1);
}
}
for(var i=deleteRows.length-1;i>=0;i--)
{
Rows.Item(deleteRows[i]).Select();
Selection.Delete(xlShiftUp);
}
}