Macro per selezione intervallo righe da input box

[M4rK081Partecipante M4rK081]

Sono riuscito a generare i files word e a rinominarli utilizzando come nome file il valore di una specifica cella presente nella riga da me selezionata utilizzando la seguente stringa di codice:

xWord.ActiveDocument.SaveAs WsG.Cells(I, 2) & "_" & "Check-list" & ".doc"

Ho però il "problema" che i files Word che vengono generati, li ritrovo all'interno della cartella Documenti invece che nella stessa cartella dove è presente anche il file Excel contenente la macro.

Qualcuno saprebbe spiegarmi il motivo e come risolvere?

Grazie

[patelModeratore patel Karma: 51 pts]

se vuoi salvare in una cartella la devi indicare, per esempio:

cartella = "C:\Documenti\"
xWord.ActiveDocument.SaveAs cartella & WsG.Cells(I, 2) & "_" & "Check-list" & ".doc"

 

[M4rK081Partecipante M4rK081]

Perfetto, ti ringrazio.

[Autore]

Articoli