vb6 to vb.net build errors

[ddew]

I have this program built in VB6 tried to convert to vb net but getting build erroes on my module. What do I need to change in this to get it to work?


Option Strict Off
Option Explicit On
Module Module1

Public Sub ssdprint()
Dim excel_app As Object
Dim worksheet1 As Object
excel_app = CreateObject("Excel.Application")
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Workbooks. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.Workbooks.Open(FileName:=VB6.GetPath & "\Book1.xls")

'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.Run("SSDprint")
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.Run("CopyWorksheetsToWord")
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.Run("unhide")
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.ActiveWorkbook. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.ActiveWorkbook.Close(True)
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Quit. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.Quit()

'UPGRADE_NOTE: Object worksheet1 may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'
worksheet1 = Nothing
'UPGRADE_NOTE: Object excel_app may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'
excel_app = Nothing
End Sub


End Module

[dinosaur_uk]

Option Strict Off
Option Explicit On
Module Module1
 
 
        Public Sub ssdprint()
            Dim excel_app As Object
            Dim worksheet1 As Object
            excel_app = CreateObject("Excel.Application")
            'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Workbooks. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
            excel_app.Workbooks.Open(FileName:=VB6.GetPath & "\Book1.xls")
 
            'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
            excel_app.Run("SSDprint")
            'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
            excel_app.Run("CopyWorksheetsToWord")
            'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
            excel_app.Run("unhide")
            'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.ActiveWorkbook. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
            excel_app.ActiveWorkbook.Close(True)
            'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Quit. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
            excel_app.Quit()
 
            'UPGRADE_NOTE: Object worksheet1 may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'
            worksheet1 = Nothing
            'UPGRADE_NOTE: Object excel_app may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'
            excel_app = Nothing
        End Sub
 
 
    End Module

[dinosaur_uk]

if you are looking for excel interaction...just search for it in the forums.

[dinosaur_uk]

http://www.vbforums.com/attachment.p...chmentid=39919

Here is one example.

[Asgorath]

Add a reference to excel to your project.
 
Option Strict On
Option Explicit On
 
Public Sub ssdprint()
        Dim objExcel As Excel.Application
        Dim Books As Excel.Workbooks
        Dim Book As Excel.Workbook
        Dim Sheet As Excel.Worksheet
 
    objExcel = New Excel.Application
 
 
        Books = objExcel.Workbooks
        '' open file
        Book = Books.Open("c:\Book1.xls")
        Sheet = DirectCast(Book.Worksheets(1), Excel.Worksheet)
 
 
        DirectCast(Book.Sheets("Sheet1"), Excel.Worksheet).Activate()
        Sheet = DirectCast(Book.ActiveSheet, Excel.Worksheet)
 
 
 
 
'' dont know whats wrong with .Run it should the macro.
excel_app.Run("SSDprint")
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.Run("CopyWorksheetsToWord")
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.Run. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
excel_app.Run("unhide")
'UPGRADE_WARNING: Couldn't resolve default property of object excel_app.ActiveWorkbook. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'
 
Book.Close(True)
 
 
'' close excel app
objExcel.Quit()
'' releases the com object excel
System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel)
objExcel = Nothing
Sheet = Nothing
Book = Nothing
 
'' forces garbagge collection
GC.Collect()
 
End Sub

Regards
Jorge

[gigemboy]

Don't you need to use ObjExcel.run instead of excel_app.run?

[Asgorath]

Don't you need to use ObjExcel.run instead of excel_app.run?

Correct , i never needed to run a macro before, so i don't how to solve problem.

Regards
Jorge

[dinosaur_uk]

Actually this is a more valid example!