Aprire cartelle

Pippo_012

il 08 feb 2018, 17:02

14 risposte

Pippo_012

Pochi posts

Iscritto da: dic, 2017

Messaggi:: 17

Aprire cartelle

08 feb 2018, 17:20

Ciao,
premetto che di codice VBA ne conosco poco, e ho la seguente esigenza, all'interno del server ho una cartella contenete una serie di sottocartelle che fanno riferimento ai vari anni. Quello che vorrei fare è al click di un pulsate si dovrebbe aprire la cartella dell'anno corrente.
Ho inserito il seguente codice ma non funziona.

Private Sub txt_apri_documenti_Click()

Dim anno As Integer
anno = Year(Date)
Application.FollowHyperlink ("\\Server\z\01_GESTIONE AZIENDA\COMMESSE\anno")

End Sub

14 Risposte

O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21552
Re: Aprire cartelle
08 feb 2018, 17:52
Anno è una variabile numerica ... devi concatenarla al resto del percorso come stringa

"\\Server\z\01_GESTIONE AZIENDA\COMMESSE\" & CStr(anno)
P
Pippo_012
Pochi posts
Iscritto da
dic, 2017
Messaggi:
17
Re: Aprire cartelle
08 feb 2018, 18:16
Grazie mille oregon, ora pero ho un altro problema all'interno dell'anno ho altre cartelle che prendono il nome da varie parti del databare, come faccio a concatenare la seguente stringa a quella precedente?

"C_" & Left([txt_numero_commessa], 4) & "-" & Right([txt_numero_commessa], 4) & " " & ([ragione_sociale]) & "-" & ([riferimento])
O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7503
Re: Aprire cartelle
08 feb 2018, 19:43
Siccome la stringa è molto lunga, ti consiglio di usare una variabile di tipo String e fare concatenazioni "a pezzetti", ossia:
```
Dim strPath As String
strPath = "\\Server\z\01_GESTIONE AZIENDA\COMMESSE\" & CStr(anno)
strPath = strPath & "\C_" & Left([txt_numero_commessa], 4) & "-" & Right([txt_numero_commessa], 4) & " " & ([ragione_sociale]) & "-" & ([riferimento])
Application.FollowHyperlink strPath
```
Il backslash \ prima di C ce l'ho messo io ipotizzando che tutta quella "pappardella" sta sotto la cartella dell'anno.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21552
Re: Aprire cartelle
08 feb 2018, 19:58
Pippo ... la questione è molto semplice, basi di programmazione ... una volta che hai avuto un esempio, potresti essere tu a provarci ...
P
Pippo_012
Pochi posts
Iscritto da
dic, 2017
Messaggi:
17
Re: Aprire cartelle
08 feb 2018, 20:20
Grazie OsvaldoLaviosa ho provato con le tue indicazioni, ma mi da errore alla terza riga.

Oregon se avevo basi di programmazione non stavo a chiedere aiuto qui.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21552
Re: Aprire cartelle
08 feb 2018, 20:34
Pippo_012 ha scritto:
Oregon se avevo basi di programmazione non stavo a chiedere aiuto qui.
Se "avessi avuto" ... ma dovresti studiare qualcosa per farti queste basi ... copiare e incollare non serve a nulla.
I consigli si danno proprio per iniziare ad andare con le proprie gambe .... ma se non ci si prova ...

COSA hai provato a fare? QUALE errore ti dà? L'hai LETTO con attenzione?
P
Pippo_012
Pochi posts
Iscritto da
dic, 2017
Messaggi:
17
Re: Aprire cartelle
08 feb 2018, 20:45
Mi va in Debug ("errore di run-time 2465" impossibile trovare il campo 1 a cui viene fatto riferimento nell'espressione)
e viene evidenziato di giallo la terza riga.
Ho creato una cartella "C_" e fino a li tutto Ok quando vado ad aggiungere l'altra strina va in errore
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21552
Re: Aprire cartelle
08 feb 2018, 21:04
Mostra la linea di codice che hai scritto
P
Pippo_012
Pochi posts
Iscritto da
dic, 2017
Messaggi:
17
Re: Aprire cartelle
08 feb 2018, 21:08
StrPath = strPath & "\C_" & Left([txt_numero_commessa], 4) & "-" & Right([txt_numero_commessa], 4) & " " & ([ragione_sociale]) & "-" & ([riferimento])
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21552
Re: Aprire cartelle
08 feb 2018, 21:19
Ma questi campi

txt_numero_commessa
txt_numero_commessa
ragione_sociale
riferimento

esistono con questi nomi?

Hai provato ad aggiungerne uno alla volta alla stringa per capire quando si presenta l'errore? Prima prova così

StrPath = strPath & "\C_" & Left([txt_numero_commessa], 4)

poi

StrPath = strPath & "\C_" & Left([txt_numero_commessa], 4) & "-" & Right([txt_numero_commessa], 4)

poi

StrPath = strPath & "\C_" & Left([txt_numero_commessa], 4) & "-" & Right([txt_numero_commessa], 4) & " " & ([ragione_sociale])
P
Pippo_012
Pochi posts
Iscritto da
dic, 2017
Messaggi:
17
Re: Aprire cartelle
08 feb 2018, 21:44
Già inserendo la prima riga da errore.
i campi esistono tutti con questa stringa ci creo, con un'altro pulsante le cartelle che ora voglio aprire

Call MkDir("\\Server\z\01_GESTIONE AZIENDA\COMMESSE\" & anno & strseparatore & "C_" & Left([txt_numero_commessa], 4) & "-" & Right([txt_numero_commessa], 4) & " " & ([ragione_sociale]) & "-" & ([riferimento]))
willy55
Molto attivo
Iscritto da
nov, 2015
Messaggi:
836
Re: Aprire cartelle
08 feb 2018, 23:11
Controlla la concatenzione della stringa con cui crei la directory, tenendo presente che:
- deve esistere la directory padre prima che possa essere generata quella figlia;
- si deve avere i diritti per la scrittura su dette folder.
P
Pippo_012
Pochi posts
Iscritto da
dic, 2017
Messaggi:
17
Re: Aprire cartelle
09 feb 2018, 17:03
Trovato l'inghippo, le commesse vengono create con questo formato "0000/2018" mentre le cartelle che vado a creare e poi aprire vengono create in questo formato 0000-20108 in quanto windows non permette di mettere il simbolo "/" ora non so come risolvere il problema.
M
mikelemm
Utente Attivo
Iscritto da
dic, 2014
Messaggi:
109
Re: Aprire cartelle
09 feb 2018, 18:04
Pippo_012 ha scritto:
Trovato l'inghippo, le commesse vengono create con questo formato "0000/2018" mentre le cartelle che vado a creare e poi aprire vengono create in questo formato 0000-20108 in quanto windows non permette di mettere il simbolo "/" ora non so come risolvere il problema.
Ciao Pippo,
una possibile soluzione potrebbe essere quella di effettuare, all'interno della sola numerazione della commessa, la sostituzione del carattere "/" con il carattere "-" tramite la funzione Replace.

Devi accedere o registrarti per scrivere nel forum

14 risposte