|
|
|

|

|
Dicas
|

|
Visual Basic.Net (Miscelâneas)
|
|
 |
Título da Dica: Código para ler arquivo excel no VB.NET
|
 |
|
|
Postada em 6/7/2005 por Fabio Rocha
Private Function LerArquivoExcel(ByVal strNomeArquivo As String) As Boolean Dim xl As New Excel.Application Dim xlw As Excel.Workbook
Dim objAcoesBovespa as Object Dim varLin As Short = 60
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
Try If Len(strNomeArquivo) > 0 Then 'Abrir o arquivo do Excel xlw = xl.Workbooks.Open(strNomeArquivo)
' definir qual a planilha de trabalho xlw.Sheets("Sheet1").Select()
'Obtem o conteúdo da célula na posição (Lin,Col) For varLin = 1 To 60 'Lê da linha a até a linha 60 objAcoesBovespa(varLin, 1) = Trim(xlw.Application.Cells(varLin, 1).Value) objAcoesBovespa(varLin, 2) = Trim(xlw.Application.Cells(varLin, 2).Value) objAcoesBovespa(varLin, 3) = Trim(xlw.Application.Cells(varLin, 3).Value) Next varLin
LerArquivoExcel = True Else LerArquivoExcel = False Exit Function End If
Catch ex As Exception LerArquivoExcel = False Finally ' Fechar a planilha sem salvar alterações (para salvar mude False para True) xlw.Close(False)
' Libera a memória xlw = Nothing xl = Nothing End Try End Function
|
|
|
|

|