COMO MANIPULAR AS COLUNAS DO EXCEL

USUARIO.EXCLUIDOS 29/08/2007 15:36:08
#233302 Resposta escolhida

cara, tenho 2 exemplos sobre excel.
Espero que ajude

1- bom nesse caso eu puxo as informações do banco.

dim objExcel as Object

Set objExcel = CreateObject("Excel.application")

With objExcel
.Visible = True
.Workbooks.Add

'Essa linha esse puxa um RecordSer
.Cells(2, 1).CopyFromRecordset rsRelatorio
.Cells(1, 1).Formula = "Solicitação"
.Cells(1, 2).Formula = "Analista"
.Cells(1, 3).Formula = "Data de entrega"
.Cells(1, 4).Formula = "Hora de distribuição"
.Cells(1, 5).Formula = "Data de aprovação"
.Cells(1, 6).Formula = "Aprovador"
.Cells(1, 7).Formula = "Data de atraso"

'Aqui define bordas e cores
.Range("A:G").Borders.Color = RGB(1, 1, 1)
.Columns("A:AY").EntireColumn.AutoFit
'.Range("A:A").Select
.Selection.NumberFormat = "0"
End With



2 - Ele cria uma planilha onde voce quiser
Dim fso As New Scripting.FileSystemObject
Dim txtfile As Scripting.TextStream

'Cria nova planilha
Set txtfile = fso.CreateTextFile(App.Path & "\Usuário1.xls", True)
'Faz a divisória por |
txtfile.Write (rs1.GetString(adClipString, , "|", vbCrLf, ""))

O segundo exemplo voce pode fazer a divisiao po ;, Vá em Datas, text to columns, la ele separa por colunas.
Espero ter ajuda
Abraços