TextXL secundario ()
Wkb dévil como Excel.Workbook
Wks déviles como Excel.Worksheet
Fijar el wkb = GetObject (CurrentProject.Path y “\ TestOutputFile.xls”)
wkb. Windows (1).Visible = verdad
Fijar los wks = el wkb. Hojas de trabajo (1)
Con los wks. Células
.VerticalAlignment = xlBottom
.WrapText = falso
. Borders.LineStyle = xlNone
.EntireColumn.AutoFit
.AutoFilter
. Columnas (“D: E”). Grupo
Con. Columnas (“yo: K”)
.NumberFormat = “m/d/yy; @”
.HorizontalAlignment = xlCenter
Extremo con
. Columnas (“L: M”) .HorizontalAlignment = xlCenter
. Columnas (“N: N”) .NumberFormat = “$#, ##0.00”
. Columnas (“O: AR”) .NumberFormat =” _ (* #, ##0_); _ (* (#, ##0); ¿_ (* "" - ""?? _); _ (@_) “
. Columnas (“T: Z”). Grupo
. Columnas (“AB: AI”). Grupo
Extremo con
wks. Gama (“F2”). Selecto
wkb. Windows (1).FreezePanes = verdad
Con 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
Extremo con
wkb. Ahorrar
wkb. Cierre
Submarino del extremo
|