Having trouble importing CSV files with a macro

[Sportiva]

Hi all,

I'm having a problem with a small amount of VB code I've written fo
use with Excel on my mac (Excel X). I need to prompt the user to selec
a particular CSV file, copy it, and paste it into the current workshee
I'm using.

When I open the CSV file i'm using it populates it correctly, but a
soon as I use the macro some of the cells end up being merged into on
cell. Am i using the correct datatype for CSV? If so, has anyone go
any other ideas as to what might be wrong?

Sub Test()

Dim sImportFile

sImportFile = Application.GetOpenFilename
Workbooks.OpenText FileName:=sImportFile, DataType:=xlDelimited
Comma:=True
ActiveSheet.UsedRange.Select
Selection.Copy
ActiveWorkbook.Close
Worksheets("Marks and Grades").Range("A1").Activate
ActiveSheet.Paste

End Sub

Thanks a lot in advance,

Lia

 

[AA2e72E]

Why don't you simply open the csv file and let Excel do all the work

Workbooks.Open Filename:=sImportFile

 

[Bob Flanagan]

Looks like you must be running additional code that is doing the merging.
There is no statement in what you have posted that would merge the cells.
It may be that all the data is not being read into individusl cells. Stop
the code immediately after reading in the CSV file and expand the columns
and see if the data is not properly read in.

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

 

[ross]

Liam

I am using this to import a tabed file in to excel (windows)

Workbooks.OpenText FileName:= _
strfilename, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True,
Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1),
Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1),
Array(8, 1))

Do not know about a mac system, buy look at the DataType, which can be
set to Mac, and the TextQulifier, ie xlcomma,

It might be easyiest to import one by hand and recored the output
using the macro recorder

Good luck
Ross

 

[Sportiva]

Thanks for the reply guys