Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Marcelo.Freitas

Importar dados Excel para Combo

Recommended Posts

Boa tarde.

 

Preciso de uma ajuda dos srs do forum.

 

Estou tentando inportar os dados da planilha de excel, para uma combo no visual basic. mais não estou conseguindo fazer. vcs podem me ajudar como fazer?..

 

 

OBRIGADO PELA AJUDA..

 

 

Marcelo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Hum, tente isso, mas para que funcione, é preciso que não haja linhas vazias:

 

dim conta as integer

dim xl As New Excel.Application

dim xlw As Excel.Workbook

 

Set xlw = xl.Workbooks.Open("nomedoarquivo")

 

Do While xl.Application.Cells(conta, "a") <> ""

combo1.additem xl.Application.Cells(conta, "a")

conta = conta + 1

Loop

 

Veja se te resolve, abraços...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Claudio Obrigado.. fiz assim, eestá funcionando..

 

Dim xl As New Excel.Application

Dim xlw As Excel.Workbook

Dim NumLinha, Linha As Long

NumLinha = 1

Linha = 1

Set xlw = xl.Workbooks.Open(App.Path & "\" & "Banco")

xlw.Application.Visible = True

xlw.Sheets("Plan1").Select

 

Do While Range("Plan1!A" & NumLinha).Value <> ""

NumLinha = NumLinha + 1

CboConta.AddItem Cells(NumLinha, 1)

Loop

 

 

Só preciso de mais uma ajuda, tenho outra combo no mesmo formulário, que vai pegar dados tbm dessa planilha.. como eu posso faz. já tentei fazer outro loop embaixo.. só que está dando erro.

 

Obrigado,

 

Marcelo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Claudio Obrigado.. fiz assim, eestá funcionando..

 

Dim xl As New Excel.Application

Dim xlw As Excel.Workbook

Dim NumLinha, Linha As Long

NumLinha = 1

Linha = 1

Set xlw = xl.Workbooks.Open(App.Path & "\" & "Banco")

xlw.Application.Visible = True

xlw.Sheets("Plan1").Select

 

Do While Range("Plan1!A" & NumLinha).Value <> ""

NumLinha = NumLinha + 1

CboConta.AddItem Cells(NumLinha, 1)

Loop

 

 

Só preciso de mais uma ajuda, tenho outra combo no mesmo formulário, que vai pegar dados tbm dessa planilha.. como eu posso faz. já tentei fazer outro loop embaixo.. só que está dando erro.

 

Obrigado,

 

Marcelo

Dando erro? Que erro? Porque?

 

Você fez numlinha = 1 de novo né?

Ah, e isso "xlw.Sheets("Plan1").Select" funcionou com você? Não consigo usar essa linha, dava erro sempre, não sei o porque. Eu não fiz "xlw.Application.Visible = True", será que é necessário estar visualizando o arquivo para poder selecionar a planilha?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.