quote's uit string

[Sjoef]

Ben ik weer.....

Ik roep vanuit een word document excel aan om van de string(s) een .CSV te maken.

Dim FilePath, oExcel, oSheet

FilePath = "c:\temp\temp.xlsx"

Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open (FilePath)
Set oSheet = oExcel.ActiveWorkbook.Worksheets(1)

oSheet.Cells(1, 1).Value = strHeader
oSheet.Cells(2, 1).Value = strTemp
oSheet.Cells(3, 1).Value = strTempP

oExcel.DisplayAlerts = False
oExcel.ActiveWorkbook.SaveAs "c:\temp\bestand", FileFormat:=6

bestand.csv zou dan geen dubbele quotjes moeten hebben.

 

[dnties]

Test eens met:
oExcel.ActiveWorkbook.SaveAs "c:\temp\bestand", FileFormat:=xlTextMSDOS

Hierbij moeten wel elke entry op een aparte regel staan (dus 1 kolom moet gesaved worden), anders komen meerdere waarden per regel, gescheiden met Tabs, niet een ,
Anders ook eens testen met FileFormat xlcsv , xlCSVMSDOS of xlCSVWindows

Tijs.

 

[edmoor]

Inderdaad. Als een cel bijvoorbeeld dit bevat: aaa,bbb,ccc zal de export er quotes omheen zetten, tenzij je er Local:=True aan toevoegt:
oExcel.ActiveWorkbook.SaveAs "c:\temp\bestand", FileFormat:=6, local:=True

M.a.w., als er tekens in een cel voor komen die gelijk zijn aan het te gebruiken scheidingsteken, zal de export er quotes omheen zetten.
Voor NL is het standaard scheidingsteken een ; en voor USA een komma. Door Local:=True te gebruiken forceer je dus het gebruik van de NL standaard, de ; dus, als scheidingsteken en is deze niet meer gelijk aan een komma waardoor er geen quotes omheen gezet zullen worden.

 

[Sjoef]

Hi, ik heb Loacal:=True toegevoegd maar helaas heeft de csv nog steeds dubbele quotjes.

 

[dnties]

Kijk ook naar posting #22

Tijs.

 

[edmoor]

Plaats anders je document eens, al dan niet in uitgeklede vorm.

 

[snb]

Zonder kennis van de gegevens in het Excelbestand blijft het gissen:
Bovendien kan het veel simpeler met:

Sub M_snb()
   with GetObject("c:\temp\temp.xlsx")
      .saveas "c:\temp\temp_001.csv",23
      .close 0
   end with
End sub