Hola, saludos,
He venido a solicitar ayuda con un código que me esta quebrando la cabeza xD.
El tema es que tengo un programa para digitar pedidos de materiales, tengo todo listo, excepto la parte donde copio los datos del List1 al porta papeles, he probado muchos códigos pero ninguno parece funcionar.
Este es el codigo:
Private Sub CopiarOC_Click()
Dim strList As String
Dim i As Integer
For i = 0 To Me.List1.ListCount - 1
If Len(Trim(Me.List1.List(i))) > 0 Then
strList = strList & Trim(Me.List1.List(i)) & " "
End If
Next i
Dim MyData As DataObject
Set MyData = New DataObject ' he aqui el error T_T
MyData.Clear
MyData.SetText Trim(strList)
MyData.PutInClipboard
End Sub
El problema con el código es que me da el error siguiente:
Error de compilación,
El uso de la palabra clave New no es valido.
Pensaran que programar en VB6 es arcaico, pero tengo todo listo, solo me falta eso y no he podido solucionarlo, y he venido para ver si me pueden guiar
.-
De igual forma he probado añadiendo los items a un archivo .txt y copiarlos desde ahi, pero creo que es poco útil si de igual forma los tendré en el listbox.
Espero alguien me pueda ayudar. Saludos y gracias de ante mano