ABRIR PLANILHA EXCEL

HELENO 21/05/2016 22:59:55
#462373
Sds Amigos!

Peço ajuda de vocês!

Eu gero uma planilha Excel através do meu programa, como faço para abrir o Excel com essa planilha logo após a planilha gerada?

Segue o código:

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim I As Integer
Dim nomePLANILHA As String

Set oExcel = CreateObject([Ô]Excel.Application[Ô])
Set oBook = oExcel.workbooks.Add

Set oSheet = oBook.Worksheets(1)

oSheet.cells(1, 1).Value = [Ô]LISTAGEM DE CIDADES[Ô]

oSheet.cells(3, 1).Value = [Ô]REGIÃO: [Ô]
oSheet.cells(3, 2).Value = Me.cboREGIAO.Text
oSheet.cells(3, 4).Value = [Ô]UF: [Ô]
oSheet.cells(3, 5).Value = Me.cboUF.Text

oSheet.cells(5, 1).Value = [Ô]CÓDIGO[Ô]
oSheet.cells(5, 2).Value = [Ô]CIDADES[Ô]
oSheet.cells(5, 3).Value = [Ô]CÓDIGO IBGE[Ô]

For I = 1 To Me.ListView1.ListItems.Count
oSheet.cells(I + 5, 1).Value = Me.ListView1.ListItems(I).SubItems(1)
oSheet.cells(I + 5, 2).Value = Me.ListView1.ListItems(I)
oSheet.cells(I + 5, 3).Value = Me.ListView1.ListItems(I).SubItems(3)
Next

nomePLANILHA = App.Path & [Ô]\DOCUMENTOS\[Ô] & GERAnomeARQ([Ô]EXCEL[Ô]) & [Ô].xlsx[Ô]

oBook.SaveAs nomePLANILHA
oExcel.Quit

****** Eu quero abrir o Excel agora, nesse momento, automaticamente.
KURTGU 21/05/2016 23:05:52
#462374 Resposta escolhida
Private Sub Command1_Click()

On Error GoTo ErrHandler
Dim xlApp As Object
Dim xlWB As Object

Set xlApp = CreateObject([Ô]Excel.Application[Ô])
xlApp.Visible = True

Set xlWB = xlApp.Workbooks.Open([Ô]c:\Counselor.xls[Ô])
Exit Sub

ErrHandler:
MsgBox [Ô]There is a problem opening that workbook![Ô], vbCritical, [Ô]Error![Ô]

End Sub
HELENO 21/05/2016 23:13:54
#462375
vlw KURTGU

Funcionou, adicionei seu código depois do oExcel.Quit

Dim xlApp As Object
Dim xlWB As Object

Set xlApp = CreateObject([Ô]Excel.Application[Ô])
xlApp.Visible = True

Set xlWB = xlApp.Workbooks.Open(nomePLANILHA)

e aconteceu o que eu queria.
Tópico encerrado , respostas não são mais permitidas
Voltar