VBA Code hides Excel sheet

[MinnKota]

The following code Hides my worksheet! I don't want it to. Any clues why?

Set myWB = GetObject("c:\supplier.xls")
myWB.Sheets(1).Cells(3, 3) = Me!txtSupplier
myWB.Save
myWB.Application.Quit
Set myWB = Nothing

 

[SkipVought]

Hi,

What worksheet? Your code has no mention of any other worksheet than the one in the workbook that you are closing.

I suspect that it is this statement

myWB.Application.Quit

rather use

myWB.Close

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[MinnKota]

I only have one worksheet and it is actually entitled "Corrective Action" so the update code reads...

Set myWB = GetObject("c:\supplier.xls")
myWB.Sheets("Corrective Action").Cells(3, 3) = Me!txtSupplier
myWB.Save
myWB.close
Set myWB = Nothing

But it still hides the worksheet.

 

[SkipVought]

You are CLOSING the workbook that your worksheet is in! The worksheet is NOT hidden!

???

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[MinnKota]

Maybe I am not stating my problem clearly. Here is what happens. I run this code from Access and it inserts data into Excel. Then when I open the Excel file, I see nothing. Not even a blank worksheet. I have to go to Window and then click Unhide, then I see the worksheet and the data that was inserted.

 

[SkipVought]

try setting the Visible property of the APPLICATION TRUE

Set myWB = GetObject("c:\supplier.xls")
myWB.application.visible = true
myWB.Sheets("Corrective Action").Cells(3, 3) = Me!txtSupplier

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[PHV]

Have you tried this ?
Set myWB = GetObject("c:\supplier.xls")
myWB.Sheets(1).Cells(3, 3) = Me!txtSupplier
myWB.Sheets(1).Visible = xlSheetVisible
myWB.Save
myWB.Application.Quit
Set myWB = Nothing

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[MinnKota]

I thought that it might be a Window property that needed to be made visible, but that doesn't seem to work.

 

[PHV]

And something like this ?
Set myXL = CreateObject("Excel.Application")
myXL.Visible = True
Set myWB = myXL.Workbooks.Open("c:\supplier.xls")
myWB.Sheets(1).Cells(3, 3) = Me!txtSupplier
myWB.Save
myWB.Close
myXL.Quit
Set myWB = Nothing
Set myXL = Nothing

If the above code works, try to comment out the myXL.Visible line and let us know.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[MinnKota]

it was the "Createobject" arguement that fixed things. I employed it after getting some advice in another thread, thanks!