Вопрос : Польза макроса Эксел в доступе 2000 MS

Здравствулте! - я имею макрос доступа последний шаг выводит наружу таблица к Ехчел 9ъ - форма 2003.  Я после этого раскрываю архив Эксел и бегу макрос ручно для того чтобы форматировать архив (изменяя купели, замерзая форточки, условно форматизацию, форму печати, etc.).

I хочет исключить ручной второй процесс.  Можете вы врезать макрос Эксел в доступ поэтому выходной файл уже форматирован?

I am послушник на VBA но должно мочь снабдить с хорошими инструкциями.    Thanks.
class=

Ответ : Польза макроса Эксел в доступе 2000 MS

Hi,

Я нормальн не смотрю все базы данных на EE (был бы моей оплачивая работой), но я посмотрел ваш макрос Эксел. Кодему под бегами от доступа, поэтому вы не нужен macro workbook больше. Легке поддерживать эту дорогу в дальнего прицела. Я думаю я сохранило большое часть из вашего Кодего, в только фракция своей первоначально длине. Пожалуйста сравните его к вашему первоначально записанному макросу и см. если я забыл важную линию.

Кодий раскроет архив названный TestOutputFile.xls в таком же скоросшивателе как база данных доступа. Отрегулируйте соответственно. Оно будет работать ли архив уже открыт или не, и использовать в настоящее время пример Эксел если одно имеющееся.

(°v°)

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48:

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. Конец Подводная лодка конца