SALVAR ARQUIVO EM DESKTOP (USERS)

 Tópico anterior Próximo tópico Novo tópico

SALVAR ARQUIVO EM DESKTOP (USERS)

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#486473 - 11/01/2019 10:28:46

FBFERREIRA1
SAO PAULO
Cadast. em:Dezembro/2018


Olá amigos, feliz ano novo a todos!!!

Preciso da ajuda de vocês, pois estou criando uma linha de comando onde quero que o arquivo A que esta no desktop seja enviado para outro caminho mas mudando o nome do arquivo.
Exemplo:
FileCopy "C:\Users\gomesf2\Desktop\export - Copia.csv", "C:\Users\gomesf2\Documents\export - Copia.csv"

A minha duvida é como mandar para outra pessoa onde ao rodar o processo no VBA o environ muda (Usuario) e com isso nao roda o processo pois na minha linha de comando eu determinei meu usuario como padrão.

Estou fazendo assim: FileCopy Environ("USERPROFILE") & "\Desktop\" & Export.csv, Environ("USERPROFILE") & "\Desktop\" & Export.csv
Ao rodar a macro esta dando erro de Objeto Obrigatório  

Preciso de ajudar para acertar este código e com isso qualquer pessoa rodar a macro em suas respectivas maquinas.



Resposta escolhida #486476 - 11/01/2019 12:23:52

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe
#486478 - 11/01/2019 14:41:23

FBFERREIRA1
SAO PAULO
Cadast. em:Dezembro/2018


Cleverton,
Agradeço sua ajuda, pois pesquisando entre tentativa e erro consegui ajustar o meu código, assim deixo-o disponível para todos do fórum:


CÓDIGO AJUSTADO!!!!

Private Sub Workbook_Open()

    Dim wrkBK As Workbook
    Dim DocFldr As String

    DocFldr = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    Set wrkBK = Workbooks.Open(DocFldr & "\export.csv")
    MsgBox wrkBK.Name & " is open", vbOKOnly + vbInformation



End Sub



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FBFERREIRA1 em 11/01/2019 14:42:19