запись данных в файл Excel из VB6.0

[ggg]

помогите пожалуйста разобраться: как сохранить данные из приложения VB в файл Excel в столбец (напримерА) состоящий из 43200 ячеек, последовательно от первой до последней,
спасибо

[mosquit]

Такой вариант подходит?

Dim myData(43200) As Long

Private Sub Command1_Click()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i As Long

'для примера заполняем массив данными
For i = 0 To 43199
myData(i) = i
Next
'-----------------------------------

On Error GoTo xlerr

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

For i = 0 To 43199
xlSheet.Cells(i + 1, 1).Value = myData(i)
DoEvents
Next

xlApp.Visible = True
out:
Set xlApp = Nothing
Exit Sub
xlerr:
MsgBox Err.Description
Resume out

End Sub