Jump to content

Archived

This topic is now archived and is closed to further replies.

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

Share this post


Link to post
Share on other 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...

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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?

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.