MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Obter nome das abas do arquivo Excel

    Roberto_8961
    avatar
    Roberto_8961
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 28/03/2016
    • Mensagem nº1

    Obter nome das abas do arquivo Excel Empty Obter nome das abas do arquivo Excel

    Mensagem  Roberto_8961 5/9/2021, 14:36

    Bom dia,

    Amigos seguinte...

    Estou tentando obter o nome das Abas disponíveis em um arquivo excel via VBA de dentro do Access. Da um help ai uma luz ?

    Very Happy
    Anexos
    Obter nome das abas do arquivo Excel Attachmentexemplo.JPG
    Você não tem permissão para fazer download dos arquivos anexados.
    (13 Kb) Baixado 3 vez(es)
    • Ir para o topo
    DamascenoJr.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016
    • Mensagem nº2

    Obter nome das abas do arquivo Excel Empty Re: Obter nome das abas do arquivo Excel

    Mensagem  DamascenoJr. 5/9/2021, 15:07

    Código:
    Dim objExcel As Object
    Dim bytQtdAbas As Byte

    Set objExcel = CreateObject("Excel.Application")
    Call objExcel.Workbooks.Open("C:\SuaPasta\SeuArquivo.xlsx")

    For bytQtdAbas = 1 To objExcel.WorkSheets.Count
        Call MsgBox(objExcel.WorkSheets(bytQtdAbas).Name, vbInformation, "Informação")
    Next bytQtdAbas

    objExcel.Application.Quit
    Set objExcel = Nothing


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,     não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    • Ir para o topo
      Data/hora atual: 21/11/2024, 21:18