Exportar Datos a Excel

Mi problema es como poner en dos celdas un titulo. En Excel se hace combinando celdas, do a mas. Desde Visual, que comando debo ejecutar.
Gracias de antemano
{"Lat":-19.3111433550646,"Lng":-69.609375}

1 Respuesta

Respuesta
1
Debe ser algo como lo siguiente:
Range("A1:B1").Select
With .Range
   .HorizontalAlignment = 1
   .VerticalAlignment = 2  
   .WrapText = .T.
   .Orientation = 0
   .AddIndent = .F.
   .ShrinkToFit = .F.
   .MergeCells = .T.
EndWith
Muchas Gracias, me resolvio el problema.
No se si sera mucha molestia, pero me ayudaria mucho el saber donde encuentro estos comandos, por ejem.
HorizontalAlignment = 1
   .VerticalAlignment = 2  
   .WrapText = .T.
   .Orientation = 0
   .AddIndent = .F.
   .ShrinkToFit = .F.
   .MergeCells = .T.
Y sobre todo que hacen. Por ejem. con HorizontalAlignment = 3, pude centrarlo.
Ademas funciono asi :
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").Select
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").HorizontalAlignment = 3
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").VerticalAlignment = 2
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").WrapText = .T.
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").Orientation = 0
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").ShrinkToFit = .F.
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").MergeCells = .T.
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").VALUE = Wfech1
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.NAME = "Times New Roman"
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.SIZE = 12
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.Bold = .T.
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.Italic = .T.
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").Interior.Color = RGB(255,128,0)
loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.ColorIndex=5
Gracias de antemano.
Saludos
Wilbur

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas