Buenas tardes
Solicito de su colaboración con la siguiente macro no he podido resolverla y
no se cómo pasar ese lenguaje al q utiliza libre
Sub extraerDatosotrolibro()
'acelerar macro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ThisComponent.CurrentController.ActiveSheet.DisplayPageBreaks = False
'borrar datos inicio
Columns("A:S").Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearContents
Range("A1").Select
'extraer datos
Application.DisplayAlerts = False
Dim libroDatos As Workbook
Set libroDatos =
Workbooks.Open("Z:\facturacion\recibo\interfce\InterfazIB.xls")
libroDatos.Sheets(1).Range("A1:S65521").Copy
libroDatos.Close savechanges:=False
Sheets("macro real").Select
Range("A1").Select
Sheets("macro real").Paste
Columns("A:H").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select
Application.DisplayAlerts = True
'acelerar macro
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Saludos,
Helvert Yovanny Camacho
--
Para instrucciones sobre darse de baja envíe un mensaje a:
users+unsubscr...@es.libreoffice.org
¿Problemas?
http://es.libreoffice.org/asistencia/listas-de-correo/como-darse-de-baja/
Guías para envío + más: http://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: http://listarchives.libreoffice.org/es/users/
Todos los mensajes enviados a esta lista serán archivados públicamente y no
pueden ser eliminados
