Excel :: Bury
Pubblicato da Alexsandra su Dicembre 10, 2007
Questa sezione è riservata a Bury prego gli altri utenti di postare quì consigli, suggerimenti esempi ma non altre problematiche…. Grazie ••• Ritorna alla pagina precedente •••
Questo è il quesito posto:
stò cercando di salvare un documento di trasporto in un’altra cartella, sono riuscito a creare la macro che mi salva il foglio attivo nella cartella di destinazione con il numero di DDt, ma vorrei che nell’estensione del file si aggiunga anche il valore della cella che contiene il destinatario.
nella cella g9 il numero nella cella b15 il destinatario : questa è la macro
Sub salvaFoglio()
p = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs “C:\Documents and Settings\Administrator\Desktop\negozio\ddt\archivio\” & Range(”g9″)
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
End Subin sostanza, funziona tutto correttamente, una copia della ddt viene salvata nella cartella di destinazione, ma desidererei salvarla con il nome “1nomedestinatario.xlm”
Roberto detto
se ho capito bene vuoi solamente cambiare il formato del file in xml???….
se è così cambia la riga in:
ActiveWorkbook.SaveAs Filename:= _
“C:\Documents and Settings\Administrator\Desktop\negozio\ddt\archivio\” & Range(”g9″), FileFormat:=xlXMLSpreadsheet
Roberto detto
opss… ti serve anche il destinatario—> coreggo
ActiveWorkbook.SaveAs Filename:= _
“C:\Documents and Settings\Administrator\Desktop\negozio\ddt\archivio\” & Range(”g9″) & Range(”b15″) , FileFormat:=xlXMLSpreadsheet
bury detto
ho sbagliatao a scrivere l’estensione del file, scusa è .xls
e già provata anche la stringa sopra, ma mi salva il file con il nome giusto ma inapriprile…..
Roberto detto
Allora rispiega che cosa ti serve effettivamente…
bert01980 detto
ho fatto una prova—> se metti in G9 numero e B15 nome ti salva il file così:
G9:123
B15:pippo
risultato: 123pippo.xls
codice:
ActiveWorkbook.SaveAs “C:\Documents and Settings\Administrator\Desktop\negozio\ddt\archivio” & Range(”g9″) & Range(”b15″)
bury detto
ho provato, non riesco ad aprirlo, lo salva con il nome giusto, nella cartella giusta, ma in un formato che nulla lo riconosce, le stò provando tutte, adesso stò cercando di far funzionare una stringa come questa:
nome$=cells(9,”g”).value+cells(15,”b”).value
ma penso che devo rivedere tutto il codice della macro
bert01980 detto
io ho provato il codice completo (il tuo con le modifiche per numero e nome) e mi funziona tutto riesco ad aprirlo normalmente
se puoi mandami una mail con il file che gli do un occhio:
mandami una mail a me: bert01980chiocciolayahoodotcom—> sostituisci chiocciola con(@) e dot con (.)
bury detto
ringrazio bert01980
problema risolto.
^____^