ник: Евген
Лукас, Вы гений!
Я немного модифицировал Ваш код:
Private Sub btnExport_Click()
Dim i As Integer
Dim strSQL As String
strSQL = "SELECT "
For i = 0 To Me.Section(0).Controls.Count - 1
If Me.Controls("flg" & i).Value Then
strSQL = strSQL & Me.Section(0).Controls(i).ControlSource & ", "
End If
Next i
strSQL = Left$(strSQL, Len(strSQL) - 2) & " FROM Ваша таблица"
MsgBox strSQL
End Sub
А именно, изменил две последние строки на:
strSQL = Left$(strSQL, Len(strSQL) - 2) & " INTO Моя таблица" & " FROM Ваша таблица"
CurrentDb.QueryDefs("Мой запрос").SQL = strSQL
Таким образом я изменяю текст существующего в базе запроса на sql-строку, собранную Вашим кодом, потом с помощью запроса создаю таблицу с выбранными полями, а уже таблицу вывожу в эксель.
Огромное Вам спасибо!