Hace tiempo probe con esta y funciono perfectamente para pasarlo a excel, espero te sirva
Set objExcel = New Excel.Application objExcel.SheetsInNewWorkbook = 1 objExcel.Workbooks.Add objExcel.Visible = True objExcel.SheetsInNewWorkbook = 1
Dim ContX As Integer, ContY As Integer ContX = 0 ContY = 0
For ContX = 0 To Tabla.Rows - 1 For ContY = 0 To Tabla.Cols - 1 With objExcel.ActiveSheet .Cells(ContX + 1, ContY + 1) = Tabla.TextMatrix(ContX, ContY) End With Next Next