General information
Category:
Coding, syntax & commands
Actually, it's two .VBPs, the one is an activeX Dll server component
My .VBP has the following contents:
frmGroupDlg
frmGTPAdd
frmGTPEdit
frmGTPDelete
frmGTPRep
frmReport
Module1.bas
SrvrApp.vbp has as a class module the file:
clsSrvr.cls - this handles connections to the databases by making disconnected recordsets
By the way, I just tried it on another pc with Excel2000 and Visual Studio 6.0 and the error is encountered also! Everything is functioning when I'm on my pc. But when I try the app in another pc, when I click a command button in frmGTPRep that's the only time the error occurs.
Perhaps, I thought it might be that I have to use the Package and Deployment Wizard. I tried packaging the app, and everything works fine except when it comes to the button at frmGTPRep.frm.
The code in said button follows:
Dim xlShell
Dim xlApp As Object
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error Resume Next
Err.Clear
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
rsGroup.MoveFirst
For i = 0 To rsGroup.RecordCount - 1
xlSheet.Cells(i + 1, 1) = rsGroup!Group
'xlSheet.Cells.Value = rsGroup!Group
rsGroup.MoveNext
Next i
xlSheet.SaveAs "c:\test.xls"
xlBook.Close
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
xlShell = Shell(strExcelLocation + " c:\test.xls", vbNormalFocus)
If Err.Number <> 0 Then
MsgBox "Error " & FormatNumber(Err.Number, 0) & ": " & Err.Description
xlShell = 0
End If
----End of Code---
Again, let me state that this is fully functional on my pc with no problems whatever. Hmm. What could be wrong?
>Copy the content of your .VBP file here.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only