macro salvare file

Hai un problema con Excel?

Nuova discussione

macro salvare file
di ritz75 (utente non iscritto) data: 21/10/2016 11:54:03
Buongiorno a tutti.
Ho un problema da cui non riesco ad uscire. Qualche tempo fa avevo iniziato ad impostare una macro che nelle sue elaborazioni iniziava prendendo un foglio di lavoro di riferimento, copiandolo in un nuovo file excel e salvando quest'ultimo file con un nome definito. Funzionava perfettamente con mio grande orgoglio!!!
Ora questa macro non funziona più ma non capisco perchè. In particolare continua a fare i passaggi ovvero dal file di partenza copia il foglio in un nuovo file xls ma al momento di salvarlo con un nome definito su un percorso definito va in debug.
Vi propongo sotto le istruzioni (semplificate rispetto quanto fa la macro riportando solo la parte che va in errore) nella speranza che qualcuno riesca a spiegarmi il perchè! Allego anche il file
Grazie in anticipo!!!!

 Public input_dir As String
 Public output_dir As String
 Public var0, var2a, var2b As String
 Public wb1 As Worksheet                  '
 
Sub Macro_layout()

 Dim file1, file2 As String
 Dim ur As Long, K As Long
 Dim f1 As Workbook, f1v0 As Worksheet
 
 wk1 = ActiveWorkbook.Name
 sh1 = "parametri"
 sh2 = "ly_Q"
     
 input_dir = Workbooks(wk1).Sheets(sh1).Range("C11").Value
 output_dir = Workbooks(wk1).Sheets(sh1).Range("C12").Value
  
   Workbooks(wk1).Sheets(sh2).Select
   Workbooks(wk1).Sheets(sh2).Copy
   var2a = Workbooks(wk1).Sheets(sh1).Range("D20").Value
   var2b = var2a & ".xlsx"
 
   ActiveWorkbook.SaveAs Filename:=output_dir & var2b


End Sub

di alfrimpa data: 21/10/2016 13:40:06
Ciao Ritz

Il problema credo che sia la presenza di backslash "" nel nome del file che è un carattere non ammesso; prova a sostituirlo con uno spazio/underscore.

Alfredo

Vuoi Approfondire?