RE:QUISIERA SABER COMO TRANFERIR UNA CAJA DE TEXT
Publicado por
JAVIER (1 intervención) el 11/09/2005 19:03:39
En relidad es bastante facil, tenes que crear una macro en exel y la copias como codigo a visual ahi le haces los cambios para que el dato que imponga sea los que vos queres,
Este es un ejemplo sacado muy rapido pero puede darte una idea
Set libro = New Excel.Application
libro.Workbooks.Add 'creo libro de trabajo
libro.Visible = False
libro.Sheets.Add 'le agrego una hoja
libro.Sheets("hoja1").Select
libro.Sheets("hoja1").Name = "faltantes" 'le cambio el nombre a la hoja
PB.Value = 5
Range("A1").Select
ActiveCell.FormulaR1C1 = "CONTADORES FALTANTES A LA FECHA " & Date
Range("A1:I1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
este codigo lo que hace es abrir excel, agregar una hoja y en la primer selda agrega el titulo "CONTADORES A LA FECHA" y unido a el le agrega la fecha .
todo este codigo lo generas con macros en excel osea que solo copias y pegas
espero que te sirva de algo
saludos
javier