Importar dados Excel para Combo

[Marcelo.Freitas 0]

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

[Claudio Neto 3]

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...

[Marcelo.Freitas 0]

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

[Claudio Neto 3]

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?

[Marcelo.Freitas 0]

Roberto,

consegui tanto com a planilha aberta como fechado..

 

so que agora estoi precisando fazeruma busca pela combo e trazer o resultado num label..

 

você pode me ajudar..