Ajuda com FileCopy

Formulários

Post Recente por bilokas 11 anos atrás

3 Posts

2 Usuários

0 Reactions

980 Visualizações

RSS

bilokas

(@bilokas)

Posts: 168

Estimable 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

DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 25/09/2013 9:36 am