1

Quero uma ajuda no problem do título... Eu sei que posso fazer essa importação pelo VBA, mas quero que meu programa detecte o formato .xls de uma planilha e extraia seus dados para uma ListBox dentro do Visual Studio.

Tem como?

4
  • Você pode usar a interoperabilidade do excel, assim você lê o arquivo .xls e pega as informações que precisa.
    – MeuChapeu
    Commented 26/04/2016 às 14:35
  • Aqui tem um exemplo em C# -> dontbreakthebuild.com/2011/01/30/…
    – MeuChapeu
    Commented 26/04/2016 às 14:36
  • Isso também funciona para o Access? Commented 26/04/2016 às 14:45
  • Se o Access tiver interop..
    – MeuChapeu
    Commented 26/04/2016 às 16:30

1 Resposta 1

2

Se você não tiver medo de trabalhar "no escuro", isto é, sem ajuda do intellisense e da detecção de erros do Visual Studio, pode referenciar a aplicação Excel como Object e usar os mesmos métodos que usaria em VBA. Isto se chama Late Binding.

O Código abaixo, por exemplo, tenta se apropriar de uma instância do Excel que já esteja em execução (com GetObject()). Se não houver, o erro é tratado com a criação de uma nova instância (com CreateObject()).

A partir daí, estamos em terreno familiar. Abre-se a pasta de trabalho localizada em "C:\Users\Fulano\Desktop\Planilha.xls" e percorrem-se as células da faixa "A1:A10" da planilha "Plan1". Os valores são copiados para uma List(Of String) onde ficarão disponíveis para você usar como quiser:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Excel As Object
    Try
        Excel = GetObject(, "Excel.Application")
    Catch ex As Exception
        Excel = CreateObject("Excel.Application")
    End Try
    Excel.Visible = True
    Dim WorkBook As Object = Excel.Workbooks.Open("C:\Users\Fulano\Desktop\Planilha.xls")
    Dim WorkSheet As Object = WorkBook.Worksheets("Plan1")
    Dim MyList As New List(Of String)
    Dim Range = WorkSheet.Range("A1:A10")
    For Each Cell In Range.Cells
        MyList.Add(Cell.Value)
    Next
    WorkBook.Close
    Excel.Quit
    Excel = Nothing
    Stop
End Sub

Espero que isso ajude.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .