Visual Basic.NET - datos en excel para visual

 
Vista:

datos en excel para visual

Publicado por angel (2 intervenciones) el 11/04/2017 08:11:47
Buenos noches, soy nuevo en esto de visual basic,
pero quiero poder obtener el dato o informacion de alguna celda en excel desde visual basic.
el probelma es que simpre me marca un error de que no lo encuentra "Exceptopn from hResult".
o lo hago por la referencia y al momento de importar microfot.interpol.excel me marca que esta mal referenciado,
alguin me pueda aydar con un ejemplo de como extarar la informacionde una celda en visual basic esto e slo que llevo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Imports System.IO
'Imports Microsoft.Office.Interop
'Imports Microsoft.Office.Interop.Excel
 
Module Module1
    'Variables para ponerlos  como enteros para hacer operaciones
    Dim nss, anio_afil, edad, estatus, sexo, ult_ns, ult_sb_cot, ult_percot, fech_nac, anio_nac, dens_hist, den_36m, ult_coti, gSalaria As Integer
    'Variable para aguardar los datos y poder manejarlos 
    Dim nssS, anio_afilS, edadS, estatusS, sexoS, ult_nsS, ult_sb_cotS, ult_percotS, fech_nacS, anio_nacS, dens_histS, den_36mS, ult_cotiS, gSalariaS As String
    Dim registros As New StreamReader("Archivos\1REGISTRO.txt") 'Aqui indicamos la ruta del archivo a leer.
    Dim salida As String = ""  'Aquí creamos una cadena vacia para guardar lo que leimos.
 
 
    Sub GuardaVariables()
 
 
        salida = registros.ReadLine() 'Aquí solo asignamos  la cadenas vacia   lo que leimos del archivo.
 
        Dim s
        s = Split(salida, ",") 'Separa la cadena en parte por ","
        nss = CInt(s(0))
        anio_afil = CInt(s(1))
        edad = CInt(s(2))
        estatusS = s(3)
        sexoS = s(4)
        ult_ns = CInt((5))
        ult_sb_cot = CInt(s(6))
        ult_percot = CInt(s(7))
        fech_nacS = s(8)
        anio_nac = CInt(s(9))
        dens_hist = CInt(s(10))
        den_36m = CInt(s(11))
        ult_coti = CInt(s(126))
        gSalaria = CInt(s(127))
 
 
        Console.WriteLine("ES el tamaño de Salarial con entero " & gSalaria)
        Console.WriteLine("Es nss " + nssS)
        Console.WriteLine("Es nss de entero  espero que si le sumare " & (1 + nss))
        Console.WriteLine(nss)
 
    End Sub
 
    Sub LeerExcel()
 
        Dim xlApp As Object
        Dim xlLibro As Object
        Dim xlHoja As Object
 
 
 
        xlApp = CreateObject("Excel.Application")
        xlLibro = xlApp.Workbooks.Add
        xlHoja = xlLibro.Worksheets(1)
 
 
        Console.WriteLine("es lo de la hoja de calculo")
 
 
 
 
        '    Dim Abrir_Excel As Object
        '   Abrir_Excel = CreateObject("Excel.Application")
 
 
        ' Abrir_Excel.Visible = True
        ' Abrir_Excel.Workbooks.Open("c:\Users\ANGEL\Desktop\Erika\Probabilidades\Probabilidades\Archivos\0_Ejemplo_Cálculo_Pij_ss.xlsm")
        'Abrir_Excel.Windows("0_Ejemplo_Cálculo_Pij_ss.xlsm").Activate
        'Abrir_Excel.Sheets("Pij").Activate
        'Abrir_Excel.Sheets("Pij").Range("F6")
        Console.WriteLine("Es hasta  arriabasd}a")
 
 
 
        Console.WriteLine("es lo de la hoja de calculo sii ")
 
 
 
 
 
 
    End Sub
 
 
 
 
    Sub Main()
 
 
        LeerExcel()
 
        GuardaVariables()
 
 
 
 
 
 
 
        Console.WriteLine(salida)
 
 
 
 
 
        Console.Write("Holas  si sirvio")
 
 
 
 
    End Sub
 
End Module
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

datos en excel para visual

Publicado por angel (2 intervenciones) el 11/04/2017 10:35:21
Gracias. lo checare, por que si tiene muchos problemas office.interop.
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar