Okay, I'm reposting this because I never got an answer and I REALLY an answer to this. Please help.
__________________________
__________
__________
__________
__________
__________
_________'
Hi!
Hope someone can help! In case this looks a bit familiar, that's because it's the last comment on a slightly more complex question I had a while back, but I never got a solution to this part of the problem and I really need help.
Not sure why, but when I execute the following step from within the SQL Server 200 DTS designer on a little Windows 2000 server, I get an error message that says:
SERVER BUSY
This action cannot be completed because the other program is busy. Choose 'Switch to' to activate the busy program and correct the problem.
Usually, if I hit retry three or four times, the step completes successfully. But when I execute the package from the Enterprise manager, it always fails.
Any Suggestions?
'*************************
**********
**********
**********
**********
*****
' Visual Basic ActiveX Script
'*************************
**********
**********
**********
**********
*******
Function Main()
Dim sSourceFile
Dim sDestinationFile
Dim oFSO
Dim e_app
Dim e_wbook
Main = DTSTaskExecResult_Success
Set oFSO = CreateObject("Scripting.Fi
leSystemOb
ject")
sSourceFile = "\\Server1\Inetpub\wwwroot
\Company_M
etrics\Met
rics Template.xls"
sDestinationFile = "\\Server1`\Inetpub\wwwroo
t\Company_
Metrics\Co
mpany Metrics.xls"
if oFSO.FileExists(sSourceFil
e) then
If oFSO.FileExists(sDestinati
onFile) Then
oFSO.DeleteFile sDestinationFile
end if
Set e_app = CreateObject("Excel.Applic
ation")
Set e_wbook = e_app.Workbooks.Open(sSour
ceFile)
With e_wbook
.SaveAs sDestinationFile
.save
End With
e_wbook.Close
Set e_wbook = Nothing
e_app.Quit
Set e_app = Nothing
else
Main = DTSTaskExecResult_Failure
end if
Set oFSO = nothing
End Function
==========================
==========
==========
==========
==========
==
The file I'm trying to open and 'Save As' is about 20 MB before the Save As and about 16 MB after, which is exactly why I'm trying to do the SAVE AS. I think the problem is that the Open may be taking too long or the Save As is taking too long or something. I'm not sure. Can I turn that message off or something?
Karen
Start Free Trial