VISUALIZAR NOMES DAS PLANILHAS DO EXCEL

MASTER2020 06/05/2012 17:13:04
#401449
Pessoal boa tarde, estou com uma dvida faz um tempinho que nao mexo com vb 6
hj surgiu uma duvida eu uso muito excel, e pensei em montar um pequeno aplicativo so para visualizar os nomes das planilhas em documento excel, entai eu vasculhei e net e achei este codigo

Private Sub Command1_Click()
Dim ExlApp As Excel.Application


MsgBox [Ô]Por favor escolha um arquivo a ser importado a partir da tela seguinte.[Ô], vbOKOnly + vbInformation

ExlApp = Excel.Application
ExlApp.FindFile [ô]Abre a caixa de diálogo para selecionar arquivo

MsgBox ExlApp.Worksheets(0).nome
End Sub


estava com muitos erros de escritas, eu consegui concertar algumas coisas, mas esta dando erro

compile error
invalide use e properdy

eo vb seta o erro na linha

ExlApp = Excel.Application


por favor se alguem tiver uma dica, eu sou grato.
VCFSILVA1208 14/05/2012 17:53:51
#401984
Dim ExcelApp As Object
Dim ExcelWorkBook As Object
Dim NomeWorkSheet As String

[txt-color=#007100][ô]Inicia o Aplicativo Excel[/txt-color]
Set ExcelApp = CreateObject([Ô]Excel.Application[Ô])

[txt-color=#007100][ô]Define o caminho do arquivo Excel[/txt-color]
Set ExcelWorkBook = ExcelApp.Workbooks.Open([Ô]C:\Teste.xls[Ô])

[txt-color=#007100][ô]Retorna o nome da Worksheet Desejada, sendo que o Index começa do [Ô]1[Ô] em diante[/txt-color]
NomeWorkSheet = ExcelWorkBook.Worksheets(1).Name

[txt-color=#007100][ô]Encerra Aplicativo[/txt-color]
ExcelWorkBook.Close
ExcelApp.Quit
MASTER2020 14/05/2012 21:23:12
#401997
Ola Vcfsilva1208, muito obrigado por me ajudar porem esta dando um erro na linha

set do sete execelapp=createobject([Ô]excel.application[Ô])

mensagem de erro compile error invalid outside procedure
VCFSILVA1208 15/05/2012 11:34:15
#402018
Qual Office você tem instalado na tua máquina?
MASTER2020 21/05/2012 22:13:07
#402417
Vcfsilva1208, boa noite desculpe a demora, no notbook 2003
ROBIU 22/05/2012 10:02:27
#402435 Resposta escolhida
1. Faça referência ao Microsoft Excel X.X Objetct Library, onde X.X é a versão mais recente instalada em sua máquina.

2 - Ajuste seu código para isso:

Private Sub Command1_Click()
    Dim ExlApp As Excel.Application
    Dim shtSheet As Worksheet
    Dim strSheetNames As String
    MsgBox [Ô]Por favor escolha um arquivo a ser importado a partir da tela seguinte.[Ô], vbOKOnly + vbInformation
    
    Set ExlApp = New Excel.Application
    ExlApp.FindFile [ô]Abre a caixa de diálogo para selecionar arquivo
    
    For Each shtSheet In ActiveWorkbook.Worksheets
        strSheetNames = strSheetNames & shtSheet.Name & Chr$(13)
    Next shtSheet
    MsgBox strSheetNames
    
    ExlApp.Workbooks.Close
    ExlApp.Quit
    Set ExlApp = Nothing
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar