Sub TextXL ()
Тусклое wkb как Excel.Workbook
Тусклые wks как Excel.Worksheet
Установите wkb = GetObject (CurrentProject.Path & «\ TestOutputFile.xls»)
wkb. Windows (1).Visible = True
Установите wks = wkb. Рабочий лист (1)
С wks. Клетки
.VerticalAlignment = xlBottom
.WrapText = ложно
. Borders.LineStyle = xlNone
.EntireColumn.AutoFit
.AutoFilter
. Колонки («d: E»). Группа
С. Колонки («я: K»)
.NumberFormat = «m/d/yy; @»
.HorizontalAlignment = xlCenter
Конец с
. Колонки («l: M») .HorizontalAlignment = xlCenter
. Колонки («n: N») .NumberFormat = «$#, ##0.00»
. Колонки («o: AR») .NumberFormat =» _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) «
. Колонки («t: Z»). Группа
. Колонки («AB: AI»). Группа
Конец с
wks. Ряд («F2»). Отборно
wkb. Windows (1).FreezePanes = True
С 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
Конец с
wkb. Сохраньте
wkb. Конец
Подводная лодка конца
|