Bom dia a todos.
Estou tentanto exportar uma tabela para excel...
A principio não estou me preocupando com formatação...apenas quero exportar.
Peguei um expemplo num site mas está dando o erro:
1004 - Application-Defined or Object-Defined Error
Estou usando conexão ADO
E fiz referência em Microsoft Excel 10.0 Object Library
Segue abaixo o código...se alguém puder testar e me ajudar...
Dim sql As String
Dim oExcel As Object
Dim objExlSht As Object
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
Set objExlSht = oExcel.ActiveWorkbook.Sheets(1)
Set rs = New ADODB.Recordset
sql = "select * from cliente"
rs.Open sql, cn ', adOpenStatic, adLockOptimistic
While Not rs.EOF
With Worksheets("Plan1")
.Range("A1").CurrentRegion.Clear
Application.Intersect(Range(Rows(1), Rows(rs.RecordCount)), Range(Columns(1), _
Columns(rs.Fields.Count))).Value = _
Application.Transpose(rs.GetRows(rs.RecordCount))
End With
rs.MoveNext
Wend
objExlSht.SaveAs "C: este.xls"
oExcel.Visible = True
rs.Close
Set rs = Nothing
Pelo que vi... o "Application.Transpose" não auto completa ... tenho a impressão que o metodo Transpose não funciona no meu VB ou está faltanto alguma referencia.
Agradeço a todos desde já.
