Fóruns
Microsoft Excel - 2...
Formulários
Ajuda com FileCopy
 
Notifications
Clear all

Ajuda com FileCopy

 
Formulários
Post Recente por bilokas 11 anos atrás
3 Posts
2 Usuários
0 Reactions
966 Visualizações
RSS
 bilokas
(@bilokas)
Posts: 168
Reputable Member
Topic starter
 

Olá pessoal, venho mais uma vez pedir a ajuda dos amigos do fórum:

O problema do meu projeto é o seguinte:

Tenho um botão para carregar arquivos .pdf, onde quando o arquivo é selecionado, o caminho completo do arquivo aparece numa textbox. também há uma outra textbox onde o usuário digita o nome do documento e outra com a inscrição estadual.

Eu preciso criar a rotina para ao clicar em cadastrar, o sistema deve fazer uma cópia do arquivo na mesma pasta onde está a planilha (ThisWorkbook) e alterar o nome do arquivo com o conteúdo da textbox inscrição estadual e a textbox nome do documento (juntar as 2 textbox para criar o nome).

Já tentei de todos os jeitos que eu conheço e não consegui. Conto a ajuda de vocês!

em desenvolvimento.rar
 
Postado : 25/09/2013 8:57 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Altere a rotina do botão salvar conforme abaixo e veja se lhe atende:

Private Sub btn_Cadastrar_Click()

'========================================================================================================
 'Seleciona planilha e procura linha para gravar dados
'========================================================================================================
Sheets("base").Select
If Range("A2") = "" Then
lin = 2
    Else
    Range("A1").Select
    Selection.End(xlDown).Select
    lin = ActiveCell.Row + 1
End If

'========================================================================================================
 'Cadastro
'========================================================================================================
Sheets("base").Cells(lin, 1).Value = Me.txtInscricao.Value
Sheets("base").Cells(lin, 2).Value = Me.txtRazaoSocial.Value
Sheets("base").Cells(lin, 3).Value = Me.txtNomeDocumento.Value
Sheets("base").Cells(lin, 4).Value = ThisWorkbook.Path & "" & txtInscricao.Text & " - " & txtNomeDocumento.Text & ".pdf"

FileCopy txtCaminhoArquivo.Text, Sheets("base").Cells(lin, 4).Value

MsgBox "Cadastro realizado com sucesso!", vbInformation, "SUCESSO"
 
Unload Me
frmCadastro.Show
End Sub
 
Postado : 25/09/2013 9:36 am
 bilokas
(@bilokas)
Posts: 168
Reputable Member
Topic starter
 

AMIGO MUITO OBRIGADO, ATENDEU PERFEITAMENTE.

 
Postado : 25/09/2013 11:35 am
Forum Jump:
  Tópico Anterior
Próximo Tópico