Okręt podwodny TextXL ()
Ciemnawy wkb Jako Excel.Workbook
Ciemnawy wks Jako Excel.Worksheet
Ustalony wkb = GetObject (CurrentProject.Path & "\ TestOutputFile.xls")
wkb. Windows (1).Visible = Prawdziwy
Ustalony wks = wkb. Worksheets (1)
Z wks. Komórka
.VerticalAlignment = xlBottom
.WrapText = Fałszywy
. Borders.LineStyle = xlNone
.EntireColumn.AutoFit
.AutoFilter
. Kolumna ("D: E"). Grupa
Z. Kolumna ("I: K")
.NumberFormat = "m/d/yy; @"
.HorizontalAlignment = xlCenter
Końcówka Z
. Kolumna ("L: M") .HorizontalAlignment = xlCenter
. Kolumna ("N: N") .NumberFormat = "$#, ##0.00"
. Kolumna ("O: AR") .NumberFormat =" _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) "
. Kolumna ("T: Z"). Grupa
. Kolumna ("AB: AI"). Grupa
Końcówka Z
wks. Pasmo ("F2"). Wybiórka
wkb. Windows (1).FreezePanes = Prawdziwy
Z 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
Końcówka Z
wkb. Save
wkb. Zakończenie
Końcówka Okręt podwodny
|