Eén werkblad dmv macro opslaan als CSV

[Dijkie01]

Hallo allemaal,

Als beginneling ben ik een beetje aan het hobbyen met Excel.

Nu heb ik , met behulp van voorbeelden op deze site,een macro gemaakt om één werkblad op te slaan, alleen moet deze worden opgeslagen als .csv extensie gescheiden door lijstscheidingstekens.

Nu staat het zo: filenaam = ActiveSheet.[B2].Value & ".csv"

Alleen dan krijg ik niet de juiste opmaak wanneer ik het open.



Heeft iemand een oplossing hiervoor?


Gr,
Marcel

 

[troedeboer]

Hieronder een stukje code dat om een naam vraagt en dit opslaat als csv

    ' prompts the user for the filename to save the CSV file with.
    fileSaveName = Application.GetSaveAsFilename( _
        fileFilter:="Comma Seperated Values (*.csv), *.csv")

    ' displays pop-up box informing user of Save-to location
    If fileSaveName <> False Then
        MsgBox "File will be saved as: " & fileSaveName
    End If
      
        
    ' saves the worksheet with the previously specified location and filename
    ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlCSVWindows

 

[Dijkie01]

Tot zover had ik hem al klaar met behulp van eerdere postings (waarom het wiel opnieuw uitvinden, haha)

Sub Leverbevestiging_bewaren()
Dim filenaam As String
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
filenaam = ActiveSheet.[B8].Value & ".csv"
Sheets("Leverbevestiging").Copy
[A1.J44].Select
    For Each sh In Worksheets
        With sh.UsedRange
            .Value = .Value
        End With
        If sh.Index > 1 Then
            sh.Delete
        End If
    Next
With ActiveWorkbook
    .SaveAs "C:\Test1\" & filenaam, xlNormal, "", "", False, False
    .Close
End With
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
[A1].Select
MsgBox "Leverbevestiging is opgeslagen"
End Sub

Komt in de juiste map terecht, onder de juiste naam, alleen niet in de gewenste csv extensie.

Marcel

 

[troedeboer]

Het is wel handig om dat stukje al in jouw eerste post te zetten, dat scheelt ons weer het wiel opnieuw uitvinden
als je mijn post doorleest zie je de SaveAs staan. Hier even bij kijken voor de oplossing.

 

[Dijkie01]

Sorry was een beetje onhandig van mij , in ieder geval bedankt. Ik ga even verder.