Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: snipe
я делаю вот так...

Dim jkl As String
jkl = CurrentProject.Path 'считываем путь проекта
Dim dfr As Object
Dim dfg As Object
Set dfg = CreateObject("Excel.Sheet")
Set dfr = dfg.Parent
dfr.Workbooks.Add jkl & "\ШаблонОтчета.xls" 'открываем шаблон
dfr.Visible = False 'True если показать окно Excel, но лучше потом когда всю инфу выгрузишь
dfr.ActiveWindow.WindowState = xlMaximized

'далее dfr. и чего хочешь сделать dfr.cells(1,1)="Всякая ерунда" запишет в ячейку А1 фразу всякая ерунда


попробывал выгрузку в ексель получился вот такой код
DoCmd.OutputTo acTable, "Таблица1", "MicrosoftExcelBiff8(*.xls)", "c:\просто.xls", False, "", 0
обратите внимание как Акс написал тип выводимых данных и имя файла (а точнее путь)
проверил файл - галка "только чтение" сброшена

далее - зачем п. 7,8,9,10,11
типа - ага что бы непотерялись данные будем после каждого действия сохраняться закрываться потом открываться получать доступ к нужному листу немного редактировать и так по кругу

еще - проверьте подключение библиотеки Microsoft Excel в Tools-References(это в редакторе VBA Акса) - если библиотека не подключена то некоторое специфичные для Екселя команды выполняться не будут


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.