Risultati da 1 a 8 di 8

Discussione: crea cartella + salva nomefile.xlsm + salva nomefile.pdf



  1. #1
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    Buonasera a tutti, ho cercato nel forum, ho anche trovato dei thread utili ma non riesco a far funzionare il codice VBA per il mio caso.

    In pratica ho la necessità di creare un file di configurazione di un macchinario inserendo il nome del progetto e il numero di matricola.
    Dati questi dati in una cella si creerà il percorso dove creare la cartella. Da qui necessito salvare una copia dei soli valori del file.xlsx oltre ad una copia in pdf.

    Avevo provato a modificare il codice preso da questo thread http://www.forumexcel.it/forum/7-dom...t=creacartella
    che sembra faccia al caso mio per la creazione delle cartelle, ma anche cambiando il riferimento delle celle, percorso ecc. non mi funziona e mi da errore.
    Potete aiutarmi? Grazie in anticipo.


    il codice originale del thread è questo.

    Codice: 
    Sub CreaCartella()
    
    Dim wsh As Worksheet
    Dim uriga As Long, i As Integer, a As Integer
    Dim objFso As Object
    Dim objFolder As Object
    Set objFso = CreateObject("Scripting.FileSystemObject")
    
    
    
    
    ChDrive "C"                                   ' EVENTUALMENTE CAMBIA DRIVE
    Set wsh = ThisWorkbook.Worksheets("Foglio1")
    uriga = Range("B" & Rows.Count).End(xlUp).Row
    
    
    For i = 2 To uriga
        If wsh.Range("A" & i).Value <> "" Then
        
        ' ----------- cambiare il percorso dove andranno le cartelle -------------------
            If objFso.FolderExists("C:\Users\Gianluca\Desktop\" & wsh.Range("A" & i).Value) Then
        '-------------------------------------------------------------------------------
                MsgBox ("La cartella esiste : " & wsh.Range("A" & i).Value)
            Else
                Set objFolder = objFso.CreateFolder("C:\Users\Gianluca\Desktop\" & wsh.Range("A" & i).Value)
                a = a + 1
                
            End If
        End If
    Next
    MsgBox ("SONO STATE CREATE " & a & " CARTELLE MANCANTI"), vbInformation, "RISULTATO"
        Set wsh = Nothing
        Set objFolder = Nothing
        Set objFso = Nothing
    
    
    End Sub
    File Allegati File Allegati
    Non confondere mancanza di talento per genialità.

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    Non c'è bisogno di un ciclo quando vuoi creare una sola caertella. Prova cosi:
    Codice: 
    Sub CreaCartella()
    Dim iCart As String
    
    
    iCart = Range("B8").Value
    
    
    If Dir(iCart, vbDirectory) = "" Then
        MkDir iCart
        MsgBox "CRATELLA " & Chr(13) & Range("B8") & Chr(13) & "CREATA CORRETTAMENTE", vbInformation, "ATTENZIONE"
    Else
            MsgBox "CRATELLA " & Chr(13) & Range("B8") & Chr(13) & "GIA' ESISTENTE", vbCritical, "ATTENZIONE"
    End If
    
    
    End Sub

  3. #3
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    ieri sera mi sono dimenticato di mettere che il percorso dove creare la cartelle lo deve prendere dalla cella B8 ed il file .xlsx e pdf salvato prenderà il nome della cella B6.
    Non confondere mancanza di talento per genialità.

  4. #4
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    grazie Rubik72 , ho provato il codice ma mi restituisce errore 76 impossibile trovare il percorso. Facendo il dedug mi evidenzia questo:
    "MkDir iCart"
    Non confondere mancanza di talento per genialità.

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    Ti dà quell'errore in quanto tenta di creare la sottocartella quando non esiste la cartella che lo contiene

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  6. #6
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    avresti anche ragione....
    grazie, ho provato e funziona correttamente.
    grazie mille :286:
    Non confondere mancanza di talento per genialità.

  7. #7
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Ti dà quell'errore in quanto tenta di creare la sottocartella quando non esiste la cartella che lo contiene

    Inviato dal mio GT-I9301I utilizzando Tapatalk
    per risolvere anche questo problema
    Codice: 
    Sub CreaSottoCartella() '
    Mainpath = "F:\download" 'ThisWorkbook.Path
    MyFolder = "prova\imported\pippo"
    arr = Split(MyFolder, "\")
    ffolder = Mainpath
    For i = 0 To UBound(arr)
      ffolder = ffolder & "\" & arr(i)
      If Dir(ffolder, vbDirectory) = "" Then
         MkDir ffolder
      End If
    Next
    
     End Sub

  8. #8
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Cittadella
    Età
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: crea cartella + salva nomefile.xlsm + salva nomefile.pdf

    Grazie patel, ci do un'occhiata lunedì. Ciao

    Inviato dal mio SM-T705 utilizzando Tapatalk
    Non confondere mancanza di talento per genialità.

Discussioni Simili

  1. [Risolto] Salva con nome e Hyperlink in altra cartella di lavoro
    Di Ludovico nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 13/12/16, 18:45
  2. salva come PDF
    Di Tequila nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 25/10/16, 22:54
  3. [Risolto] Salva con nome personalizzato
    Di rodyskorps nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 24/10/16, 11:26
  4. Salva in Pdf [Excel 2010]
    Di Powerwin nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 31/05/16, 23:31
  5. Risposte: 4
    Ultimo Messaggio: 11/04/16, 21:36

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •