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
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