ник: Krusz
Private Sub VigXL_Click()
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.Cells(1, 1).CopyFromRecordset RST
ExcelSheet.SaveAs "C:\ TEST.xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing
End Sub
RST - это рекордсет который я и хочу выгрузить