Semicolon Delimiter instead of comma ?

Hi
I have been using Jerry Beaocaire's code to output CSV files, and it works great, except for 2 problems:
1: The delimiters being Comma, and I need them to be Semicolon. I have tried altering the code to FileFormat:=xlCSVMSDOS. But it makes no difference, I have also tried altering the windows setting, but it doesn't seem to affect it at all.

Is there any way to alter the code to use Semicolon instead of Comma ?

2: Im using this

Option Explicit

Private Sub Worksheet_Activate()
Dim LR As Long
Range("A2:B" & Rows.Count).ClearContents

    With Sheets("INPUT")
        .Range("A:F").AutoFilter Field:=2, Criteria1:=Me.Name
        .Range("A:F").AutoFilter Field:=6, Criteria1:=">=0.00001"
        LR = .Range("B" & Rows.Count).End(xlUp).Row
        If LR > 1 Then _
            .Range("A2:A" & LR & ",E2:E" & LR).Copy Range("A2")
        .AutoFilterMode = False
    End With

Beep
Range("A2").Select
End Sub

And it seems to break the code to make the CSV files. Any suggestions on how to solve this. I was thinking maybe two buttons, one to sort with the above code(removing the macro from the worksheet), and one to make the CSV files.

Thanks for all help

Hi.
I can't find a way to save csv with ";" instead of commas using "saveas"..
however, I would recommend reading this for a solution on how to export to any textfile, using any separator you want.
the code is highly customizable :-)

You could open the file in a text editor like notepad and just replace all the commas with semi-colons.

Other than that to do it in Excel concatenate your cells together with the semi-colon and paste special them to a new worksheet, save that as a text file with the required file extension.

Dom

Hi there,

I'd the same problem... and i didn't found a solution anywhere... But i found my own solution that worked for me!!!!

I'm brazilian, i use the office in english language because it is easier to study and solve problems when they appear... but the csv files in brazil use semicolons to separate the data.

looking at the syntax of the open command, i saw the "LOCAL" parameter...

"True saves files against the language of Microsoft Excel (including control panel settings). False (default) saves files against the language of Visual Basic for Applications (VBA) (which is typically United States English unless the VBA project where Workbooks.Open is run from is an old internationalized XL5/95 VBA project)." (Excel Help)

Then, i put "local:=true" at the syntax and finally worked for me!!!! (But works because my excel and region are to use ";" for list separators.)

Workbooks.Open Filename:="E:\Balancetes\01-2012\Balancete 01-2012.csv", local:=True

Best Regards

Gerez