Comments on: Roll Your Own CSV

By: Chris

Chris — Mon, 17 Oct 2011 20:30:00 +0000

Can Excel be used to create a pipe delimited output at a simple click, without the use of extra code or programming? If so, how do you do it for a single file and not all files from then on?

By: Mark Parker

Mark Parker — Thu, 10 Mar 2011 14:44:00 +0000

This is a truly splendid piece of code. i was in a tight spot with a job and time was running low. The code itself didn't contain anything i haven't used at some time in the past but the concept/thought process for the routine is great!

Massive help, cheers!!

By: Arthur

Arthur — Thu, 14 Oct 2010 17:57:00 +0000

Hey guys,

Have a problem… someone on another post wrote a similar question… how do I get excel to surround each value with QUOTES “” ? Any ideas, really need this…? THANK YOU ALL IN ADVANCE!

By: Schorsch

Schorsch — Wed, 13 Oct 2010 16:22:00 +0000

In case anyone is looking for a solution to save multiple sheets of the same workbook as csv:

Sub SaveSheetsAsCsv()

Dim rCell As Range
Dim rRow As Range
Dim sSheet As Worksheet
Dim vaColPad As Variant
Dim sOutput As String
Dim sFname As String, lFnum As Long

Const sDELIM As String = ","

lFnum = FreeFile

For Each sSheet In ActiveWorkbook.Sheets

sFname = ActiveWorkbook.Path & "" & sSheet.Name & ".csv"

Open sFname For Output As lFnum

For Each rRow In sSheet.UsedRange.Rows
For Each rCell In rRow.Cells
sOutput = sOutput & CStr(rCell.value) & sDELIM
i = i + 1
Next rCell
sOutput = Left(sOutput, Len(sOutput) - Len(sDELIM))

Print #lFnum, sOutput
sOutput = ""
Next rRow

Close lFnum

Next sSheet
End Sub

By: Greg N

Greg N — Tue, 05 Oct 2010 06:34:00 +0000

Hi Dick, Well there is a God after all. I've been bugging Microsoft about the inconsistencies of saving CSV file with and without macros in an attempt to create a text file using the pipe character "|" as a delimiter. This little gem of code, albiet 6 years old, solves all my problems and makes me very, very happy. Thanks so much.

By: Brendan

Brendan — Sat, 17 Jul 2010 11:37:00 +0000

Firstly thanks for giving so much of your time and and sharing your knowledge with us. I got here by a google search and I'm finding snippets of what I need here and there. Basically I'm using a workbook to enter data and use areas of the work book to make calculations and based on the entries.
In the coarse of my work I need to take data from one software system and enter it onto not one but several others. For many of the fields they are also transformed or formatted in someway before I can use them in the other software. I've made myself a sort of 'pasteboard' if you will that I use to paste the initial entries. My worksheets extrapolate the data I need to aste into the other programs.
So far I've been saving the entire workbook for each policy, which is absurd and far too weighty and wasteful. My goal is to only save one sheet as the data and be able to retrieve it again later. But not just one record. I want to store subseqent records also so I can look back over the policies I've done in the past. So each time a new record is entered I want to store it, it needs to go on the next free row on the 'Data_Sheet'.So I've split my subs into;

StoreRecord() I will make a button which when pressed stores all the data entered on sheet1 on the first availabe row of the 'DataSheet' (So I need to know how to find the first available free row - or I will need a dialogue asking what row to save to)
ReloadRecord() With this I hope to repopulate the entry fields with previously stored record (row) from the DataSheet. I will likely need a dialogue or dropdown combobox to choose which record to be loaded.
SaveDataSheet() and LoadDataSheet() Idealy I'd like to offer a file save/load dialogue with this so I can choose a filename. I also want to overwrite the existing sheet with the newly loaded one and have it named 'DataSheet' so any macros still work for repopulating etc.

Sorry for being so long winded. Just thought I'd ask if you have any tips on any of these subs it would be a great time saver for me as it is all up hill from here.

Thanks again for a great site.

By: Detours_98

Detours_98 — Mon, 28 Jun 2010 18:17:00 +0000

Gave that a shot too, but still no dice (now there are no other Workbooks open except Book1). It will only run successfully when I run the macro specifically from the Book1 VBAProject.

By: helloeverybody

helloeverybody — Sat, 26 Jun 2010 20:54:00 +0000

With Personal.xls as the active workbook, choose Window-Hide and then close Excel, answering Yes to the prompt to save Personal.xls
that should fix the issue you're having.

By: Detours_98

Detours_98 — Fri, 25 Jun 2010 19:57:00 +0000

One more issue - when I save this script to a module in my Personal.XLS (in the Excel Startup folder) and try to run it on a new Excel Workbook (i.e. Book1.XLS) it does not work and creates and empty file. I have verified that my worksheet within my Book1.XLS is called Sheet1.

If I was actually add this script to a module for Book1.XLS, it works just fine. Is there a statement that I need to add to my Personal.XLS module that will allow this script to run on other workbooks?

By: dave

dave — Fri, 25 Jun 2010 06:28:00 +0000

When working with long strings the code overhead can be significantly reduced by separating the concatenation of the short strings into a single string to be added separately to the long master string, ie

sOutput = sOutput & (Application.Rept(0, vaColPad(i) - _
Len(rCell.Value)) & rCell.Value & sDELIM)