Jose Luis
02 de Junio del 2004

Hola a todos, estoy haciendo una macro para Excel un VB y me he atascado con el siguiente punto: mi macro debe generar 4 archivos-questionarios que serán enviados a diferentes personas para que los rellenen. Para facilitar esa tarea, he generado un formulario. El problema es que mi macro copie este formulario en cada uno de los ficheros nuevos.
Me he comprado un libro para ver si me ayuda. Hay un tema que es parecido. Es la siguiente secuencia para exportarlo...

Sub ModulInTextdateiSichern()
Dim VBKomp As Object
Const ExportDatei = "C:Eigene DateienSicherung.txt"

On Error Resume Next
Set VBKomp = _
ThisWorkbook.VBProject.VBComponents("Modul1")
With VBKomp
.Export ExportDatei
End With
End Sub

y para importar:

Sub MakroAusTextdateiImportieren()
Dim VBKomp As VBComponent
Dim CodeModul As CodeModule
Dim i As Integer
Const ImportDatei = "C:Eigene DateienCode.txt"

Set VBKomp = _
ThisWorkbook.VBProject.VBComponents.Add _
(vbext_ct_StdModule)
VBKomp.Name = "ModulNeu"
Application.Visible = True

Set CodeModul = _
ThisWorkbook.VBProject.VBComponents _
("ModulNeu").CodeModule
With CodeModul
.AddFromFile ImportDatei
End With
End Sub

Evidentemente tendría que adaptarlo para hacerlo con un formulario.

He copiado estas sentencias y no me funcionan... se detiene siempre en la secuencia con error 13:

Set VBKomp = _
ThisWorkbook.VBProject.VBComponents.Add _
(vbext_ct_StdModule).

¿ Se os ocurre alguna idea para hacer esta copia de formularios? ¿ Conoceis algún otro método para hacerlo?

Muchas Gracias de antemano....

Marta
02 de Junio del 2004

Hola,

prueba a quitar el carácter '_' y a ponerlo todo seguido. Hay veces que eso no funciona bien.

Un saludo.

al
02 de Junio del 2004

No te pegues un tiro que luego se mancha todo y hay que limpiar!!!(jejeje que es broma)
Animate yo estoy en la misma situacion, tu tomatelo con filosofia.
Un saludo de parte de Alberto.