Dim xlws As Excel.Worksheet
    Dim xl as Excel.Workbook
    For Each xlws In xl.Worksheets
      Combo1.AddItem xlws.Name, count
      count = count + 1
    Next xlws

Now, how do I Set xl to the Workbook?
I want to use a .xls file directly, i.e. Excel shouldn't have to be running.

Thanks,

Geoff

1) Create an instance of Excel
2) Add a new workbook
3) Add a new worksheet to the book
4) Add the word "hello" to cell A1
5) Save the workbook
6) Close Excel

-Dan Beacom

Option Explicit

Private Sub Form_Load()
    Dim ExcelApp As Excel.Application
    Dim NewWorkbook As Excel.Workbook
    Dim NewWorksheet As Excel.Worksheet
    Set ExcelApp = CreateObject("Excel.Application.8")
    Set NewWorkbook = ExcelApp.Workbooks.Add
    Set NewWorksheet = NewWorkbook.Worksheets.Add
    NewWorksheet.Cells(1, 1).Value = "hello"
    ExcelApp.Visible = False
    NewWorkbook.SaveAs ("C:\My Documents\Hello.xls")
    ExcelApp.Quit
    Set ExcelApp = Nothing
    Set NewWorkbook = Nothing
    Set NewWorksheet = Nothing
    Unload Me
End Sub

On Tue, 12 Jan 1999 21:40:13 -0000, "Big Cheese"

To clarify, this does actually start up an instance of Excel so you in fact
require Excel to be installed on your computer.  If you ctl-alt-del to bring
up task manager, you'll see that Excel is running (while your program is
running) although it won't be visible.  If Excel is not installed, you won't
have the Excel Object Library reference to select.

I have a question to add myself.  I have created an embedded Excel object in
a child form (to an MDIForm object) so that a user can modify and view an
Excel spreadsheet within my VB program (ie not have Excel running in a
separate window).  However, it seems that when this object is opened for
editing it sets the height and width itself and I cannot adjust this.  Does
anyone know of a way to do this either in regular code or through the API?
Also, is there a way to have Excel save the changes?  There is no file menu
that comes up and if I try something like
xlEmbedObj.Object.ActiveWorkbook.Save, I get a run-time error telling me
that the Save method is not valid for that object.

Thanks in advance.

Fernando Vicente