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

--
Message posted from http://www.ExcelForum.com

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

Workbooks.Open Filename:=sImportFile

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

"Sportiva " wrote in message
...
Hi all,

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

When I open the CSV file i'm using it populates it correctly, but as
soon as I use the macro some of the cells end up being merged into one
cell. Am i using the correct datatype for CSV? If so, has anyone got
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,

Liam


---
Message posted from http://www.ExcelForum.com/

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

Thanks for the reply guys

--
Message posted from http://www.ExcelForum.com