Ruben_Barbosa
Power Member
Código:
' Criar uma nova instância do Excel
Dim objApp As Object
objApp = CreateObject("Excel.Application")
Dim xlsOption As Workbook
Dim objBook As Microsoft.Office.Interop.Excel.Workbook
Dim abrir As String
'Abrir Excel
If abrir = xlsOption.xlsOpen Then
objBook.Open(vb2005.xls)
End If
Última edição pelo moderador: