Listar pastas do excel no vb6


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Listar pastas do excel no vb6

MARCELO M S

SÃO BERNARDO DO CAMPO
SP - BRASIL

ENUNCIADA !

Postada em 06/11/2011 12:25 hs

Ola pessoal, gostaria de saber como eu descubro os nomes das tabelas de uma planilha em excel. Estou fazendo um sistema que importa os dados de uma planilha e salva em um banco de dados, porem essas tabelas não tem um nome definido e preciso que o usuário selecione qual tabela ele irá importar.

Abc,

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 07/11/2011 18:55 hs

tente isto

Dim pWorkbook As Workbook
Dim pWorksheet As Worksheet

For Each pWorkbook In Workbooks

    ' Procura pela pasta de trabalho com nome de arquivo "Pasta3.xls"
    If pWorkbook.Name = "Pasta3.xls" Then

        ' Planilhas existentes na pasta de trabalho
        For Each pWorksheet In pWorkbook.Worksheets

            ' Mostra nome da planilha
            MsgBox pWorksheet.Name

        Next pWorksheet

        ' Sai do loop, já encontrou a pasta de trabalho
        Exit For

    End If

Next pWorkbook

MARCELO M S

SÃO BERNARDO DO CAMPO
SP - BRASIL

ENUNCIADA !

Postada em 08/11/2011 11:30 hs

Muito obrigado, deu certo!!!

Página(s): 1/1