Página 1 de 1
salvar caminho do arquivo em duas celulas diferentes
Enviado: 29 Jan 2022 às 17:12
por samarazamora
boa noite a todos.
estou com um problema.
preciso de um comando em VBA que possa, ao clicar no botão do form salvar, ele faça o seguinte.
arquivo: c:\novapasta\foto1.jpg
fazer isso na planilha:
celula a1: c:\
celula b1: novapasta\foto1.jpg
desde já obrigada.
Re: salvar caminho do arquivo em duas celulas diferentes
Enviado: 29 Jan 2022 às 17:44
por osvaldomp
Olá,
@samarazamora .
Experimente:
Código: Selecionar todosDim k As Long, str As String
str = "c:\novapasta\foto1.jpg"
k = InStr(str, "\")
[A1] = Left(str, k)
[B1] = Right(str, Len(str) - k)
#
Se o texto do caminho pode variar e para não precisar alterar no código, então você pode colocá-lo em uma célula, por exemplo em D1 ~~~>
str = [D1]
Re: salvar caminho do arquivo em duas celulas diferentes
Enviado: 29 Jan 2022 às 22:14
por samarazamora
BOA NOITE @osvaldomp OSVALDO
OBRIGADA PELA DICA
SE PUDER ME AJUDAR
PRECISO DE UM CODIGO QUE SEPARE O ENDEREÇO DO PC DA PASTA QUE ESTA O ARQUIVO.
C:\Users\Marce\OneDrive\Área de Trabalho\PLANILHA GERAIS\IMAGENS\FOTO (3).jpg -------------- ENDEREÇO DA FOTO
PRECISO DISSO:
TEXTBOX1 = C:\Users\Marce\OneDrive\Área de Trabalho ------ ENVIA PARA PLANILHA
TEXTBOX2= PLANILHA GERAIS\IMAGENS\FOTO (3).jpg------ ENVIA PARA PLANILHA
Re: salvar caminho do arquivo em duas celulas diferentes
Enviado: 30 Jan 2022 às 08:19
por osvaldomp
Olá,
@samarazamora .
Não entendi qual é a sua dificuldade para implantar esses comandos tão simples, pois você já trabalha com UserForm.
Ou não entendi o que você quer ?
Código: Selecionar todos TextBox1.Value = "C:\Users\Marce\OneDrive\Área de Trabalho"
TextBox2.Value = "PLANILHA GERAIS\IMAGENS\FOTO (3).jpg"
[A1] = TextBox1.Value
[B1] = TextBox2.Value
Re: salvar caminho do arquivo em duas celulas diferentes
Enviado: 30 Jan 2022 às 10:40
por samarazamora
DEIXA EU SER MAIS CLARA.
É O SEGUINTE:
CRIEI UMA USERFORM COM CADASTRO DE FOTOS.
MEU DESEJO É. QUANDO EU SELECIONAR UMA FOTO E O CAMINHO DELA VIER ESPECIFICADO.
QUE:
NA TEXTBO1. = CONTENHA O ENDEREÇO DO COMPUTADOR QUE ESTA PASTA ESTA. POR EXEMPLO:
FOTO: C:\AREA DE TRABALHO\NOVAPATA\IMAGEM\FOTO1.JPG
TEXTBOX1= C:\ÁREA DE TRABALHO.
OU ENTÃO SE TERIA UM COMANDO QUE IDENTIFICASSE ESSE ENDEREÇO ONDE A PASTA LOCALIZA-SE E FOSSE POSTO AUTOMATICAMENTE NO TEXTBOX.
Re: salvar caminho do arquivo em duas celulas diferentes
Enviado: 30 Jan 2022 às 13:58
por osvaldomp
Disponibilize uma amostra do seu arquivo Excel.
Coloque alguns exemplos e coloque também os resultados desejados em cada caso.
Informe com exatidão o que você deseja, pois no seu primeiro post você pede para preencher
A1 e
B1. No segundo post mudou para
TextBox1 e
TextBox2 e aparece só "
envia para planilha". Já no terceiro é citado que existe uma lista de fotos, suponho que a lista esteja em um
outro Controle, e só aparece a
TextBox1. A
TextBox2 e "
planilha" não aparecem mais.
Re: salvar caminho do arquivo em duas celulas diferentes
Enviado: 30 Jan 2022 às 14:48
por samarazamora
pronto ai segue a planilha.
Private Sub CommandButton1_Click()
On Error Resume Next
FOTO = Application.GetOpenFilename(FILEFILTER:="IMAGEM, *.jpg")
Image1.Picture = LoadPicture(FOTO)
'COLOCAR O MEMSO NOME DA FOTO NO TEXTBOX PARA SALVAR
Dim CAMINHO, K As String
CAMINHO = FOTO
'PARA POR O DIRETORIO
K = InStr(CAMINHO, "")
'REPRESENTA O ARQUIVO
TextBox1 = Mid([CAMINHO], InStrRev([CAMINHO], "\") + 1)
===> quero que fique nessa textbox. somente a a pasta do arquivo com o endereço (pastanova\imagens\foto.jpg)
'REPRESENTA O CAMINHO
TextBox2 = Left(CAMINHO, K) & Mid([CAMINHO], InStrRev([CAMINHO], ":\"))
====> nessa quero que fique o endereço onde esta a pasta que fica os arquivos (c:\usuário\area de trabalho)
Re: salvar caminho do arquivo em duas celulas diferentes
Enviado: 30 Jan 2022 às 18:12
por osvaldomp
Código: Selecionar todosTextBox1 = Right(CAMINHO, Len(CAMINHO) - 41)
TextBox2 = Left(CAMINHO, 40)
#
Resultados para dois exemplos que estão na planilha
P1 do seu arquivo:
exemplo em B2 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho\PLANILHA GERAIS\IMAGENS\monstros gregos\E (1).jpg
TextBox1 ~~~> PLANILHA GERAIS\IMAGENS\monstros gregos\E (1).jpg
TextBox2 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho
exemplo em B10 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho\PLANILHA GERAIS\IMAGENS\FOTO (127).jpg
TextBox1 ~~~> PLANILHA GERAIS\IMAGENS\FOTO (127).jpg
TextBox2 ~~~> C:\Users\Marce\OneDrive\Área de Trabalho