Excel y visual basic
Querría saber como crear más de una hoja(pestaña) de excel desde VB y direccionar los datos desde un programa a cada una de las hojas anteriormente creadas.
¿Cómo puedo cambiar el nomvbre de una hoja de excel?
¿Cómo puedo cambiar el nomvbre de una hoja de excel?
1 Respuesta
Respuesta de denciso
1
Para crear las hojas, adapta el siguiente código, pero para cambiar el nombre, ahí si tienes que ver como hacerlo:
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 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
