Greetings,

Is it possible to programmatically add a new column to an existing
Excel worksheet using VB 6.0 and OLE? Or VB 6.0 and ??? It's OK if the
added column becomes the new "A" column and shifts all previously
existing columns over one. I 'haven't been able to google up any
coding examples that do this. Examples are always welcome.

TIA,

Steve

Sub addcolum()
Dim xlApp As Object
Dim xlWB As Object
Dim xlWS As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("C:\myDir\myBook.xls") '<=== change to
suit
Set xlWS = xlWB.Worksheets(1)
xlWS.Columns(1).Insert

Set xlWS = Nothing
Set xlWB = Nothing
xlApp.Quit
Set xlApp = Nothing

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
oups.com...
Greetings,

Is it possible to programmatically add a new column to an existing
Excel worksheet using VB 6.0 and OLE? Or VB 6.0 and ??? It's OK if the
added column becomes the new "A" column and shifts all previously
existing columns over one. I 'haven't been able to google up any
coding examples that do this. Examples are always welcome.

TIA,

Steve

Thanks that seems to have worked. I mean, my app now runs to completion
without errors and does create a new .xls - but I can't open it with
Excel to view it!! Any idea what could cause this behavior?

Thanks for your previous help!


Steve

can you clarify what you mean, detail the steps that you took.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
oups.com...
Thanks that seems to have worked. I mean, my app now runs to completion
without errors and does create a new .xls - but I can't open it with
Excel to view it!! Any idea what could cause this behavior?

Thanks for your previous help!


Steve

wrote in message
oups.com...
Greetings,

Is it possible to programmatically add a new column to an existing
Excel worksheet using VB 6.0 and OLE? Or VB 6.0 and ??? It's OK if the
added column becomes the new "A" column and shifts all previously
existing columns over one. I 'haven't been able to google up any
coding examples that do this. Examples are always welcome.

TIA,

Steve


Check here, maybe this is what you are asking for:
http://support.microsoft.com/kb/285332

Check References within that article for more links.

Dmitriy.

"Dmitriy Antonov" wrote in message
...

wrote in message
oups.com...
Greetings,

Is it possible to programmatically add a new column to an existing
Excel worksheet using VB 6.0 and OLE? Or VB 6.0 and ??? It's OK if the
added column becomes the new "A" column and shifts all previously
existing columns over one. I 'haven't been able to google up any
coding examples that do this. Examples are always welcome.

TIA,

Steve


Check here, maybe this is what you are asking for:
http://support.microsoft.com/kb/285332

Check References within that article for more links.

Dmitriy.


Oops. I accidentally misplaced my reply. It applies to another post (the
one, which is just above it) - so please disregard it here.

Dmitriy.