Comments on: Export Range to Delimited Text File

By: Mark

Mark — Sun, 30 Oct 2005 18:34:50 +0000

john, thanks much, after I get this mysql error for this permalink sqaure I’ll follow up.

By: john

john — Sun, 30 Oct 2005 18:33:46 +0000

The order of lines in my response got messed up. Here's how I meant to show it:

This must be pretty slow, particularly with a large range. Instead of doing one cell at a time, which is rather time consuming, load the range into an array, which does it with a single round trip to Excel:

Dim vRange as Variant
vRange = WhatRange.Value

Then look through the rows and columns of the array.

Dim i as Long
Dim j as Integer

For i=LBound(vRange,1) to UBound(vRange,1)

For j=LBound(vRange,2) to UBound(vRange,2)
ExportRange = ExportRange & vRange(i,j) & Delimiter
Next j
'Trim extra delimiter, add CRLF
ExportRange = Left$(ExportRange, Len(ExportRange) - 1) & vbCrLf
Next i
'Trim extra CRLF
ExportRange = Left$(ExportRange, Len(ExportRange) - 1)

Now populate the output file as before.

- Jon

By: john

john — Sun, 30 Oct 2005 18:33:09 +0000

This must be pretty slow, particularly with a large range. Instead of doing one cell at a time, which is rather time consuming, load the range into an array, which does it with a single round trip to Excel:

Dim vRange as Variant
vRange = WhatRange.Value

Then look through the rows and columns of the array.

Dim i as Long
Dim j as Integer

For i=LBound(vRange,1) to UBound(vRange,1)

Now populate the output file as before.

- Jon
For j=LBound(vRange,2) to UBound(vRange,2)
ExportRange = ExportRange & vRange(i,j) & Delimiter
Next j
'Trim extra delimiter, add CRLF
ExportRange = Left$(ExportRange, Len(ExportRange) - 1) & vbCrLf
Next i
'Trim extra CRLF
ExportRange = Left$(ExportRange, Len(ExportRange) - 1)