seria tipo esse arquivo, entao tenho varias planilhas mesmo diferentes uma da outra, onde o mesmo layout é somente as 3 primeiras linhas do arquivo texto,, o restante cada palnilha é diferente, no codigo abaixo eu queria que o inicio enccontrasse o arquivo TESTE.TXT abrisse salvasse as exportações e quando fizesse isso na outrra planilha ele encontrasse esse mesmo arquivo porem deixasse as 3 primeiras linhas intactas, começasse a escrever apartir da 4 linha.
ok.
Sub ExportarXLS_TXT()
Dim ArquivoTXT As String
Dim i As Long, j As Byte
Dim VetorColuna
Dim Linha As String
'Vetor de layout com a quantidade de caracteres de cada coluna
VetorColuna = Array(1, 2, 3, 6, 3, 7, 12, 2, 35, 8, 7, 8, 1, 1, 2, 20, 8, 35, 8, 4, 3, 3, 12)
'Define o nome do arquivo texto
ArquivoTXT = "C:TesteTeste.txt"
'Abre arquivo texto para exportar os dados
Open ArquivoTXT For Output As #1
'Supondo que a primeira linha seja cabeçalho, começa a exportação da linha 2
For i = 2 To [A2].CurrentRegion.Rows.Count
'Define a variável "Linha" como branco para iniciar o ciclo de preenchimento
Linha = ""
'Ajusta a quantidade de caracteres de cada célula a ser exportada conforme definido no layout
'do "VetorColuna"
For j = 0 To 22
'Se a quantidade de caracteres for igual ao previsto no layout não faz ajuste
If Len(Cells(i, j + 1).Value) = VetorColuna(j) Then
Linha = Linha & Cells(i, j + 1).Value
'Caso seja seja diferente preenche com brancos
Else
Linha = Linha & Left(Cells(i, j + 1).Value & WorksheetFunction.Rept(" ", VetorColuna(j)), VetorColuna(j))
End If
Next
'Exporta a linha para o arquivo texto
Print #1, Linha
Next
'Fecha o arquivo texto
Close #1
End Sub
Postado : 23/05/2012 1:55 pm