macro vba

classic Classic list List threaded Threaded
2 messages Options
Helvert Yovanny Camacho Helvert Yovanny Camacho
Reply | Threaded
Open this post in threaded view
|

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: [hidden email]
¿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

Mauricio Baeza Servin Mauricio Baeza Servin
Reply | Threaded
Open this post in threaded view
|

Re: macro vba

On Tue, 6 Jun 2017 16:29:50 -0500, "Helvert Yovanny Camacho" <[hidden email]> wrote:

> 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
>


Hola...

La macro es sencilla, y será fácil migrarla si puedes usar EasyDev:
http://easydev.readthedocs.io/es/latest/

Mira si puedes instalar EasyDev en tu equipo y te ayudo a migrarla la macro...


Saludos


P.D. Por favor, compañero administrador, cambia ya el reply de la lista.
--
Para instrucciones sobre darse de baja envíe un mensaje a: [hidden email]
¿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