Este fórum está sendo desativado

[WarleySCCCO]

Olá Gurus,

Projeto esta super dando certo, cadastrando, alterando e salvando. Agora gostaria de uma ajuda, direção...

1 - Botão "Selecionar Relatório" : Selecionar um Arquivo em Word ou PDF.

2- Botão " Salvar Relatório: Salvar o Arquivo em uma pasta pre estabelecida no código.

3- Após salvar, ser gerado um link conforme ilustração.

Segue imagem: https://uploaddeimagens.com.br/imagens/ipb4HBc

[babdallas]

Ao administradores do Fórum, favor direcionar esta dúvida para o Grupo de Macro e VBA.

[WarleySCCCO]

Então Gurus,

Fiz algumas pesquisas e andei bastante nessa demanda. Dá os credito ao Marcos Rieper, professor de Excel o qual achei um artigo sobre "Seleção de arquivos, pastas e salvar arquivos com o FileDialog VBA".

Então. Já estou conseguindo Selecionar a Pasta destino, Selecionar o arquivo que quero salvar nesta pasta, UNICO problema que quando clico salvar o aquivo não é Salvo.

Imagens: https://uploaddeimagens.com.br/imagens/fXa7lf8

Código: Selecionar todos

Private Sub lsSalvar_Click() 'Procedimento para salvar arquivo
Dim fDlg    As FileDialog

    Set fDlg = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)

    'Nome padrão para salvar o arquivo
    fDlg.InitialFileName = "APAGUE e Coloque_Nº_do_Relatório_Somente"

    fDlg.Show
End Sub
Private Sub lsSelecionarPasta_Click() 'Procedimento selecionar Pasta
Dim fDlg    As FileDialog
    Dim lPasta  As String

    Set fDlg = Application.FileDialog(FileDialogType:=msoFileDialogFolderPicker)

    'Retorna a pasta selecionada
    If fDlg.Show = -1 Then
        lPasta = fDlg.SelectedItems(1)
        MsgBox "A pasta selecionada foi: " & lPasta
        txtendPasta.Value = lPasta
    Else
        MsgBox "Não foi selecionada nenhuma pasta"
    End If
End Sub
Private Sub lsSelecionarArquivo_Click()
'Procedimento para selecionar arquivo
    Dim fDlg As FileDialog
    Dim lArquivo As String

    'Chama o objeto passando os parâmetro
    Set fDlg = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
    With fDlg
        'Alterar esta propriedade para True permitirá a seleção de vários arquivo
        .AllowMultiSelect = False

        'Determina a forma de visualização dos aruqivo
        .InitialView = msoFileDialogViewDetails

        'Filtro de arquivos, pode ser colocado mais do que um filtro separando com ; por exemplo: "*.xls;*.xlsm"
        .Filters.Add "Texto", "*.txt", 1

        'Determina qual o drive inicial
        .InitialFileName = "C:\"
    End With

    'Retorna o arquivo selecionado
    If fDlg.Show = -1 Then
        lArquivo = fDlg.SelectedItems(1)
        MsgBox "O arquivo selecionado está em: " & lArquivo
        txtArquivoSel.Value = lArquivo
    Else
        MsgBox "Não foi selecionado nenhum arquivo"
    End If

End Sub

[WarleySCCCO]

Então, se algum Guru caridoso puder ajudar kkk. Poderia até simplificar.

Um botão para selecionar o arquivo com destino prédefinido na VBA. Ao salvar retornar o link em umas dessas TxtBox o endereço do arquivo.