Using VB6 and OLE to add a new column to an existing Excel w

canoe414 · Joined: 04 Oct 2007 Posts: 28

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

Archived from group: microsoft>public>vb>ole>automation

Bob Phillips · Joined: 04 Oct 2007 Posts: 10

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@k70g2000cwa.googlegroups.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
>

canoe414 · Joined: 04 Oct 2007 Posts: 28

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

Bob Phillips · Joined: 04 Oct 2007 Posts: 10

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@f16g2000cwb.googlegroups.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
>

Dmitriy Antonov · Joined: 04 Oct 2007 Posts: 431

wrote in message @k70g2000cwa.googlegroups.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 · Joined: 04 Oct 2007 Posts: 431

"Dmitriy Antonov" wrote in message @TK2MSFTNGP03.phx.gbl...
>
> wrote in message
> @k70g2000cwa.googlegroups.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.