質問する

lctlucas's profile - activity

2019-08-12 16:36:37 +0200 バッジを受け取った  有名な質問 (source)
2019-03-01 17:56:39 +0200 ベストアンサーマーク Macro para exportar PDF com nome variável

Bom dia!

Preciso de uma macro que possa fazer os seguintes passos:

  • Selecionar a Célula (B9)
  • Alterar o valor da célula para o numero "1"
  • Exportar a planilha para PDF usando o conteúdo da célula (B3) como nome do arquivo

Fiz a macro abaixo e ela funcionou, o problema é que ela imprime todas as abas da planilha, ou seja a planilha inteira, na verdade eu queria imprimir somente a aba (Planilha1). O que eu faço, podem me ajudar?

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1



sub MacroPDF
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
Dim oPlan as Object, oCel as Object
Dim sNomeArquivo as String

Range("B9").Select
ActiveCell.FormulaR1C1 = "1"
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oPlan = ThisComponent.Sheets.getByName( "Planilha1" )
oCel = oPlan.getCellRangeByName( "B3" )
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/lctlu/Documents/Relatórios de Serv/" & oCel.String & ".pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
End sub
2019-02-26 18:04:36 +0200 バッジを受け取った  卓越した質問 (source)
2019-02-21 19:32:10 +0200 バッジを受け取った  人気の質問 (source)
2019-02-21 11:47:15 +0200 バッジを受け取った  自己学習者 (source)
2019-02-21 11:47:15 +0200 バッジを受け取った  教師 (source)
2019-02-20 22:33:37 +0200 コメント付き質問 Remover Alertas do Sistema

Kkkk, esse é o meu medo: fazer caga_da.

2019-02-20 21:51:41 +0200 編集された質問 Remover Alertas do Sistema

Remover Alertas do Sistema Boa tarde, No Excel eu costumava usar Application.DisplayAlerts = False para evitar as caixa

2019-02-20 21:50:46 +0200 編集された質問 Remover Alertas do Sistema

Remover caixas de diálogo Boa tarde, No Excel eu costumava usar Application.DisplayAlerts = False para evitar as caixas

2019-02-20 21:50:15 +0200 コメント付き質問 Remover Alertas do Sistema

Boa tarde, na verdade estou me referindo aos alertas do sistema, como o na imagem que adicionei na pergunta. Seria possi

2019-02-20 21:43:33 +0200 質問に回答する Macro para exportar PDF com nome variável

Na verdade descobri que tinha relação com os intervalos de impressão, então entrei em cada aba e defini os intervalos de

2019-02-20 21:33:46 +0200 質問をする Remover Alertas do Sistema

Remover caixas de diálogo Boa tarde, No Excel eu costumava usar Application.DisplayAlerts = False para evitar as caixas

2019-02-20 21:24:41 +0200 コメント付き回答 Definir aba da planilha onde a macro será executada

Rapaz, eu estava sofrendo com isso, resolveu perfeitamente. Muito obrigado!

2019-02-20 21:23:54 +0200 ベストアンサーマーク Definir aba da planilha onde a macro será executada

Boa tarde!

Fiz uma macro para ser usada na Planilha1, essa macro vai ser repetida diversas vezes, porém quando eu chamo a macro através de um botão, geralmente ela não funciona até eu clicar em alguma célula da planilha onde ela deve ser executada.

Macro:

Sub GerarPDF

For i = 1 to 105 Step 1
Call Module1.Copiaecola
Wait 350
Call Module2.MacroPDF
Next

Wait 200
Call Module3.Finalizar

End Sub

A Sub Copiaecola:

Sub Copiaecola
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$10"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$B$9"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PasteOnlyValue", "", 0, Array())


end sub

Por fim a Sub MacroPDF

Sub MacroPDF
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
Dim oPlan as Object, oCel as Object
Dim sNomeArquivo as String

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oPlan = ThisComponent.Sheets.getByName( "Reg de Publicador" )
oCel = oPlan.getCellRangeByName( "B3" )
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/Lucas/Documents/RELAT C/" & oCel.String & "-" & Format(Date, "yyyymmdd") &".pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())

End Sub

Poderiam me ajudar?

2019-02-20 21:23:54 +0200 バッジを受け取った  学者 (source)
2019-02-20 18:55:25 +0200 質問をする Definir aba da planilha onde a macro será executada

Definir aba da planilha onde a macro será executada Boa tarde! Fiz uma macro para ser usada na Planilha1, essa macro va

2019-02-20 16:14:47 +0200 バッジを受け取った  人気の質問 (source)
2019-02-19 21:32:44 +0200 コメント付き質問 Macro para exportar PDF com nome variável

Obrigado pela ajuda. Na verdade descobri que tinha relação com os intervalos de impressão, então entrei em cada aba e de

2019-02-19 15:14:00 +0200 バッジを受け取った  生徒 (source)
2019-02-19 14:18:22 +0200 編集された質問 Macro para exportar PDF com nome variável

Macro para exportar PDF com nome variável Bom dia! Preciso de uma macro que possa fazer os seguintes passos: Selecion

2019-02-19 12:21:54 +0200 編集された質問 Macro para exportar PDF com nome variável

Macro para exportar PDF com nome variável Bom dia! Preciso de uma macro que possa fazer os seguintes passos: Selecion

2019-02-19 12:20:56 +0200 バッジを受け取った  オーガナイザー (source)
2019-02-19 12:20:22 +0200 バッジを受け取った  編集者 (source)
2019-02-19 12:20:22 +0200 編集された質問 Macro para exportar PDF com nome variável

Macro para exportar PDF com nome variável Bom dia! Preciso de uma macro que possa fazer os seguintes passos: Selecion

2019-02-19 12:14:04 +0200 編集された質問 Macro para exportar PDF com nome variável

Macro para exportar PDF com nome variável Bom dia! Preciso de uma macro que possa fazer os seguintes passos: Selecion

2019-02-19 12:12:47 +0200 質問をする Macro para exportar PDF com nome variável

Macro para exportar PDF com nome variável Bom dia! Preciso de uma macro que possa fazer os seguintes passos: Selecionar