Excel Command Bar Does Not Display

[mamartin]

I am creating a VB6.0 application that selects some data and then writes it to an Excel 2000 file. When I call up Excel from within the VB app, the Standard and Formatting command bars do not display. This is what the code looks like:

Dim xlApplicationObject As Excel.Application
Dim xlWorkBookObject As Excel.Workbook
Dim xlWorkSheetObject As Excel.Worksheet

Set xlApplicationObject = CreateObject("Excel.Application")
Set xlWorkBookObject = xlApplicationObject.Workbooks.Add
Set xlWorkSheetObject = xlWorkBookObject.ActiveSheet

xlApplicationObject.CommandBars("standard").Enabled = True
xlApplicationObject.CommandBars("formatting").Enabled = True
xlApplicationObject.CommandBars("Standard").Visible = True
xlApplicationObject.CommandBars("Formatting").Visible = True

When Excel is invoked, it comes up, data is written to the proper cells, but no bars. Any ideas?

 

[AnotherHiggins]

Please post Macro questions in forum707, the VBA Visual Basic for Applications (Microsoft) Forum.

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.