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