Передача данных из запроса Access в Excel - ошибка 91

[Alx424]

Требуется передать данные из запроса Access в Excel. Использую пример Тихвинского с этого сайта. На последней строке выдается ошибка: Object variable or With block variable not set (Error 91)

Private Sub Кнопка321_Click()
Dim WS As Worksheet
Dim rs As Object
Dim sql As String
sql = "rrr"
Set rs = CurrentDb.OpenRecordset(sql)
WS.Cells(3, 2).CopyFromRecordset rs
End Sub

[Rainbow]

Переменная WS не инициализирована.
А что за пример? Ссылочку дай.

[Alx424]

И как же переменную ws инициализировать?

Ссылка:
http://vbstreets.ru/VBA/Articles/65934.aspx

[coderx]

И как же переменную ws инициализировать?

Для нового листа:
Set WS = Excel.Worksheets.Add
Для текущего листа
Set WS = Excel.ActiveSheet
Для существующего листа:
Set WS = Excel.Worksheets(1)