Buenas tardes de nuevo,
Esta es la comversión que he hecho con un tool de la red, y bueno, visual también me ha ayudado, creo que es correcta, pero tengo dos problemillas :) primero pego el código:
Código:
Private Sub Cargar_Csv(_
Dim xlApp As Excel._Application
Dim xlLibro As Excel._Workbook
Dim xlHoja As Excel._Worksheet
Dim xlHojas As Excel.Sheets
Dim xlRango As Excel.Range = Nothing
With
.xlApp = New Excel.Application()
.xlLibro = xlApp.Workbooks.Open(sArchivo, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, _
Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, _
Missing.Value, Missing.Value, Missing.Value)
.xlHojas = xlLibro.Sheets
.xlHoja = DirectCast(xlHojas(sHojaTrabajo), Excel._Worksheet)
.xlApp.Visible = False
.xlApp.ScreenUpdating = False
.xlApp.DisplayAlerts = False
End Sub
Bien, sArchivo y sHojaTrabajo, me dice que no se han declarado, y no se si es que me falta alguna referencia, podeis hecharme una mano?
Por otro lado, entiendo que el datareader es esta parte del código la cual voy a sustituir....
Código:
Private Sub Cargar_Csv( _
ByVal lv As ListView, _
ByVal sPathCsv As String, _
ByVal aColumnHeader As String(), _
ByVal sDelimitador As String)
Try
' verificar que la ruta sea correcta
If File.Exists(sPathCsv) = False Then
MsgBox("No se encontró el archivo: " & sPathCsv)
Exit Sub
End If
Es así? perdonad, no pretendo que me lo hagais todo, pero si necesito ayuda, acabo de empezar, y la parte gráfica la llevo bastante bién, pero el código me lleva un poco de cabeza...
gracias por la paciencia y por la ayuda! :)
Saludos