opslaan CSV

[DirkB]

Hoi,

Op onze server werken we (nog) met office 2010
We hebben een sheet waar we journaalposten verdelen
Deze moeten ingeladen worden in een programma dmv een csv.

Als ik lokaal werk (office 2016) kan ik de onderstaande code gebruiken:
Ik heb lokaal mijn instelling voor decimaalteken op een punt gezet hiervoor.

Op de server zijn de instellingen:
Lijstschedingsteken: ;
decimaalteken: ,

kunnen jullie misschien helpen met een code om een standaard excel blad op te slaan als een .csv met komma's gesheiden en met punten als decimaalteken?
met gebruik van excel 2010?

Alvast dank

Application.DisplayAlerts = False
  With ActiveWorkbook
    oldname = .Name
    oldpath = .Path
    oldformat = .FileFormat
    .Sheets("pin import").SaveAs _
      Filename:="C:\ibo\Pin import.csv", FileFormat:=xlCSVUTF8, local:=True
    .SaveAs Filename:=oldpath + "\" + oldname, FileFormat:=oldformat
  End With
  Application.DisplayAlerts = True

 

[edmoor]

Laat dan eens die , local:=True weg.

 

[DirkB]

thnx

Dat dus...
bedankt.
Liep nog even vast op FileFormat:=xlCSVUTF
Maar met FileFormat:=xlCSV
werkt het

gr Dirk

 

[edmoor]

Korte uitleg.
Excel VBA gebruikt standaard de Amerikaanse notatie, wat jij wilt dus.
Als je Local:=True gebruikt geef je aan dat je er de instellingen voor wilt gebruiken zoals ze in Windows zijn ingesteld bij de Regionale instellingen.
Daarom is het dus voldoende om die gewoon weg te laten

 

[VenA]

Volgens mij is het fileformat niet nodig als je een bestand opslaat met 1 van de Excelextensies
Dan zou het iets korter kunnen:
Gebruik voor oldname = .fullname
Dan wordt de Saveas
Saveas oldname
Scheelt wat variabelen en samenvoegingen.