macros antiguas

6 envíos / 0 nuevos
Último envío
argacha
Imagen de argacha
Offline
última acción: Hace 9 meses 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 10/01/2007 - 08:28
Puntos: 1922
macros antiguas

No puede grabar un libro que contiene una macro de la versión 5.

Realmente tampoco puedo abrirlas, pero un compañero abríó el libro y exportó el módulo. LO he importado desde la versión 2007`pero ahora no puedo grabar el libro con esa macro.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 6 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10690
Re: macros antiguas

¿no te deja grabarlo como xslx? prueba a grabarlo primero como xls, versión 2000.

Qué archivo es ese módulo que has exportado. ¿las macros en las versiones anteriores a la 5 no estaban en hojas de cálculo? (todavía en la versión 2007, con la combinación [ Ctrl ][ F11 ] se inserta una hoja de macro de excel4)

Si puedes abrir el archivo original, prueba también a copiar el texto de la macro y pegarlo en un libro nuevo, con un módulo nuevo, en vez de exportando/importando el módulo.

ya nos contarás qué tal.

------
Ya sé Excel, pero necesito más ahora en pdf

 

------
Ya sé Excel, pero necesito más.

argacha
Imagen de argacha
Offline
última acción: Hace 9 meses 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 10/01/2007 - 08:28
Puntos: 1922
Re: macros antiguas

He hecho lo que me has dicho. Es decir,  he abirto la hoja, he importado el módulo, y he grabado como 2000.

Todo bien

he abirerto con 2007 y perfecto, pero... la macro no funciona.. por una orden (esto es loque supongo) que ya no funciona... es el comando: Open

Open nombrearchivo For Output As #1
Print #1, "_ucs u"
For i = 0 To numero
    xpunto = ActiveSheet.Cells(fil + i, col + 1).Value
    ypunto = ActiveSheet.Cells(fil + i, col + 2).Value
    angulo = ActiveSheet.Cells(fil + i, col + 3).Value
    texto = ActiveSheet.Cells(fil + i, col).Value
    Print #1, "insert " & nombre; " " & Format(xpunto) & "," & Format(ypunto) & " 1 1 " & Format(angulo)
    Print #1, "texto r " & Format(xpunto) & "," & Format(ypunto + separacion) & " " & Format(altura) & "  " & texto; " "
Next i
Close #1

Supongo que lo que fallará es el tratramienot de archivos...

¿cómo se haría un archivo ascii igual que el anterior???

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 6 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10690
Open

Pues yo he programado cosas parecidas en 2007 con la instrucción Open y funcionan igual que antes.

de hecho he probado este código que adjuntas y funciona bien en la 2007.

Comprueba  que tienes permisos para escribir en la carpeta donde se encuentre tu archivo.

comprueba el valor de esa variable nombrearchivo.

puede ser un tema con el directorio por defecto que emplee ahora Excel.

no sé.

------
Ya sé Excel, pero necesito más ahora en pdf

 

------
Ya sé Excel, pero necesito más.

argacha
Imagen de argacha
Offline
última acción: Hace 9 meses 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 10/01/2007 - 08:28
Puntos: 1922
Re: Open

Ya está... tan sencillo como que no exixtía el directorio...

pero sigo teniendo problemas para grabar... me dice que no puedo hacer un xlsx.

la he tendio que guardar en versión 2000..¿¿??

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 6 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10690
Re: Open

a uno de mis cuñados, el antivirus no le deja guardar como xlsx, pero le ocurre con todos los archivo, no sólo con uno como te ocurre a ti.

------
Ya sé Excel, pero necesito más ahora en pdf

 

------
Ya sé Excel, pero necesito más.