passing Excel.Applications to VB6 subroutines

Lift your skirt and show us your code.

Hey THANKS Tick!

When I was writing this example code to show you... it worked! Before I was trying to pass XLApp. This time I tried just passing the worksheet XLWkSht.

If ExcelExists = False Then Exit Sub
Dim XLApp As Excel.Application
Dim XLWkBk As Excel.Workbook
Dim XLWkSht As Excel.Worksheet

If ExcelRuns = False Then _
Set XLApp = New Excel.Application
Set XLApp = GetObject(, "Excel.Application")
XLApp.Visible = True
Set XLWkBk = XLApp.Workbooks(WBindex)
XLApp.Workbooks(WBindex).Activate
Set XLWkSht = XLWkBk.Sheets(1)
XLWkBk.Sheets(1).Activate
WriteValues XLWkSht
End Sub

Public Sub WriteValues(XLWkSht)

XLWkSht.Cells(26, 2) = "FLOW"
XLWkSht.Cells(26, 3) = "HEAD"
XLWkSht.Cells(26, 4) = "EFF"
XLWkSht.Cells(26, 5) = "POWER"

End Sub


"Make everything as simple as possible, but not simpler." - Albert Einstein (1879-1955)
***************

But, but, but ... I still can't do something like this,

Public Sub Look4WkBk(XLApp, File_Name)
For i = 1 To XLApp.Workbooks.Count
If File_Name = _
XLApp.Workbooks(i).Path & "\" & _
XLApp.Workbooks(i).Name Then
XLApp.Workbooks(i).Activate
Exit For
End If
Next i
End Sub


"Make everything as simple as possible, but not simpler." - Albert Einstein (1879-1955)
***************