UnderTextXL ()
Dunkel wkb som Excel.Workbook
Dunkla wks som Excel.Worksheet
Fastställd wkb = GetObject (CurrentProject.Path & ”\ TestOutputFile.xls”)
wkb. Windows (1). Synligt = True
Fastställda wks = wkb. Arbetssedlar (1)
Med wks. Celler
.VerticalAlignment = xlBottom
.WrapText = falskt
. Borders.LineStyle = xlNone
.EntireColumn.AutoFit
.AutoFilter
. Kolonner (”D: E”). Grupp
Med. Kolonner (”mig: K”)
.NumberFormat = ”m/d/yy; @”,
.HorizontalAlignment = xlCenter
Avsluta med
. Kolonner (”L: M”) .HorizontalAlignment = xlCenter
. Kolonner (”N: N”) .NumberFormat = ”$#, ##0.00”,
. Kolonner (”nolla: AR”) .NumberFormat =” _ (* nr., ##0_); _ (* (nr., ##0); _ (* "" - ""?? _); _ (@_) ”,
. Kolonner (”T: Z”). Grupp
. Kolonner (”AB: AI”). Grupp
Avsluta med
wks. Spänna (”F2”). Välj
wkb. Windows (1) .FreezePanes = True
Med 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
Avsluta med
wkb. Räddning
wkb. Nära
Avsluta suben
|