Function setPage()
filePath = "C:\XXX\"
'保存Excel文件名的TXT文件的路径
fileNameFullPath = filePath + "path.txt" ' target file list
Const ForReading = 1, _
ForWriting = 2, _
ForAppending = 8, _
TristateUseDefault = -2
Close #1
Open fileNameFullPath For Input As #1 ' シーケンシャル入力モードで開きます。
Do While Not EOF(1) ' ファイルの終端までループを繰り返します。
Input #1, docname
If docname = "" Then Exit Do
Workbooks.Open fileName:=docname
Debug.Print "opne : "; docname
originalFileName = ActiveWorkbook.Name
Debug.Print "originalFileName : "; originalFileName
For Each asheet In ActiveWorkbook.Sheets
If (asheet.Visible = True) Then
asheet.Activate
'シーケンス名の設定
asheet.Range("O5:AK5").Select
ActiveCell.FormulaR1C1 = "-"
If Left(asheet.Name, 2) = "要領" Then '要修改的sheet名以“要領”二字开头
'字体设置为8号
asheet.Range("AX11:BM112,A11:F12").Select
With Selection.Font
.Size = 8
End With
asheet.Range("A11:F11").Select
End If
'打印设置
With asheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&""MS ゴシック,標準""&10【秘密】" & Chr(10) & "TOPS-品規-130008"
.LeftFooter = ""
.CenterFooter = "&P / &N ページ"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.590551181102362)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
End If
Next
ActiveWorkbook.Worksheets(1).Activate
ActiveWorkbook.Close SaveChanges:=True
Loop
Close #1
End Function