UnMerge Cells with Macro Language/VB Commands in SAS

[joeyeng]

I need to use the excel macro language functions (found in macrofun.exe) in order to unmerge cells. The alignment function (the equivalent of format>cells>alignment tab) in the macro language has the following syntax:

ALIGNMENT(horiz_align, wrap, vert_align, orientation, add_indent)

It appears the alignment function in the macro language does not have an option to unmerge cells. (In excel, I would simply uncheck the Merge Cells option to do this.) Does anyone know how to unmerge cells with the macro language?

Any help would be much appreciated!

 

[Juan Pablo González]

I think Nate is on the right track... maybe this works ?

put 'gobjExcel.Selection.TextToColumns Range("G1"),1,1,False,True,False,False,False,False,False,Array(1, 2)'

its the same code you used, but without Excel constants...

 

[NateO]

Nate,

I get the following error:

TextToColumns method of Range class failed

Any ideas?

Joey

Try the revised code above, I added the object and sheet references with both the original and destination ranges... (I snuck my edit in there )

 

[joeyeng]

Juan,

I tried your code and got the following error:

Type mismatch: 'Range'

Joey

 

[NateO]

Juan,

I tried your code and got the following error:

Type mismatch: 'Range'

Joey

The destination must have the object as well, e.g.,

gobjExcel.range("g1")

As you're using Excel objects on the late bind.

Also, it doesn't hurt to define your sheet...

 

[joeyeng]

Nate,

Your revised code generated the following error:

Object doesn't support this property or method: 'sheets(...).g1'

Joey

 

[NateO]

Hmmm, you can pull this off in Access... Maybe try the range:

put 'gobjExcel.sheets(1).range("g:g").TextToColumns gobjExcel.sheets(1).range("g1"),1,1,False,True';

If that doesn't want to fire, try dropping sheets(1).

 

[joeyeng]

Nate,

Thanks for the help - I got it to work!

Joey