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