EXPORTAR RELATORIO NOTEPAD

CARLINHOSITAQUA 25/02/2013 06:53:24
#419592

Bom Dia galera VBMANIA
Precisando de mais uma ajudinha dos amigos, estou exportando dados de uma planilha para um arquivo txt(notepad),porem não consigo fazer o alinhamento das colunas.
Segue o codigo !

Sub PrintAsString()
Dim sLine As String
Dim sFName As String
Dim intFNumber As Integer
Dim lCounter As Long
Dim lLastRow As Long
Dim Path
[ô]Apenas mostrando onde os dados de entrada são
Sheets([Ô]LISTAGEM[Ô]).Activate
Range([Ô]A2[Ô]).Select
[ô]Encontre a última linha que contém dados
With Sheets([Ô]LISTAGEM[Ô])
lLastRow = .Cells(.Rows.Count, [Ô]A[Ô]).End(xlUp).Row + 3
End With
[ô]Definir o nome o caminho do arquivo !!!
sFName = Path & [Ô]Relatório Estoque Cliente.txt[Ô]
[ô]Obter um número de arquivos !!!
intFNumber = FreeFile
[ô]Criar um novo arquivo (ou substituir um já existente)
Open sFName For Output As #intFNumber
For lCounter = 1 To lLastRow
[ô]Ler dados específicos da planilha
With Sheets([Ô]LISTAGEM[Ô])
[ô]Usando guia !!!
sLine = .Cells(lCounter, 1) & vbTab
sLine = sLine & .Cells(lCounter, 2) & vbTab
If .Cells(lCounter, 4) = [Ô][Ô] Then
sLine = [Ô][Ô]
Else
sLine = sLine & [Ô]X [Ô]
sLine = sLine & .Cells(lCounter, 3) & vbTab
sLine = sLine & .Cells(lCounter, 4) & vbTab
sLine = sLine & .Cells(lCounter, 5) & vbTab
sLine = sLine & .Cells(lCounter, 6) & vbTab
End If
[ô]Determinando o formato !!!
sLine = sLine & Format(.Cells(lCounter, 9), [Ô]####[Ô]) & vbTab
sLine = sLine & .Cells(lCounter, 10)
End With
[ô]Gravar dados em arquivo
Print #intFNumber, sLine
[ô]Continuar looping até a última linha
Next lCounter
[ô]Fechar o arquivo
Close #intFNumber
[ô]Informar o usuário sobre o processo
[ô] MsgBox [Ô][ô][Ô] & [Ô][ô] Arquivo Gerado em [ô][Ô] & sFName & [Ô][ô] Impressão [Ô], vbInformation
Shell [Ô]Notepad [Ô] & sFName, vbNormalFocus
End Sub
valew galera !!!