ajuda no api [resolvido]

[Beckman]

olá gostaria de saber como se faz um comando para um botão de um api.
eu encontrei pela internet um api e o transformei para salvar um determinado arquivo em pdf, contudo quando clicko no botão cancelar ela não cancelar ele ler o comando para salvar a planilha em pdf e dá o erro.
a minha dúvida é como se faz um comando para quando eu clikar no botão cancelar ele e não salve o arguivo.

aqui vai um exemplo api para salvar em pdf e o exemplo original

fico grato com ajuda .....

[joseA]

Adapte aí:

Código: Selecionar todos

Sub PDF()
  If MsgBox("Deseja Salvar o arquivo" & "?", vbYesNo + vbQuestion, "PDF") = vbNo Then
  
MsgBox "Você optou por não salvar o arquivo"
   Exit Sub
  End If
MsgBox "Você optou por salvar o arquivo"

End Sub

[Beckman]

valew josé .... a ideia é boa ao usar o msgbox, contudo ao analizar este comando abaixo(cor roxa) de exportar para txt, principalmente o que estar de vermelho, vi que poderia usar o própio botão do api. portanto ficou assim(cor azul):


Public Sub gsPasta()
Dim lPasta As String

hora = Hour(Time)
minuto = Minute(Time)
segundo = Second(Time)
TEMPO = hora & minuto & segundo
dia = Day(Date)
mês = Month(Date)
ano = Year(Date)
DATA = dia & mês & ano
dia = Day(Date)
mês = Month(Date)
ano = Year(Date)
DATA = dia & mês & ano
lPasta = gfSelecionarPasta("C:", "Selecione o local aonde será gravado o arquivo:")

If lPasta = "" Then
Exit Sub
End If
ChDir lPasta
Plan1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=lPasta & " " & TEMPO & "-" & DATA, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False



'End If

End Sub[/color]




Sub Exportar()
Application.DisplayAlerts = False

template_file = ActiveWorkbook.FullName


fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:\users" + _
VBA.Strings.Format(Now, "mmddyyyy") + ".txt", _
fileFilter:="Text Files (*.txt), *.txt")

If fileSaveName = False Then
Exit Sub
End If


ActiveWorkbook.SaveAs Filename:= _
fileSaveName, FileFormat:=xlTextWindows, _
CreateBackup:=False

file_name_saved = ActiveWorkbook.FullName
MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos"

Orcamento.Show

End Sub



vou deixar aqui o modelo como é que ficou.......... axo que ficou legal

PROJETO DE SALVAR EM PDF.zip

modelo de api que mostra as pastas para salvar arguivo em pdf

(26.09 KiB) Baixado 272 vezes

Public Sub gsPasta()

[joseA]

O importante é que resolveu.

[Jtruculo]

Pessoal,

Este código é excelente! Porem não resolve minha demanda ainda, como faço para imprimir o userform em PDF em vez de uma planilha ou intervalo. Desde já obrigado.