logo

Read csv to 2D array

Dav posted on Tuesday, October 21, 2008 3:50 PM

How can I read in a csv (comma delimited) file into a 2D array in VBA?
reply


Read csv to 2D array

Joe posted on Wednesday, October 22, 2008 2:47 AM

Sub EditInput()
Const ReadFile = "c:\temp\event.txt"

Const ForReading = 1, ForWriting = 2, _
ForAppending = 3

Dim Index As Integer
Dim data() As Variant

Set fs = CreateObject("Scripting.FileSystemObject")
Set fin = fs.OpenTextFile(ReadFile, _
ForReading, TristateFalse)

Index = 0
Do While fin.AtEndOfStream <> True
ReadData = fin.readline
ReDim Preserve data(0 To 1, 0 To Index)
Splitdata = Split(ReadData, ",")
data(0, Index) = Splitdata(0)
data(1, Index) = Splitdata(1)
Index = Index + 1
Loop
fin.Close
End Sub
reply

Watch out for quoted values which may contain commas.

Tim Williams posted on Thursday, October 23, 2008 1:54 AM

Watch out for quoted values which may contain commas.

Tim
reply

 

Didn't Find The Answer You Were Looking For?

View Excel Programming Posts   Ask A New Question

EggHeadCafe has experts online right now that may know the answer to your question.  We pay them a bonus for answering as many questions as they can.  So, why not help them and yourself by becoming a member (free) and ask them your question right now?
Ask Question In Live Forum

If you have an OpenID and do not want to become a member of the EggHeadCafe forum, you can also sign on to Chat Chaos and post your question to our real time Silverlight chat application.
Ask Question In Chat Chaos

Previous Excel Programming conversation.

Developer Outlook AddIns    Excel    Excel Charting    Excel Crashes GPFs    Excel Miscellaneous    Excel New Users    Excel Programming    Excel Setup    Excel Worksheet    Groove    MAC Office    MAC Office Entourage    MAC Office Word    Office Communicator    Office Developer Automation    Office COM Add-Ins    Office Developer Other    Office Outlook Forms    Office Outlook VBA    Office Developer VBA    Office Miscellaneous    Office Setup    Office Templates Misc    Office Update    One Note    Outlook    Outlook BCM    Outlook Calendaring    Outlook Contacts    Outlook Fax    Outlook General    Outlook Installation    Outlook Interop    Outlook MAC    Outlook Printing    Outlook Program Add-Ins    Outlook Program Forms    Outlook Program VBA    Outlook 3rd Party Utility    Outlook Express    PowerPoint    Project    Project Developer    Project Server    Visio    Visio Developer    Visio General    Word Application Errors    Word Conversions    Word Menus Toolbars    Word Document Management    Word Drawing Graphics    Word International Features    Word mail    Word Mail Merge Fields    Word New Users    Word Numbering    Word OLE Interop    Word Page Layout    Word Printing Fonts    Word Programming    Word Setup Networking    Word Spelling Grammar    Word Tables    Word VBA Add-Ins    Word VBA Beginners    Word VBA Customization    Word VBA    Word VBA User Forms    Works Windows   






  $1000 Contest    [)ia6l0 iii - $228  |  Jonathan VH - $161  |  Huggy Bear - $135  |  F Cali - $95  |  egg egg - $94  |  more Advertise  |  Privacy  |   (c) 2010