Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Apri folder appena creata

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Apri folder appena creata

Postdi deniel69 » 21/12/14 09:04

Utilizzo il codice seguente per creare una directory prelevando il nome
da una cella del foglio.
Ora subito dopo vorrei aprirla ma non riesco a capire quale sia la sintassi corretta
per valorizzare la stringa e fargli aprire la directory.

Public Sub m()

Dim objFso As Object
Dim objFolder As Object
Dim NomeFileCommessa As String
Dim sPathTI As String
Dim xCartellaTI As String

sPathTI = "C:\Users\daniele\Desktop"
NomeFileCommessa = ActiveSheet.Range("A1").Value

Set objFso = CreateObject("Scripting.FileSystemObject")


If objFso.FolderExists(sPathTI & "\" & NomeFileCommessa) Then
MsgBox "La cartella esiste"
Else
MsgBox "La cartella non esiste"
Set objFolder = objFso.CreateFolder(sPathTI & "\" & NomeFileCommessa)
MsgBox "La cartella è stata creata"

End If

'Apro la cartella appena creata
xCartellaTI = "sPathTI & " \ " & NomeFileCommessa & " \ "" '<===== SI BLOCCA QUì E NON SO COME EVITARLO

If Len(Dir(xCartellaTI, vbDirectory)) <> 0 Then
Shell "Explorer.exe /n,/e," & xCartellaTI, vbNormalFocus
Else
MsgBox "La cartella non esiste!", vbCritical
End If

Set objFolder = Nothing
Set objFso = Nothing

End Sub


Aiutoooooooooo :eeh:
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Sponsor
 

Re: Apri folder appena creata

Postdi Flash30005 » 21/12/14 17:10

Dipende da che cosa hai messo in A1
se hai messo solo il nome del file dovrai aggiungere l'estensione

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Apri folder appena creata

Postdi deniel69 » 21/12/14 17:17

In A1 ho messo il nome finale della directory che voglio creare.

Ho chiamato la stringa NomeFileCommessa , ma è il nome della directory finale che voglio aprire subito dopo averla creata....
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Re: Apri folder appena creata

Postdi Flash30005 » 21/12/14 17:31

C'erano spazi e virgolette di troppo

Codice: Seleziona tutto
Public Sub m()

Dim objFso As Object
Dim objFolder As Object
Dim NomeFileCommessa As String
Dim sPathTI As String
Dim xCartellaTI As String

sPathTI = "C:\Users\daniele\Desktop"

NomeFileCommessa = ActiveSheet.Range("A1").Value

Set objFso = CreateObject("Scripting.FileSystemObject")


If objFso.FolderExists(sPathTI & "\" & NomeFileCommessa) Then
MsgBox "La cartella esiste"
Else
MsgBox "La cartella non esiste"
Set objFolder = objFso.CreateFolder(sPathTI & "\" & NomeFileCommessa)
MsgBox "La cartella è stata creata"

End If

'Apro la cartella appena creata
xCartellaTI = sPathTI & "\" & NomeFileCommessa  '<===== SI BLOCCA QUì E NON SO COME EVITARLO"

 If Len(Dir(xCartellaTI, vbDirectory)) <> 0 Then
 Shell "Explorer.exe /n,/e," & xCartellaTI, vbNormalFocus
 Else
 MsgBox "La cartella non esiste!", vbCritical
 End If

Set objFolder = Nothing
Set objFso = Nothing

End Sub


Ciao

N.B. Consigli:
1) evita di usare un percorso che è valido solo nel tuo PC (sPathTI = "C:\Users\daniele\Desktop")
2) non usare mai il Desktop come "magazzino" dei file, più file sono sul desktop e più lento sarà il tuo PC
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Apri folder appena creata

Postdi deniel69 » 21/12/14 18:34

Perfetto ........

E ti ringrazio anche dei consigli, di solito uso il desktop solo in fase di prova per vedere che tutto funzioni.
Quando tutto è ok metto le path corrette......

Il prossimo step sarà cercare il NomeFileCommessa = ActiveSheet.Range("A1").Value in un altro file excel nel foglio1 e nella colonna "C" e se lo trovo aggiungere un collegamento ipertestuale con il medesimo nome per aprire la cartella.

Ma prima di chiedere aiuto proverò a lavorarci ................

Per ora grazie ,come sempre........
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43


Torna a Applicazioni Office Windows


Topic correlati a "Apri folder appena creata":


Chi c’è in linea

Visitano il forum: Marius44 e 19 ospiti