Buggy behavior when Worksheet.Copy uploads to web server

D

Dee

Hello

I have been everywhere with this problem, I'm beginning to think it's a bug and cannot be done

There are 2 things wrong in my Save Routine. My Application is executed online by a browser (IE, Netscape). It is Excel 97/VBA

1. After the code to Copy a Worksheet to a new workbook, Save it, Close the new Workbook, and retun to ThisWorkbook, a big empty Window named "Microsoft Excel http://www.etc [Read Only]" has the focus. I believe that empty window held the copied Worksheet and after closing, only the empty window is left. If close this window my Application stops. My Application is running in a separate Window named "http://www.myUrl/MyAppName.xls

2. In the debugger, I see that "Application.ScreenUpdating = False" never gets set to False. Odd

Here is the Save Routine

Private Sub cmdSave_Click(
Dim varFileName As Varian

On Error GoTo 30
ChDir "C:\
D
varFileName = Application.GetSaveAsFilename("My Report", "Excel File(*.xls),*.xls", , "Save My Report"
Loop Until varFileName <> Fals
If (VarType(varFileName) = vbString) The
Application.ScreenUpdating = Fals
MyWS.Cop
ActiveWorkbook.SaveAs FileName:=varFileName, FileFormat:=xlWorkbookNorma
ActiveWorkbook.Close savechanges:=Fals
ThisWorkbook.Activat
Application.ScreenUpdating = Tru
End I
MyWS.Activat
Exit Su
300
MsgBox Err.Number & " " & Err.Descriptio
Resume Nex
End Su

Thank you
De
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top