TextXL secundário ()
Wkb não ofuscante como Excel.Workbook
Wks não ofuscantes como Excel.Worksheet
Ajustar o wkb = o GetObject (CurrentProject.Path & “\ TestOutputFile.xls”)
wkb. Windows (1). Visível = retificar
Ajustar wks = wkb. Folhas (1)
Com wks. Pilhas
.VerticalAlignment = xlBottom
.WrapText = falso
. Borders.LineStyle = xlNone
.EntireColumn.AutoFit
.AutoFilter
. Colunas (“D: E”). Grupo
Com. Colunas (“mim: K”)
.NumberFormat = “m/d/yy; @”
.HorizontalAlignment = xlCenter
Extremidade com
. Colunas (“L: M”) .HorizontalAlignment = xlCenter
. Colunas (“N: N”) .NumberFormat = “$#, ##0.00”
. Colunas (“O: AR”) .NumberFormat =” _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) “
. Colunas (“T: Z”). Grupo
. Colunas (“AB: AI”). Grupo
Extremidade com
wks. Escala (“F2”). Seleto
wkb. Windows (1) .FreezePanes = retifica
Com wks.PageSetup
.PrintTitleRows = “$1: $1”
.PrintTitleColumns = ""
.LeftHeader = ""
.CenterHeader = “&A”
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = 0.25 * 72
.RightMargin = 0.25 * 72
.TopMargin = 1 * 72
.BottomMargin = 0.75 * 72
.HeaderMargin = 0.5 * 72
.FooterMargin = 0.5 * 72
Extremidade com
wkb. Conservar
wkb. Fim
Submarino da extremidade
|