Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Creare una nuova cartella chiamandola sempre con lo stesso n

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

Creare una nuova cartella chiamandola sempre con lo stesso n

Postdi Maury170419 » 08/04/19 11:43

Ciao a Tutti mi chiamo Maurizio e il mio problema e questo :
Ho Creato una procedura usando il vba per trasferire le immagini inserite dal mio foglio di lavoro
all'interno della mia Cartella di lavoro chiamata ( Oggetti_Immagini_Salvate )
e fin qui tutto ok.
Ahora la mia richiesta e questa:
Io ho creato questa funzione che richiamo con un oggetto ( OptionButton ) inserito sempre sul foglio di lavoro che e questa :
Codice: Seleziona tutto
Private Sub OptionButton1_Click()
On Error GoTo finish
IntDomanda = InputBox("Vuoi Eliminare la Cartella immagini...! " & Chr(13) & " Scrivi : Si o No ! ", IntDomanda)

If IntDomanda = "Si" Or IntDomanda = "si" Then
'Kill ThisWorkbook.Path & "\Oggetti_Immagini_Salvate"

strpath = ThisWorkbook.Path & "\Oggetti_Immagini_Salvate\"
Kill (strpath & "*.*")
RmDir (strpath)
Else
Exit Sub


finish:
MsgBox "Cartella Eliminata", vbInformation, " Attenzione "

End If
End Sub


E anche in questo caso funziona a meravigli.
Ora la mia domanda e questa : C'è la possibilità di creare una nuova cartella chiamandola sempre con lo stesso nome della precedente Grazie
Saluti Sinceri da A.Maurizio
Maury170419
Utente Junior
 
Post: 96
Iscritto il: 31/10/16 09:05

Sponsor
 

Re: Creare una nuova cartella chiamandola sempre con lo stes

Postdi Maury170419 » 08/04/19 12:31

Ciao a tutti Vi Prego di non tenere più presente questa mia richiesta in quanto sono riuscito a mettere in sieme i pezzi per risolvere questo problema grazie Comunque
Saluti Da A.Maurizio
Per correttezza il problema lo poi risolto creando queste due procedura che sono :
Codice: Seleziona tutto
Private Sub OptionButton1_Click()
On Error GoTo finish
IntDomanda = InputBox("Vuoi Eliminare la Cartella immagini...! " & Chr(13) & " Scrivi : Si o No ! ", IntDomanda)

If IntDomanda = "Si" Or IntDomanda = "si" Then
'Kill ThisWorkbook.Path & "\Oggetti_Immagini_Salvate"

strpath = ThisWorkbook.Path & "\Oggetti_Immagini_Salvate\"
VBA.Kill (strpath & "*.*")
VBA.RmDir (strpath)
Else
Exit Sub
End If

finish:
MsgBox "Cartella Eliminata", vbInformation, " Attenzione "
End Sub

Private Sub OptionButton2_Click()
On Error GoTo finish
VBA.MkDir ThisWorkbook.Path & ("\Oggetti_Immagini_Salvate\") '<<== la creo

finish:
MsgBox "Cartella Creata Con Successo", vbInformation, " Attenzione "
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Foglio1.OptionButton1.Value = False
Foglio1.OptionButton2.Value = False
End Sub
Maury170419
Utente Junior
 
Post: 96
Iscritto il: 31/10/16 09:05

Re: Creare una nuova cartella chiamandola sempre con lo stes

Postdi Maury170419 » 09/04/19 19:38

Ciao a tutti mi chiamo Maurizio
Questo Messaggio e ( Si ) indirizzato Principalmente ad anthony !!!!!!!!
Ma lo possono scaricare tutti coloro che come me amano Programmare
Ciao Anthony ti chiedo di scaricarti questo mio progetto finalmente finito in tutte le sue parti e darmi tranquillamente un voto .
Per me e molto importante avere un tuo parere ho anche quello di altri come ad esempio Flash / Scossa ecc...!
Grazie
(P.S) Questo e il link Per Scaricare il Tutto : https://app.box.com/s/9ctr4sg79pwu1cmmn6ynwba96tw9z18c
Maury170419
Utente Junior
 
Post: 96
Iscritto il: 31/10/16 09:05

Re: Creare una nuova cartella chiamandola sempre con lo stes

Postdi Anthony47 » 09/04/19 23:33

Interessante applicazione...

Ho notato che non sempre aggiorna le Immagini; te ne puoi rendere conto ripulendo le stesse a inizio ciclo, ad esempio inserendo queste UserForm1.ImageX.Picture = LoadPicture in questa posizione (in Modulo2_Estrazione_Dati_Web):
Codice: Seleziona tutto
myURL = "https://www.worldweatheronline.com/" & X & "/" & Y & "/it.aspx"
Set ie = CreateObject("InternetExplorer.Application")
UserForm1.Image2.Picture = LoadPicture("")
UserForm1.Image3.Picture = LoadPicture("")
UserForm1.Image4.Picture = LoadPicture("")
UserForm1.Image5.Picture = LoadPicture("")
UserForm1.Image6.Picture = LoadPicture("")
UserForm1.Image7.Picture = LoadPicture("")

With ie
    .navigate myURL

Stasera non riesco a capire da cosa deriva, guardero' domani con calma...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 16572
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Creare una nuova cartella chiamandola sempre con lo stesso n":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti