FORMATAR EXCEL VIA VB 6

TATILILIKA 29/08/2010 10:15:42
#351614
Pessoal me ajudem, estou tentando fazer uma formatação de umas informações exportados para o Excel via VB, mas não consigo.
Preciso fazer a formatação dos campos, Ex: Moeda.
Colorir uma determinada Coluna, alterar fonte,etc.

Segue abaixo:

Private Sub cmdGeraExcel_Click()
Dim rs As New ADODB.Recordset
Dim Sql As String
Dim vNomePlan As String
Dim colunas As Integer
Dim Col As Integer

Dim objExcel As Object
Set objExcel = CreateObject([Ô]Excel.Application[Ô])

sub_Conecta_Banco

Sql = [Ô]Select * from Cliente[Ô]

rs.Open Sql, objConexao, adOpenKeyset, adLockReadOnly

With Selection.Font
.Name = [Ô]Arial[Ô]
.FontStyle = [Ô]Negrito[Ô]
.Size = 15
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

vt = 1
With objExcel

.Workbooks.Add [ô]Cria nova Planilha

[ô]Colocação dos Títulos na Primeira Linha da Planilha.
Col = 1

For Coluna = 0 To rs.Fields.Count - 1
.Cells(vt, Col) = rs.Fields(Coluna).Name
Col = Col + 1
Next


For vt = 2 To rs.RecordCount

.Cells(vt, 1) = rs!clicod
.Cells(vt, 2) = rs!clinome
.Cells(vt, 3) = [Ô]1000[Ô]

rs.MoveNext

Next

ActiveCell.FormulaR1C1 = [Ô]1000[Ô]
Range([Ô]C2[Ô]).Select
Selection.NumberFormat = [Ô]$ #,##0.00[Ô]

[ô]Ajustando as Dimensões da Tabela...
.Columns([Ô]A:AZ[Ô]).AutoFit
.Rows([Ô]1:65536[Ô]).AutoFit
.Visible = True [ô]Mostra o Excel
End With
Screen.MousePointer = vbDefault

rs.Close

Set cn = Nothing
Exit Sub
On Error GoTo 0
Exit Sub


End Sub


Valeu Pessoal
ONBASS 29/08/2010 17:55:47
#351639
TATILILIKA,

sempre q me surge alguma duvida q nao tenho idéia, eu vou no gravador de macros e tento adaptar o codigo, ,a, nao ser q seja um caso especial.
TATILILIKA 29/08/2010 19:27:12
#351653
Eu fiz isso.

Foi apartir disso que eu peguei esse:
With Selection.Font
.Name = [Ô]Arial[Ô]
.FontStyle = [Ô]Negrito[Ô]
.Size = 15
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Mas não houve resultado
WHELLNET 29/08/2010 21:30:48
#351663 Resposta escolhida
Será que não está faltando apenas você selecionar?
Plan1.Range([Ô]A1[Ô]).Select
With Selecion.....


Um exemplo que fiz tenho aqui
   With Plan.application.range([Ô]Q[Ô] & l & [Ô]:S[Ô] & l)
      .MergeCells = True
      .HorizontalAlignment = 1
      .Font.Bold = True
      .Font.Size = 14
      .NumberFormat = [Ô]#,##0.00[Ô]
      .FormulaR1C1 = [Ô]=SUM(R[-[Ô] & l - 12 & [Ô]]C:R[-1]C)[Ô]
   End With
Tópico encerrado , respostas não são mais permitidas
Voltar