Results 1 to 1 of 1

Thread: Excel Save as CSV and remove quotations
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    Board Regular
    Join Date
    Oct 2012
    Post Thanks / Like
    0 Post(s)
    0 Thread(s)

    Default Excel Save as CSV and remove quotations


    I have two issues, I have written this to save my workbook as excel then save a sheet as csv using the cells in one sheet as the name of the files, I run it and select my destination but the files are not saved, secondly I need to remove the " that appear at the start and end of each line when I save the csv file any help is much appreciated.

    ' Journalformatting macro
    Dim IntialName As String
    Dim fileSaveName As Variant
    InitialName = Sheets("Journal Sheet").Range("h6") & "_" & Sheets("Journal Sheet").Range("i6") & "_" & Sheets("Journal Sheet").Range("j6") & "_" & Sheets("Journal Sheet").Range("k6") & "_" & Sheets("Journal Sheet").Range("l6")
    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
        fileFilter:="Excel Files (*.xls), *.xls")
    If fileSaveName <> False Then
        MsgBox "Save as " & fileSaveName
       fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
        fileFilter:="CSV (*.csv), *.csv")
    End If
    End Sub
    Last edited by 5h1v; Jun 20th, 2019 at 04:51 AM.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts