topic Re: Export to CSV with quotation marks in QlikView

Export to CSV with quotation marks

johann_bauer — Fri, 05 Aug 2016 07:34:39 GMT

Hi Guys,

i need to Export a Tabel to a CSV File. I made a VB Script

set sObject = ActiveDocument.GetSheetObject("TB02")

sObject.Export "C:\users\\TestFile.csv", ","

Well this works fine but i need quotation marks around the values.

I found a lot of threads about the delimiter, but are there any parameter to add quotes to the value?

Johann

Re: Export to CSV with quotation marks

marcus_sommer — Fri, 05 Aug 2016 09:39:50 GMT

There are several possibilities which you could try - storing these data per store-statement within the script, switching to a different export-call like ExportEX or maybe if it's a rather simple table you could add the quotes to each value like: '"' & sum(value) & '"' - whereby I believe you will rather need another workaround and write your data into a file. Here are an example how to loop through a table and how to write values into a text-file and here you could manipulate the output like you need:

Re: Export to Excel macro (no field grouping)

Re: Scan of scripts in .qvw files

- Marcus

Re: Export to CSV with quotation marks

johann_bauer — Thu, 11 Aug 2016 12:52:41 GMT

Hi Marcus,

I tried to use your Method with '"' & sum(value) & '"' and in qlikview it looks good.

But if i export it via a Makro, i get everytime 3 Quotes .

"""roboter""",timeIntervalListAnfang,typebits,aktuellerTag,targetFolder,pathRawData,pathRDSData,intervallTyp

"""KA2M41_03R03""","""03.02.2014""","""PLC_do_Typbit_03""","""10.08.2016""","""\\...ta\TargetFolder""","""\\.....ta\RawData""","""\\...SData""","""beliebig"""

I also tried it with a chr(34) but it didnt worked either.

I use following vba Script to create the csv.

sObject.Export "C:\users...p\TestFile.csv",","

Any other ides how to get only 1 Quote?

Re: Export to CSV with quotation marks

marcus_sommer — Thu, 11 Aug 2016 15:11:30 GMT

I have feared that this happened than it's the same behaviour like by storing values with enclosing quotes within txt-files. I remember on a solution which used double/triple/quadruple quotes to get rid of the automatically logic of adding quotes to quotes.

Another way is like above mentioned to write these data directly like in this example:

sub CSVEportWithQuotes

set table = ActiveDocument.GetSheetObject( "TB14" )

for RowIter = 0 to table.GetRowCount-1

for ColIter =0 to table.GetColumnCount-1

set cell = table.GetCell(RowIter,ColIter)

if ColIter < table.GetColumnCount-1 then vDelimiter = "," else: vDelimiter = ""

vContent = vContent & """" & cell.Text & """" & vDelimiter

vContent = vContent & chr(10)

msgbox vContent

set fso = CreateObject("Scripting.FileSystemObject")

set File = fso.OpenTextFile("\\YourServer\d\Test.csv", 2, true)

File.Writeline vContent

File.Close

end sub

- Marcus

Re: Export to CSV with quotation marks

johann_bauer — Fri, 12 Aug 2016 07:32:26 GMT

Hi Marcus,

thank you for that vba Script.

It works perfectly, just does what i need.

Kind Regards

Johann

Re: Export to CSV with quotation marks

hirenjadiya — Sun, 24 Jun 2018 00:26:22 GMT

Hi Marcus,

We have a similier situation like Johann.

I have 2 questions over here

1. The above macro will run on server side or on client side?

2. Is the above macro independent of OS. Meaning will it run on MAC?

Thanks in advance.

Regards,

Hiren Jadiya

Re: Export to CSV with quotation marks

marcus_sommer — Sun, 24 Jun 2018 16:54:36 GMT

I never tried it on the server side else only with the desktop client on the server or the local machine or with the IE plugin. Regarding to the MAC I don't know if MAC supports VBS - AFAIK VBA is supported by using MS Office for MAC but if it includes all necessary libraries for VBS ... ?

- Marcus

Re: Export to CSV with quotation marks

VivenReddy — Tue, 07 Sep 2021 22:26:40 GMT

Hi Hiren

Were you able to get this working in Accesspoint?

Its working on the desktop client but not with accesspoint.

Regards

Viven