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