Consulta
Necesito si alguien me puede decir como pasar un textbox multilínea a excel, no todo en una celda sino colocar en cada celda una linea del textbox, sino como hacer para copiar y pegar el contenido de una celda a excel. Muchas Gracias
Mauricio
Mauricio
1 Respuesta
Respuesta de ifrancoz
1
Dim I as Integer 'Longitud línea
Dim J as Integer ' Filas en Excel
Dim Largo1 as Integer
Dim Largo2 as Integer
Dim Linea as String
I=80
J=2
Largo2=1
Private Sub Copiar()
Largo1=Len(Text1)
While Largo2 < Largo1
Linea=Mid(Text1,Largo2,I)
Hojaexcel.ActiveSheet.Cells(L, 1).Value=Linea
J=J+1
Largo2=Largo2+I
Wend
End Sub
Si no sabes como crear un archivo Excel o abrir uno existente
Dim J as Integer ' Filas en Excel
Dim Largo1 as Integer
Dim Largo2 as Integer
Dim Linea as String
I=80
J=2
Largo2=1
Private Sub Copiar()
Largo1=Len(Text1)
While Largo2 < Largo1
Linea=Mid(Text1,Largo2,I)
Hojaexcel.ActiveSheet.Cells(L, 1).Value=Linea
J=J+1
Largo2=Largo2+I
Wend
End Sub
Si no sabes como crear un archivo Excel o abrir uno existente
