[es-users] macro vba

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+unsubscribe@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