Automatizacion Excel VB.Net
Publicado por Ricardo (1 intervención) el 02/11/2012 18:34:37
buen día
Necesito ayuda sobre la automatización de excel en visual basic . net, anteriormente el programa lo tenia en vb 6.0, pero tengo que migrarlo, la funcionalidad es con macros de excel y las pasaba al código de vb 6.0, pero me marca un problema con la funcion:
En visual basic lo usaba como rutina de carga en una función
If ReadXlExtrac(openFile.FileName) Then '" <-------- Marca error en esta linea "*NO SE ENCONTRO NULLREFERENCEEXCEPTION**
End If
y la funcion es:
Function ReadXlExtrac(ByVal openfile As String) As Boolean 'ByVal openfile2 As String) As Boolean
***abre el excel seleccionado**
System.Diagnostics.Process.Start(openfile)
*** Macro de excel, seleccion del A1 a DS200, busca celdas en blanco y les pone "X"
With xl
.Range("A1:DS200").Select()
.Selection.Replace(What:="", Replacement:="X", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False)
End With
End Function
Agradeceria su ayuda
Saludos
Necesito ayuda sobre la automatización de excel en visual basic . net, anteriormente el programa lo tenia en vb 6.0, pero tengo que migrarlo, la funcionalidad es con macros de excel y las pasaba al código de vb 6.0, pero me marca un problema con la funcion:
En visual basic lo usaba como rutina de carga en una función
If ReadXlExtrac(openFile.FileName) Then '" <-------- Marca error en esta linea "*NO SE ENCONTRO NULLREFERENCEEXCEPTION**
End If
y la funcion es:
Function ReadXlExtrac(ByVal openfile As String) As Boolean 'ByVal openfile2 As String) As Boolean
***abre el excel seleccionado**
System.Diagnostics.Process.Start(openfile)
*** Macro de excel, seleccion del A1 a DS200, busca celdas en blanco y les pone "X"
With xl
.Range("A1:DS200").Select()
.Selection.Replace(What:="", Replacement:="X", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False)
End With
End Function
Agradeceria su ayuda
Saludos
Valora esta pregunta
0