Всем привет!
Есть форма, на ней кнопка.
Мне нужно чтобы по нажатию кнопки формировался эксель из результата моего запроса.
Но в моем запросе есть параметр, который пользователь руками вводит.
И при нажатии кнопки у меня ругается что слишком мало параметров, хотя вводить параметр окно не показывает.
Запрос типа:
1.
2.
SELECT * FROM TABLE1
WHERE Дата=[Введите дату:];
Привязал к кнопке процедуру:
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.
Private Sub Кнопка36_Click()
On Error GoTo Err1
'Переменные
Dim XLApp As Object, XLBook As Object, XLSheet As Object, RS As Object
Dim CountColumn As Integer, WidthColumn As Integer, StrSQLInExcel As String
'Создаем объекты: Excel, Книгу, Лист
Set XLApp = CreateObject("Excel.Application")
Set XLBook = XLApp.Workbooks.Add
Set XLSheet = XLBook.Worksheets(1)
Set RS = CurrentDb.OpenRecordset("Тест")
'Узнаем количество колонок в Recordset
CountColumn = RS.Fields.Count
'Циклом заполняем заголовки колонок
For i = 0 To CountColumn - 1
'Передвигаемся по колонкам в Excel путем смещения
XLSheet.Range("A1").offset(0, i).Value = RS.Fields(i).Name
'Немного подкорректируем внешний вид выгрузки
'Ширину колонки определим динамически на основе длины поля, но не более 20 и не менее 6
WidthColumn = Len(RS.Fields(i).Name) + 2
If WidthColumn > 20 Then
WidthColumn = 20
ElseIf WidthColumn < 6 Then
WidthColumn = 10
End If
'Задаем для заголовка
'Перенос по словам
XLSheet.Rows(1).WrapText = True
'Выравнивание
'Цвет фона
XLSheet.Rows(1).Interior.ColorIndex = 15
'Ширина
XLSheet.Columns(i + 1).ColumnWidth = WidthColumn
Next
'Записываем Recordset в Excel
XLSheet.Range("A2").CopyFromRecordset RS
'Делаем видимым Excel
XLApp.Visible = True
'Закрываем Recordset
RS.Close
Set RS = Nothing
Ex1:
Exit Sub
Err1:
MsgBox Err.Description
Resume Ex1
End Sub
