ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   How do I set the delimiter to save as a CSV? (https://www.excelbanter.com/excel-programming/334820-how-do-i-set-delimiter-save-csv.html)

Jeroen Hofs

How do I set the delimiter to save as a CSV?
 
How do I set the delimiter when I save a file in CSV format, if my system
settings have the delimiter set to semicolon the saved CSV will automatically
alse be semicolon delimited. I want to be able to define the delimiter when
using the SaveAs method.




Dave Peterson

How do I set the delimiter to save as a CSV?
 
Maybe you could use a macro that writes your data:

Earl Kiosterud's Text Write program:
www.smokeylake.com/excel
(or directly: http://www.smokeylake.com/excel/text_write_program.htm)

Chip Pearson's:
http://www.cpearson.com/excel/imptext.htm

J.E. McGimpsey's:
http://www.mcgimpsey.com/excel/textfiles.html

======
Earl's may be sufficient right out of the box. He supports lots of options.

Jeroen Hofs wrote:

How do I set the delimiter when I save a file in CSV format, if my system
settings have the delimiter set to semicolon the saved CSV will automatically
alse be semicolon delimited. I want to be able to define the delimiter when
using the SaveAs method.


--

Dave Peterson

JE McGimpsey

How do I set the delimiter to save as a CSV?
 
AFAIK, XL will always use the system settings.

See

http://www.mcgimpsey.com/excel/textfiles.html

for a workaround.


In article ,
"Jeroen Hofs" <Jeroen wrote:

How do I set the delimiter when I save a file in CSV format, if my system
settings have the delimiter set to semicolon the saved CSV will automatically
alse be semicolon delimited. I want to be able to define the delimiter when
using the SaveAs method.


Jeroen Hofs[_2_]

How do I set the delimiter to save as a CSV?
 
Thanks Dave!
I'll check it out right away.
Jeroen

"Dave Peterson" wrote:

Maybe you could use a macro that writes your data:

Earl Kiosterud's Text Write program:
www.smokeylake.com/excel
(or directly: http://www.smokeylake.com/excel/text_write_program.htm)

Chip Pearson's:
http://www.cpearson.com/excel/imptext.htm

J.E. McGimpsey's:
http://www.mcgimpsey.com/excel/textfiles.html

======
Earl's may be sufficient right out of the box. He supports lots of options.

Jeroen Hofs wrote:

How do I set the delimiter when I save a file in CSV format, if my system
settings have the delimiter set to semicolon the saved CSV will automatically
alse be semicolon delimited. I want to be able to define the delimiter when
using the SaveAs method.


--

Dave Peterson


BrianB

How do I set the delimiter to save as a CSV?
 

Code:
--------------------

'===============================================
'- MACRO TO CONVERT WORKSHEET TO
'- PIPE (or other) DELIMITED TEXT FILE
'- WS HAS TO BE SET UP AS A SIMPLE TABLE
'- RUN MACRO FROM THE SHEET
'- Should run on any sheet
'- Brian Baulsom April 2002
'===============================================
'-
Sub PipeDelimited()
Dim FileName As String
Dim MyRow As Long
Dim MyCol As Integer
Dim MyReturn As String
Dim ws As Worksheet
Dim LastRow As Long
Dim ColumnCount As Integer
Dim MyDelimiter As String
'--------------------------------------------
'- set the delimiter
MyDelimiter = "|"
'--------------------------------------------
Set ws = ActiveSheet
MyReturn = Chr(13)
FileName = ws.Name & ".txt"
Open FileName For Append As #1
'------------------------------
'- get number of rows
LastRow = ws.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
'--------------------------------------------
'- get number of columns
ColumnCount = ws.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByColumns).Column
'--------------------------------------------
'- loop through rows & columns
For MyRow = 1 To LastRow
For MyCol = 1 To ColumnCount
Print #1, ws.Cells(MyRow, MyCol).Value;
If MyCol < ColumnCount Then Print #1, MyDelimiter;
Next
Print #1, MyReturn; ' end of line Return
Next
'----------------------------------------------
Close #1
MsgBox ("Done")
End Sub

'--------------------------------------------------

--------------------


--
BrianB


------------------------------------------------------------------------
BrianB's Profile: http://www.excelforum.com/member.php...info&userid=55
View this thread: http://www.excelforum.com/showthread...hreadid=388031



All times are GMT +1. The time now is 04:46 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com