ALINHAR CELULA NO VBA

SILVERDRAGON 03/09/2007 08:58:27
#233817
Galera,

Estou exportando 1 arquivo em txt e gostaria de saber como posso alinhar o conteudo da celula corretament na hora da exportacao......
USUARIO.EXCLUIDOS 03/09/2007 09:02:43
#233819
Silver,

Você está importando para o Excel ?
USUARIO.EXCLUIDOS 03/09/2007 09:08:59
#233820
Dim objExcel As Object
Set objExcel = CreateObject("Excel.application")
objExcel.Range("A:G").Borders.Color = RGB(1, 1, 1)
objExcel.Columns("A:AY").EntireColumn.AutoFit

Veja se isso te ajuda, no caso ai é em vb6 usei um objeto excel, creio que em vba nao preci-se pois ele ja é do excel rss
abraços
USUARIO.EXCLUIDOS 03/09/2007 09:09:57
#233821 Resposta escolhida
Silver...um breve exemplo dos 3 alinhamentos..e tb com o alinhamento vertical

Range("C5:D5").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
End With
Range("E5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Range("F5").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
End With

Boa sorte
SILVERDRAGON 03/09/2007 09:12:31
#233822
Entaum eu tenho uma planilha e estou tentando exporta-la para .Txt....
Porem sai tudo desconforme....

Esse é o código para exportacao


  Sub exportar()

Dim X As Variant
Dim strDataNf, strCliente, strNumNf, strValorRS, strNumEmp, strNumOC As String

  Open "C:\TESTE_.txt" For Output As #1

For lin = 2 To 512

   strDataNf = Replace(Right$(Sheets(1).Cells(lin, "A"), 10), "-", vbNullString)
   strCliente = Left$(Sheets(1).Cells(lin, "B") & Space(40), 40)
   strNumNf = Right$(Sheets(1).Cells(lin, "C"), 5)
   strValorRS = Replace(Sheets(1).Cells(lin, "D"), ",", vbNullString)
   strNumEmp = Right$(Sheets(1).Cells(lin, "E"), 6)
   strNumOC = Right$(Sheets(1).Cells(lin, "F"), 7)

    Print #1, strDataNf & strCliente & strNumNf & Space(15) & strValorRS & Space(15) & strNumEmp & Space(15) & strNumOC

Next
  Close #1

End Sub

USUARIO.EXCLUIDOS 03/09/2007 09:59:10
#233829
Silver, vc está abrindo pelo notepad?
Tipo..o notepad não organiza por colunas (cada caracter tem um tamanho diferente)
Tenta abrir pelo ultraEdit (http://baixaki.ig.com.br/download/UltraEdit-32.htm) ele arruma todos os caracteres (deixa todos com o msm tamanho na visualização).

só mais uma pergunta o strDataNf e o strCliente é para ser exibido juntos msm ou vc vai colocar um space neles?
Tópico encerrado , respostas não são mais permitidas
Voltar