Estou tentando exportar uma tabela para o excel e não consigo solucionar o erro:
Veja o Código:

Private Sub Command3_Click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add


Dim DataArray(1 To 200, 1 To 9) As Variant
Dim r As Integer
Dim NumberOfRows As Integer

NumberOfRows = Data1.Recordset.RecordCount
Data1.Recordset.MoveMin

For r = 1 To NumberOfRows
DataArray(r, 1) = Data1.Recordset.Fields("empresa")
DataArray(r, 2) = Data1.Recordset.Fields("valor")
DataArray(r, 3) = Data1.Recordset.Fields("unidade")
DataArray(r, 4) = Data1.Recordset.Fields("cooperado")
DataArray(r, 5) = Data1.Recordset.Fields("baixado")
DataArray(r, 6) = Data1.Recordset.Fields("pago")
DataArray(r, 7) = Data1.Recordset.Fields("nome")
DataArray(r, 8) = Data1.Recordset.Fields("terceiro")
DataArray(r, 9) = Data1.Recordset.Fields("codigo")
Data1.Recordset.MoveNext
Next


Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1:I1"). .Bold = True

oSheet.Range("A1:I1").Value = Array("Empresa", "Valor", "Unidade", "Cooperado", "Baixado", "Pago", "Nome", "Terceiro", "Código") ' Put headers of fields to excel file


oSheet.Range("A2").Re (NumberOfRows, 9).Value = DataArray

oBook.SaveAs "C:     emp     este.xls"
oExcel.Quit

Data3.Recordset.MoveMin

MsgBox "Siparis listesi kaydedildi", 64, "Info"

End Sub



Agora a mensagem de erro:

Run-time errror 9
Sub out of range

O que está faltando...

Marcelino Neto

Ele está avisando que está fora da faixa, voce tem certeza que só tem 200 registros na sua recordset?

Só pra teste tenta alterar a linha:

For r = 1 To NumberOfRows

Por:

For r = 1 To 200