LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 22
Default export to CSV more than 65k rows

Hi
I need to export one colum from Excel to CSV. If the total rows are < 65000
then its not a problem. But I need to export about 150K rows from multiple
colum into one CSV file. How can I do this.

Here is my code to export from one column:
The CSV file path (full path) is pecified on a parmsheet. Basically I create
a new workbook and save that as CSV file.

Sub ExportToCSV()
' Save selected range as a CSV text file
Dim ThisBook As Workbook
Dim path As String
Dim lastrow As Double

ExecuteExcel4Macro "echo(false)"
path = ThisWorkbook.Sheets("parmsheet").Range("B2").Value
'

Range("A1").Select
Selection.End(xlDown).Select
lastrow = ActiveCell.Row


'lastrow = ThisWorkbook.Sheets(1).Range("A1").End(xlUp).Selec t
ThisWorkbook.Sheets(1).Range("A2:A" & lastrow).Select
Set ThisBook = ActiveWorkbook

Selection.Copy

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues ' one of several options used
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path, FileFormat:=xlCSV
ActiveWorkbook.Close
Application.DisplayAlerts = True
ThisBook.Activate
ThisBook.Worksheets(1).Range("A1").Activate

MsgBox "The CSV file has been created in" & Chr(13) & path, vbOKOnly, "CSV
Export"

End Sub

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Export and Save Only Certain Rows of Data Pat Excel Discussion (Misc queries) 1 August 25th 08 08:46 PM
Need to export to a CSV but my file has more than 65536 rows laredotornado Excel Discussion (Misc queries) 6 January 30th 08 05:03 AM
Export Rows individuall to a new file? [email protected] Excel Discussion (Misc queries) 1 February 14th 06 03:07 PM
Export UNIQUE rows to access with ADO durex[_2_] Excel Programming 3 October 21st 05 11:02 PM
Export CSV; first three rows contain record map DW[_3_] Excel Programming 1 November 29th 04 07:18 PM


All times are GMT +1. The time now is 10:49 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"