none
Ficheiro CSV RRS feed

  • Discussão Geral

  • Boa tarde,

    Utilizo esta macro para criar um ficheiro .csv

    Preciso de ajuda, para que possa atribuir um nome ao ficheiro csv e um caminho onde deve ser guardado

    Sub ExportAsCSV()

        Dim MyFileName As String
        Dim CurrentWB As Workbook, TempWB As Workbook

        Set CurrentWB = ActiveWorkbook
        ActiveWorkbook.ActiveSheet.UsedRange.Copy

        Set TempWB = Application.Workbooks.Add(1)
        With TempWB.Sheets(1).Range("A1")
          .PasteSpecial xlPasteValues
          .PasteSpecial xlPasteFormats
        End With


        MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"

        Application.DisplayAlerts = False
        TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
        TempWB.Close SaveChanges:=False
        Application.DisplayAlerts = True
    End Sub

    sábado, 17 de novembro de 2018 13:32

Todas as Respostas

  • Boa tarde Rita.

    Não entendi o que precisa. Poderia explicar melhor?

    O nome e o endereço estão sendo definidos na linha:

     MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"

    Aguardo.


    Filipe Magno

    sábado, 17 de novembro de 2018 18:50