Ver Mensaje Individual
  #8 (permalink)  
Antiguo 02/12/2009, 11:54
vicpal
 
Fecha de Ingreso: noviembre-2009
Mensajes: 26
Antigüedad: 15 años, 2 meses
Puntos: 0
Respuesta: Duda cargar fichero ado.net

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