Creare e Nominare Progressivamente 800 cartelle

Question

Buon Giorno a tutti

Approfitto ancora una volta di questa Community ( e che ringrazio nuovamente per tutto l'aiuto che mi ha fornito !! )

Esiste forse la Possibilita'  di creare e nominare progressivamente  un numero notevole di cartelle ...??

Esempio   Cartella iniziale     nome   " Pratica  100 " , Pratica 101 , ..... fino pratica 800 ..... ??

.... per evitare .. clic tasto destro ,nuovo , scrivi nome ...........................  800 volte

Grazie  per  qualsiasi suggerimento                               Claudio  P

Answer 1

<cut>

Ti  ringrazio nuovamente ...pero' il termine cartella e' ambiguo come si fa' a non incorrere in errore ??

Scusa                                     Grazie     Claudio  P

Nessun problema. ecco il nuovo script.

Se devi solo creare le 701 Directory (da 100 a 800):

Dim lng

Dim objFSO

Dim objFolder

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    For lng = 100 To 800

        Set objFolder = objFSO.CreateFolder("C:\Pratiche\Pratica " & lng)

        Set objFolder = Nothing

    Next

Set objFSO = Nothing

Qui sono create all'interno della Directory C:\Pratiche. Modifica eventualmente con la tua path.

Answer 2

GRAZIE  

...quindi se ho capito bene

quella che io  chiamavo cartella  e'  la directory , il Foglio di lavoro e' la cartella ,...il  singolo Foglio all'interno della cartella ????   File ???

Cosi mi esprimo con termini appropriati

Grazie   di nuovo  Ciao    Claudio P

Directory (o Direttorio, brutto termine) = Cartella gialla di Windows

Cartella di lavoro/Cartella di Excel/Workbook = File di Excel

Foglio di lavoro (o più semplicemente Foglio) = Foglio della Cartella di lavoro (del File) di Excel

Ciao e alla prossima.

Answer 3

Buonasera

Ho copiato il codice sul blocco note  come da istruzioni sul link

1. Apro il Notepad
2. Scrivo (o incollo se è stato copiato) il codice
3. Seleziono: File
4. Seleziono: Salva con nome
5. Viene mostrata la finestra di salvataggio file
6. In Salva come seleziono: Tutti i file (*)
7. In Nome file metto un nome che finisca con l'estensione .vbs. Esempio: abc.vbs
8. Scelgo la Directory in cui salvare il file
9. Salva

salvato su Desktop nella cartella "Prova " nome file  Cartelle.vbs

appare una txt box che dice :

Windows Script Host

X   script C:\Users\Carla\Desktop\Cartelle.vbs

Riga 9     Errore impossibile accedere al file "C\Prova\20513000"|

Motivi possibili sono

Il nome o il percorso del file non esiste

il file e' utilizzato da un altro programma

il nome della cartella di lavoro che si sta' tentando di salvare corrisponde a quello di una cartella di lavoro attualmente aperta

codice  800A03EC    origine Microsoft Excel

Dove  ho sbagliato ????

                                              Grazie    Claudio  P

Answer 4

Buonasera

Intanto  GRAZIE    GRAZIE

Devo proprio creare 800 cartelle  di excel  con nome uguale per tutte ma numero progressivo

(Pratica 100 , Pratica 101 , Pratica 102 ......etc..

Ho visitato il link consigliato , scaricato il programma d'aiuto .. , adesso provo il codice .vbs  e poi ti comunico  gli effetti

                                  Grazie    Claudio P

Answer 5

.... per evitare .. clic tasto destro ,nuovo , scrivi nome ...........................  800 volte

Un modo.

Copia/incolla questo in un file del Blocco Note:

Dim objExcel

Dim objWorkbook

Dim lng

Set objExcel = CreateObject("Excel.Application")

    for lng = 100 to 800

        Set objWorkbook = objExcel.Workbooks.Add

        objWorkbook.SaveAs("**C:\Prova**Pratica" & lng & ".xlsx")

        Set objWorkbook = Nothing

    Next

    objExcel.Quit

Set objExcel = Nothing

Salvalo come .vbs. Vedi qui qualche info in più sui vbs:

• http://www.maurogsc.eu/vbscript/vbscrearevbs.aspx

Se invece vuoi duplicare un file esistente (qui Pratica100.xlsx, utilizza questo codice:

Dim objExcel

Dim objWorkbook

Dim lng

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open("C:\Prova\Pratica100.xlsx")

    for lng = 101 to 800

        objWorkbook.SaveAs("C:\Prova\Pratica" & lng & ".xlsx")  

    Next

    objExcel.Quit

Set objWorkbook = Nothing

Set objExcel = Nothing

Lancia il file (doppio click).

Modifica le parti in grassetto con i tuoi riferimenti.