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