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?
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeQuero 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?
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.