Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Ótimo, sua macro criou o arquivo perfeitamente, mas daí, não consegui encaixar ela na minha macro. Não sei se fica mais facil, mas vou colar minha macro na mensagem. Como falei, sou bem cru na coisa, uso muito a ferramenta de gravar macro pra conseguir alguma coisa. Eu mando ordenar as celulas primeiro pq fica mais rápido copiar o que eu quero. Se puder me ajudar de novo. Agradeço infinitamente.

Sub Pendencias() Sheets("Processos").Select

Dim FileNo As Integer Dim CurrentLine As String Dim Filename As String dim document as object dim dispatcher as object

document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(10) as new com.sun.star.beans.PropertyValue args1(0).Name = "ByRows" args1(0).Value = true args1(1).Name = "HasHeader" args1(1).Value = true args1(2).Name = "CaseSensitive" args1(2).Value = false args1(3).Name = "NaturalSort" args1(3).Value = false args1(4).Name = "IncludeAttribs" args1(4).Value = true args1(5).Name = "UserDefIndex" args1(5).Value = 0 args1(6).Name = "Col1" args1(6).Value = 4 args1(7).Name = "Ascending1" args1(7).Value = true args1(8).Name = "Col2" args1(8).Value = 4 args1(9).Name = "Ascending2" args1(9).Value = false args1(10).Name = "IncludeComments" args1(10).Value = false

dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args1())

Sheets("Pendencias").Select

Range("A1:K2000").Select Selection.ClearContents

Sheets("Processos").Select

Range("AO" & 1048410).Select ActiveCell.FormulaR1C1 = "= CONT.SE(D2:D6000;""ERRO"")" Contador = Range("AO" & 1048410) Range("AO" & 1048410).Select Selection.ClearContents

Range("A" & 1).Select ActiveSheet.Range(Cells(1, 1), Cells(contador, 4)).Select Selection.Copy

Sheets("Pendencias").Select

Range("a" & 1).Select = p2 ActiveSheet.Paste

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ---------------------------------------------------------------------- dim args2(2) as new com.sun.star.beans.PropertyValue args2(0).Name = "DocName" args2(0).Value = "" args2(1).Name = "Index" args2(1).Value = 32767 args2(2).Name = "Copy" args2(2).Value = true dispatcher.executeDispatch(document, ".uno:Move", "", 0, args2())

End Sub

Ótimo, sua macro criou o arquivo perfeitamente, mas daí, não consegui encaixar ela na minha macro. Não sei se fica mais facil, mas vou colar minha macro na mensagem. Como falei, sou bem cru na coisa, uso muito a ferramenta de gravar macro pra conseguir alguma coisa. Eu mando ordenar as celulas primeiro pq fica mais rápido copiar o que eu quero. Se puder me ajudar de novo. Agradeço infinitamente.

Sub Pendencias()
Sheets("Processos").Select

Sheets("Processos").Select Dim FileNo As Integer Dim CurrentLine As String Dim Filename As String dim document as object dim dispatcher as object

object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(10) as new com.sun.star.beans.PropertyValue args1(0).Name = "ByRows" args1(0).Value = true args1(1).Name = "HasHeader" args1(1).Value = true args1(2).Name = "CaseSensitive" args1(2).Value = false args1(3).Name = "NaturalSort" args1(3).Value = false args1(4).Name = "IncludeAttribs" args1(4).Value = true args1(5).Name = "UserDefIndex" args1(5).Value = 0 args1(6).Name = "Col1" args1(6).Value = 4 args1(7).Name = "Ascending1" args1(7).Value = true args1(8).Name = "Col2" args1(8).Value = 4 args1(9).Name = "Ascending2" args1(9).Value = false args1(10).Name = "IncludeComments" args1(10).Value = false

false dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args1())

Sheets("Pendencias").Select

args1()) Sheets("Pendencias").Select Range("A1:K2000").Select Selection.ClearContents

Sheets("Processos").Select

Selection.ClearContents Sheets("Processos").Select Range("AO" & 1048410).Select ActiveCell.FormulaR1C1 = "= CONT.SE(D2:D6000;""ERRO"")" Contador = Range("AO" & 1048410) Range("AO" & 1048410).Select Selection.ClearContents

Selection.ClearContents Range("A" & 1).Select ActiveSheet.Range(Cells(1, 1), Cells(contador, 4)).Select Selection.Copy

Sheets("Pendencias").Select

Selection.Copy Sheets("Pendencias").Select Range("a" & 1).Select = p2 ActiveSheet.Paste

ActiveSheet.Paste dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

args1()) rem ---------------------------------------------------------------------- dim args2(2) as new com.sun.star.beans.PropertyValue args2(0).Name = "DocName" args2(0).Value = "" args2(1).Name = "Index" args2(1).Value = 32767 args2(2).Name = "Copy" args2(2).Value = true dispatcher.executeDispatch(document, ".uno:Move", "", 0, args2())

args2()) End Sub

Sub