Forums Últimos mensajes - Powered by IBM
 

Crear nuevo libro sin formulas ni macros

21/07/2006 - 07:49 por GR | Informe spam
Holas a todos

Como podria a hacer una macro que me creara un nuevo libro pero sin formulas
ni macros, es decir, tengo el libro base de datos con 75 hojas
aproximadamente y quiero crear otro con el nombre de respaldo pero quiero no
me copie ni formulas ni macros del libro base de datos, solo quiero que me
copie datos

Gracias por sus comentarios

Saludos
 

Leer las respuestas

#1 Francisco Parrilla
21/07/2006 - 10:22 | Informe spam
Del foro de microsoft:
Como podria a hacer una macro que me creara un nuevo libro pero sin formulas
ni macros, es decir, tengo el libro base de datos con 75 hojas
aproximadamente y quiero crear otro con el nombre de respaldo pero quiero no
me copie ni formulas ni macros del libro base de datos, solo quiero que me
copie datos


Sub copia_sin_macros()
Application.ScreenUpdating = False
If Dir("c:\miprueba.xls") <> "" Then MsgBox "Archivo existe" & _
vbCr & "Elimine archivo ...", vbExclamation: End
can = Worksheets.Count
Sheets(1).Select
Sheets(1).Copy
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\miprueba.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
For i = 2 To can
Workbooks("prueba.xls").Activate
Sheets(i).Select
Cells.Select
Selection.Copy
Workbooks("miprueba.xls").Activate
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
Next i
ActiveWorkbook.Save
Workbooks("miprueba.xls").Close
Sheets(1).Select
Range("a1").Activate
Application.ScreenUpdating = True
End Sub

Preguntas similares