Excel Macro - Export fiche au format csv et de les parcourir pour enregistrer répertoire

J'ai réussi a obtenu une macro de travail qui fait ce que j'ai besoin de faire, mais je voudrais faire mieux, et ne le peuvent pas.

-- Ce bit fonctionne --
En cliquant sur un bouton dans excel, l'utilisateur exporte une fiche spécifique pour un fichier csv avec une dynamique de nom de fichier et l'enregistre au format csv dans un pré-déterminé répertoire.

-- Peut-il faire cela à la place --
Au lieu d'économiser pour un répertoire prédéterminé, puis-je avoir la fenêtre de navigation montrer qu'ils puissent choisir un répertoire pour enregistrer? Je ne peux pas comprendre comment le faire.

Voici ma macro:

Sub Export()
Dim MyPath As String
Dim MyFileName As String
MyPath = "C:\importtest"

MyFileName = "MR_Update_" & Sheets("Monthly Review").Range("D3").Value & "_" & Format(Date, "ddmmyyyy")

If Not Right(MyPath, 1) = "\" Then MyPath = MyPath & "\"
If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"

Sheets("Export Data").Copy

With ActiveWorkbook

    .SaveAs Filename:= _
        MyPath & MyFileName, _
        FileFormat:=xlCSV, _
        CreateBackup:=False

    .Close False
End With
End Sub

Démarrez la lecture de Application.Propriété FileDialog (Excel) et il devrait vous aider.

InformationsquelleAutor Maz | 2014-02-05

3

Comme Patrick l'a suggéré, vous êtes à la recherche pour le .FileDialog de la propriété.

Pour la mettre en œuvre, essayez ceci:
```
Sub Export()
Dim MyPath As String
Dim MyFileName As String

MyFileName = "MR_Update_" & Sheets("Monthly Review").Range("D3").Value & "_" & Format(Date, "ddmmyyyy")

If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"

Sheets("Export Data").Copy

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = "" '<~~ The start folder path for the file picker.
    If .Show <> -1 Then GoTo NextCode
    MyPath = .SelectedItems(1) & "\"
End With

NextCode:

With ActiveWorkbook
    .SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlCSV,CreateBackup:=False
    .Close False
End With
End Sub
```
- Génial, merci. Qui a fonctionné parfaitement.
- Après avoir joué avec elle, j'ai rencontré un bug. Il fonctionne très bien, cependant, si vous essayez d'enregistrer un deuxième temps, je reçois un popup disant fichier existe déjà, voulez-vous de les remplacer. Si vous cliquez sur oui, il fonctionne très bien, si vous cliquez sur non, il se bloque. Debug va à cette ligne:.SaveAs Filename:=MyPath & Monfichier, FileFormat:=xlCSV, CreateBackup:=False ;des idées?
- Voir cette SI la poste. Plus précisément, je pense que vous êtes à la recherche pour le ConflictResolution:=xlLocalSessionChanges argument de la SaveAs méthode.
InformationsquelleAutor ARich
6

Excel dispose d'une fonction intégrée de FileSave Dialogue. Il est appelé .GetSaveAsFilename. L'utiliser.

Syntaxe

expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Titre, ButtonText)

Utilisation
```
Dim fileSaveName As Variant

fileSaveName = Application.GetSaveAsFilename( _
                                    fileFilter:="Excel Files (*.csv), *.csv")
If fileSaveName <> False Then
    '
    '~~> Your code to save the file here
    '
End If
```
- +1 Grande solution pour les OP de la question.
InformationsquelleAutor Siddharth Rout

Essayer Cette......

Sub Export()
Dim MyPath As String
Dim MyFileName As String
MyPath = "C:\importtest"

MyFileName = "MR_Update_" & Sheets("Monthly Review").Range("D3").Value & "_" & Format(Date, "ddmmyyyy")

If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"

Sheets("Export Data").Copy

With ActiveWorkbook

    .SaveAs Filename:= _
        MyFileName, _
        FileFormat:=xlCSV, _
        CreateBackup:=False

    .Close False
End With
End Sub

InformationsquelleAutor CrashOverride

Voici un script que j'ai utilisé dernièrement que j'aime beaucoup. Pensé que je laisserais ici:

Sub ExportCSV()

        Dim FlSv As Variant
        Dim MyFile As String
        Dim sh As Worksheet
        Dim MyFileName As String
        Dim DateString As String

        DateString = Format(Now(), "yyyy-mm-dd_hh_mm_ss_AM/PM") '<~~ uses current time from computer clock down to the second
        MyFileName = DateString & "_" & "Whatever you like"

        Set sh = Sheets("Sheet you'd like to export")
        sh.Copy
        FlSv = Application.GetSaveAsFilename(MyFileName, fileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Where should we save this?")

     If FlSv = False Then GoTo UserCancel Else GoTo UserOK

    UserCancel:         '<~~ this code is run if the user cancels out the file save dialog
        ActiveWorkbook.Close (False)
        MsgBox "Export canceled"
        Exit Sub

    UserOK:             '<~~ this code is run if user proceeds with saving the file (clicks the OK button)
        MyFile = FlSv
        With ActiveWorkbook
            .SaveAs (MyFile), FileFormat:=xlCSV, CreateBackup:=False
            .Close False
        End With


    End Sub

InformationsquelleAutor peter.domanico

Vous devez vous connecter pour publier un commentaire.