Macro converter CSV para XLS

Lu Reis · 12 de novembro de 2013

Olá pessoal,

Vocês sabem como através de uma macro posso abrir um arquivo .CSV e salva-lo como .XLS ?

Tentei gravar uma macro, mas não funciona ..

Obrigado

zinhovba · 13 de novembro de 2013

Bom dia!!

Tente adaptar.......

Sub TenteAdaptar_I()

Dim wb As Workbook
Dim strFile As String, strDir As String

strDir = "C:\"
strFile = Dir(strDir & "*.csv")

Do While strFile <> ""

    Set wb = Workbooks.Open(strDir & strFile)
    With wb
        .SaveAs Replace(wb.FullName, ".csv", ".xls"), 50
        .Close True
    End With
    Set wb = Nothing
Loop

End Sub

Sub TenteAdaptar_II()
    Dim str1 As Variant, str2 As String

    Application.DisplayAlerts = False

    str1 = Dir("Z:\1b\*.csv")
    Do While str1 <> ""
        Workbooks.Open Filename:="Z:\1B\" & str1 '<----Mude de acordo com sua necessidade
        str2 = Left(str1, Len(str1) - 3)
        ActiveWorkbook.SaveAs Filename:="Z:\1B\" & str2 & "xls", FileFormat:=xlExcel9795 ' <----Mude para sua versão
        ActiveWindow.Close
        str1 = Dir
    Loop
    Application.DisplayAlerts = True
End Sub

Lu Reis · 14 de novembro de 2013

Tentei, mas não consegui ...

A macro "TenteAdaptar_I" fica fazendo um loop, abrindo e fechando um arquivo e é possível notar na barra inferior do excel que ela alterna entre o .csv e o .xls.

Na outra macro, está dando erro justamente na linha da versão do Excel, mas eu não mudei porque não sei onde conseguir essa informação.

De qualquer forma, é possível notar que ele cria/abre o arquivo que estava .csv como .xls e a formatação não está correta ... Não sei se é por causa dos erros nas macro ....

Desde já agradeço sua atenção !