Страница 1 из 1
запись данных в файл Excel из VB6.0
Добавлено: 17 ноя 2004, 14:21
ggg
помогите пожалуйста разобраться: как сохранить данные из приложения VB в файл Excel в столбец (напримерА) состоящий из 43200 ячеек, последовательно от первой до последней,
спасибо
Добавлено: 19 ноя 2004, 19:01
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