Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Проблемы...

Тема: Проблемы

15.06.2007 21:03:22

YEP1

9 сообщения

Тема: Проблемы

Как содержимое списка можно опубликовать в Excel, спасибо.

P.S. Проблемы с базой данных
Автор: Евгений от 13.11.2002 14:34:27 Источник ...

15.06.2007 21:03:22

All

4316 сообщения

RE: Проблемы

' создание прайс листа

Public Function funExcelCreatePrice()
Dim app As Excel.Application 'Приложение программы
Dim strXLS As String ' Имя документа
Dim strXLT As String ' Имя шаблона
Dim ctl As Control ' Управляющие элементы в форме
Dim s As String ' Вспомогательная строка
Dim i As Long, j As Long, cnt As Long

On Error GoTo 999
' Определяем имена шаблона и документа
strXLT = "c:\шаблон.xlt"
strXLS = "c:\лист1.xls"
strDOC = "price"

' Управление документом Excel
Set app = New Excel.Application 'Новое приложение
app.Visible = True 'Отображаем документ
app.Workbooks.Add strXLT 'Добавляем шаблон
app.Worksheets(strDOC).Activate ' Устанавливаем фокус
On Error Resume Next ' Отключаем ошибки
app.ActiveWindow.WindowState = xlMaximized ' Максимилизация окна

' Просматриваем все элементы запроса
Dim rst As DAO.Recordset, dbs As DAO.Database
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("qryPriceList")
With app.Worksheets(strDOC)
rst.MoveLast
rst.MoveFirst
cnt = rst.RecordCount + 5 - 1
For i = 5 To cnt
.cells(i, 1) = i - 4
.cells(i, 2) = rst!Товар
.cells(i, 3) = rst!Артикул
.cells(i, 4) = rst!Цена
rst.MoveNext
Next
End With
rst.close
' ...
app.ActiveWorkbook.SaveAs strXLS ' Сохраняем файл
Exit Function
999:
MsgBox Err.Description 'Ошибка
Err.Clear
app.Quit
End Function

P.S. Проблемы с базой данных
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Проблемы...

Поиск

Список форумов

Начало | Forums