Pasar datos de visual basic a excel
Hola. Que tal! Tengo un programa en visual basic y quisiera que lo que este en una caja de texto de un formulario me lo traslade a una celda en una hoja de excel.
Gracias.
Gracias.
1 Respuesta
Respuesta de denciso
1
Dim oObjeto As Object
Dim oLibro As Object
'Se crea el Objeto
Set oObjeto = CreateObject("Excel.Application")
'
' Macro1 Macro
' Macro grabada el 28/08/2005 por David René Enciso Badillo
'
'
oObjeto.application.Visible = True
'ChDir "I:\intranet\SACPP\superdome\exportacion"
Set oLibro = oObjeto.workbooks.Open(mdiPrincipal.CommonDialog1.FileName)
'Workbooks.Open FileName:= _
' "I:\intranet\SACPP\superdome\exportacion\05Internet.xls"
If InStr(1, Me.cboIDF.Text, "R") <> 0 Then
' se trata de sur
oLibro.worksheets("IDF SUR").Select
Else
' se trata de norte
oLibro.worksheets("IDF NORTE").Select
End If
'oLibro.worksheets("Jul 05").Select
'oLibro.worksheets("Jul 05").Range("G24").Select
'oLibro.worksheets("Jul 05").Range("G24").Value = "15"
oLibro.Close
Set oLibro = Nothing
oObjeto.quit
Set oObjeto = Nothing
Dim oLibro As Object
'Se crea el Objeto
Set oObjeto = CreateObject("Excel.Application")
'
' Macro1 Macro
' Macro grabada el 28/08/2005 por David René Enciso Badillo
'
'
oObjeto.application.Visible = True
'ChDir "I:\intranet\SACPP\superdome\exportacion"
Set oLibro = oObjeto.workbooks.Open(mdiPrincipal.CommonDialog1.FileName)
'Workbooks.Open FileName:= _
' "I:\intranet\SACPP\superdome\exportacion\05Internet.xls"
If InStr(1, Me.cboIDF.Text, "R") <> 0 Then
' se trata de sur
oLibro.worksheets("IDF SUR").Select
Else
' se trata de norte
oLibro.worksheets("IDF NORTE").Select
End If
'oLibro.worksheets("Jul 05").Select
'oLibro.worksheets("Jul 05").Range("G24").Select
'oLibro.worksheets("Jul 05").Range("G24").Value = "15"
oLibro.Close
Set oLibro = Nothing
oObjeto.quit
Set oObjeto = Nothing
