DataObj dévil como nuevo MSForms.DataObject
S dévil como secuencia
Líneas déviles como variante
Línea dévil como secuencia
DataObj.GetFromClipboard
S = DataObj.GetText
'Usted ahora tiene una secuencia el contener del texto del sujetapapeles.
Las líneas = partieron (S, Chr (13))
'Esto parte la secuencia en un sistema de líneas individuales
Para cada línea en líneas
'Poner su código para manejar cada línea aquí
Después