impossibile salvare le caratteristiche seguenti in cartelle di lavoro senza macro
teddyk
Ho iniziato a lavorare su un laptop con office 2010 e, nell'eseguire
una macro, finora 1 ma penso il problema non sia piu vasto :/ ,
ricevendo questo errore
"impossibile salvare le caratteristiche seguenti in cartelle di lavoro
senza macro:..." sia che risponda SI o NO la macro termina con un
errore, sempre il 1004 anche se con due descrizioni diverse e non
riesco a completare in modo automatico il salvataggio del file.
Inutile dire che il file in questione con office 2003 funziona
benissimo.
Aggiungo che tale file è stato importato da un altro pc, avendo cura di
metterlo sulle stesse identiche directory.
Potete gentilmente aiutarmi a venirne a capo?
grazie in anticipo
--
a presto teddyk
teddyk
penso SIA piu vasto
--
a presto teddyk
Mauro Gamberini
************************************************
Hai abilitato le macro?
http://office.microsoft.com/it-it/excel-help/modificare-le-impostazioni-di-sicurezza-delle-macro-in-excel-HP010342232.aspx
Il file è salvato come .xlsm o .xls?
Sicuro che la macro non faccia riferimento ad
un Add-in non presente sul pc o ad un controllo
non supportato in Excel 2010(il classico calendario,
ad esempio)?
Puoi postare la macro?
Grazie.
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
Mauro Gamberini
> penso il problema non sia piu vasto
penso SIA piu vasto
********************************
E' una tua supposizione.
Io non lo riscontro e credo di scrivere qualche macro....
r
<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> Puoi postare la macro?
direi che se vuole risolvere col nostro aiuto ... deve postare la
macro
saluti
r
teddyk
grazie dell'attenzione
Sembra che Mauro Gamberini abbia detto :
> Hai abilitato le macro?
> http://office.microsoft.com/it-it/excel-help/modificare-le-impostazioni-di-sicurezza-delle-macro-in-excel-HP010342232.aspx
Si, ho scelto di attivare tutte le macro e di considerare attendibili
... progetti VBA
> Il file è salvato come .xlsm o .xls?
come ".xls"
> Sicuro che la macro non faccia riferimento ad
> un Add-in non presente sul pc
penso di no,
> ...o ad un controllo
> non supportato in Excel 2010(il classico calendario,
> ad esempio)?
non ho idea :/
> Puoi postare la macro?
Hoi... hoi... è un 'bricolage' di primo grado attingendo a destra e
manca... :-?
Sub CreazioneDocumento()
Dim srgWB As Workbook
Dim srgWS As Worksheet
Dim dstWS As Worksheet
Dim nf ' nome del CLIENT (il suo codice) della COMMANDE(la parte
che rimane costante)
Dim fn ' formato dei numeri (con o senza gli zeri principali)
Dim nu ' numero della "COMMANDE" corrente
Dim cn ' cella per il numero della "COMMANDE" (adattarlo come
serve **********)
Dim nofa ' Nome della "COMMANDE"
Dim r As Long
If ActiveWorkbook.Name <> "A_TEST.xls" Then Verifica
Set srgWB = Workbooks("A_TEST.xls")
Set srgWS = srgWB.Sheets("Modello")
r = srgWS.Range("C65536").End(xlUp).Row
nf = srgWS.Range("NomeCOMMANDE").Value
fn = srgWS.Range("FormatoNumeri").Value
cn = srgWS.Range("NomeCella").Value
nu = Numero_documento_corrente + 1
Scriva_il_Numero_documento_corrente nu
nofa = Format(nu, fn) & "_" & nf
Application.EnableEvents = False
srgWS.Range(cn).Formula = nu
srgWS.Copy
'Columns("K:L").Delete Shift:=xlToLeft
ActiveSheet.Shapes.Range(Array("FORMA1", "FORMA2")).Delete
With ActiveSheet.UsedRange
.Value = .Value
Range("a1").Select
End With
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
With ActiveWorkbook
.SaveAs nome_del_dispositivo_di_piegatura & "Ordini_09\" & nofa
ActiveSheet.PageSetup.PrintArea = "$A$1:$F" & r
End With
'ActiveWorkbook.SaveAs nome_del_dispositivo_di_piegatura & nofa
'ActiveWorkbook.Close
Aggiorni_lo_storico nofa
MsgBox "Finito! Il documento (" & nofa & ") è stato generato."
srgWS.Activate
Range("F1,A11:F107").ClearContents
Range("G1").Value = Range("G1").Value + 1
Range("F1").Select
Application.EnableEvents = True
End Sub
> Grazie.
grazie a te
> ---------------------------
> Mauro Gamberini
> Microsoft MVP - Excel
> http://www.riolab.org/
> http://www.maurogsc.eu/
--
a presto teddyk
teddyk
grazie dell' attenzione
> Nel suo scritto precedente, r ha sostenuto :
> direi che se vuole risolvere col nostro aiuto ... deve postare la
> macro
ok, come scrivo a Mauro è un 'bricolage' di primo grado attingendo a
destra e manca...
Sub CreazioneDocumento()
> saluti
> r
grazie
--
a presto teddyk
teddyk
la riga che da errore èla seguente
*.SaveAs nome_del_dispositivo_di_piegatura & "Ordini_09\" & nofa
*
riportando l'errore:
> "impossibile salvare le caratteristiche seguenti in cartelle di lavoro senza
> macro:..."
Progetto VB
Per salvare un file con queste caratteristiche, fare clic su No, quindi
selezionare un tipo di file con attivazione macro nell'elenco Tipo
file.
Per continuare a salvare come cartella di lavoro senza macro, fare clic
su Si.
Clic su NO:
Errore di run-time '1004'
Impossibile salvare progetti VB e fogli XLM in una cartella di lavoro
senza macro.
--
Clic su SI:
Errore di run-time '1004'
Impossibile accedere al file ":\DOCUMENTI\Ordini\1A36c000" I motivi
possibili sono:
....... qui non capisco perchè punta alla cartella DOCUMENTI...
--
a presto teddyk
Mauro Gamberini
la riga che da errore èla seguente
*.SaveAs nome_del_dispositivo_di_piegatura & "Ordini_09\" & nofa
*
riportando l'errore:
> "impossibile salvare le caratteristiche seguenti in cartelle di lavoro
> senza macro:..."
Progetto VB
Per salvare un file con queste caratteristiche, fare clic su No, quindi
selezionare un tipo di file con attivazione macro nell'elenco Tipo
file.
Per continuare a salvare come cartella di lavoro senza macro, fare clic
su Si.
Clic su NO:
Errore di run-time '1004'
Impossibile salvare progetti VB e fogli XLM in una cartella di lavoro
senza macro.
***************************************************
Non ho capito in che formato vuoi salvare.
Vedi SaveAs, parametro FileFormat nella guida del vb di Excel.
Nota: o salvi come .xls o salvi come .xlsm.
teddyk
>
> la riga che da errore èla seguente
> *.SaveAs nome_del_dispositivo_di_piegatura & "Ordini_09\" & nofa
> *
> riportando l'errore:
>> "impossibile salvare le caratteristiche seguenti in cartelle di lavoro
>> senza macro:..."
> Progetto VB
> Per salvare un file con queste caratteristiche, fare clic su No, quindi
> selezionare un tipo di file con attivazione macro nell'elenco Tipo
> file.
>
> Per continuare a salvare come cartella di lavoro senza macro, fare clic
> su Si.
>
> Clic su NO:
> Errore di run-time '1004'
> Impossibile salvare progetti VB e fogli XLM in una cartella di lavoro
> senza macro.
> ***************************************************
>
> Non ho capito in che formato vuoi salvare.
> Vedi SaveAs, parametro FileFormat nella guida del vb di Excel.
>
> Nota: o salvi come .xls o salvi come .xlsm.
Vorrei salvare in formato ".xls"
Non mancherò di dare un'oochio alla guida!
Preciso che, lo stesso file l'ho esportato anche su un'altra
postazione, seguendo la stessa prcedura di ora ed ha funzionato senza
problemi.
E' forse "colpa" del "nuovo" Office 2010? :')
> ---------------------------
> Mauro Gamberini
> Microsoft MVP - Excel
> http://www.riolab.org/
> http://www.maurogsc.eu/
grazie ancora
--
a presto teddyk
Mauro Gamberini
> Nota: o salvi come .xls o salvi come .xlsm.
Vorrei salvare in formato ".xls"
Non mancherò di dare un'oochio alla guida!
Preciso che, lo stesso file l'ho esportato anche su un'altra
postazione, seguendo la stessa prcedura di ora ed ha funzionato senza
problemi.
E' forse "colpa" del "nuovo" Office 2010? :')
******************************************
Non c'è colpa.
Se di default hai il salvataggio dei files
con il formato .xlsx, hai l'errore riportato
(più che un errore un avviso). Non è possibile
salvare un file con macro in quel formato.
Quindi puoi rimediare impostando il salvataggio di default
come .xls(File-->Opzioni-->Salvataggio
e imposta a dx il Formato salvataggi del file).
Meglio sempre però esplicitare il formato
con il parametro consigliato nell'altro post,
esempio(da adattare) per il formato .xls:
ThisWorkbook.SaveAs _
Filename:="C:\tuaCartella\pippo.xlsm", _
FileFormat:=xlExcel8
Ovviamente puoi parametrizzare la stringa di salvataggio
a tuo piacere.
teddyk
[...]
> Meglio sempre però esplicitare il formato
> con il parametro consigliato nell'altro post,
> esempio(da adattare) per il formato .xls:
>
> ThisWorkbook.SaveAs _
> Filename:="C:\tuaCartella\pippo.xlsm", _
> FileFormat:=xlExcel8
>
> Ovviamente puoi parametrizzare la stringa di salvataggio
> a tuo piacere.
Arigrazie 1000!
Cercherò piuttosto di seguire questo tuo consiglio e proverò a
modificare il codice in questo senso.
A prescindere dall'esito notificherò il risultato!
> ---------------------------
> Mauro Gamberini
> Microsoft MVP - Excel
> http://www.riolab.org/
> http://www.maurogsc.eu/
Ancora grazie e buona giornata
--
a presto teddyk
teddyk
Nel suo scritto precedente, Mauro Gamberini ha sostenuto :
[...]
> Quindi puoi rimediare impostando il salvataggio di default
> come .xls(File-->Opzioni-->Salvataggio
> e imposta a dx il Formato salvataggi del file).
Gui il settaggio era già su ".xls"
> Meglio sempre però esplicitare il formato
> con il parametro consigliato nell'altro post,
> esempio(da adattare) per il formato .xls:
>
> ThisWorkbook.SaveAs _
> Filename:="C:\tuaCartella\pippo.xlsm", _
> FileFormat:=xlExcel8
l'esempio è chiarissimo, ma (ma) non riesco ad adattarlo alla mia
esigenza in quanto il *saveAs* nel codice è"condizionato" da una
funzione ...
\\ With ActiveWorkbook
.SaveAs nome_del_dispositivo_di_piegatura & "Ordini_09\" & nofa
ActiveSheet.PageSetup.PrintArea = "$A$1:$F" & r
End With \\
... e non ho capito come adattarla, non finora almeno :/
[...]
> ---------------------------
> Mauro Gamberini
> Microsoft MVP - Excel
> http://www.riolab.org/
> http://www.maurogsc.eu/
buona giornata
--
a presto teddyk
teddyk
>
> Nel suo scritto precedente, Mauro Gamberini ha sostenuto :
>
> [...]
>
>> Quindi puoi rimediare impostando il salvataggio di default
>> come .xls(File-->Opzioni-->Salvataggio
>> e imposta a dx il Formato salvataggi del file).
>
> Gui il settaggio era già su ".xls"
>
>> Meglio sempre però esplicitare il formato
>> con il parametro consigliato nell'altro post,
>> esempio(da adattare) per il formato .xls:
>>
>> ThisWorkbook.SaveAs _
>> Filename:="C:\tuaCartella\pippo.xlsm", _
>> FileFormat:=xlExcel8
>
> l'esempio è chiarissimo, ma (ma) non riesco ad adattarlo alla mia esigenza in
> quanto il *saveAs* nel codice è"condizionato" da una funzione ...
> \\ With ActiveWorkbook
> .SaveAs nome_del_dispositivo_di_piegatura & "Ordini_09\" & nofa
> ActiveSheet.PageSetup.PrintArea = "$A$1:$F" & r
> End With \\
> ... e non ho capito come adattarla, non finora almeno :/
... seguendo le tue indicazioni ho modificato come segue, escludendo la
'function'
With ActiveWorkbook
.SaveAs _
Filename:="E:\miaCartella\Ordini_09\" & dt & "_" & nf, _
FileFormat:=xlExcel8
ActiveSheet.PageSetup.PrintArea = "$A$1:$F" & r
End With
Sembra funzionare... quello che volevo!
Mauro Gamberini
Sembra funzionare... quello che volevo!
***********************************
Bene. Buona giornata a te.