ActiveSheet.Paste
Lorenzo.
In quasi tutti i pc la parte di macro riportata di seguito funziona
correttamente, ma in
altri (pochissimi), il metodo copia non avviene correttamente: copia solo
alcune celle unite e tralascia la formattazione (colori, bordi,
immagini,...). In questi pochi casi sono obbligato a reinstallare excel 2k
oppure sono costretto a cercare qualche impostazione nel pannello di
controllo? ...e siccome tutti i client hanno la stessa configurazione di
office, riesco a trovare un file che raggruppi tutte le informazioni?
grazie.
Lorenzo.
[...]
Sheets.Add
Windows("CERT.xls").Activate
Columns("B:L").Select
Selection.Copy
Windows("CERT.CSV").Activate
Range("B1").Select
ActiveSheet.Paste
[...]
Mauro Gamberini
> correttamente, ma in
> altri (pochissimi), il metodo copia non avviene correttamente: copia solo
> alcune celle unite e tralascia la formattazione (colori, bordi,
> immagini,...). In questi pochi casi sono obbligato a reinstallare excel
2k
> oppure sono costretto a cercare qualche impostazione nel pannello di
> controllo? ...e siccome tutti i client hanno la stessa configurazione di
> office, riesco a trovare un file che raggruppi tutte le informazioni?
>
Prova ad usare questo:
Dim rng As Range
Dim rng1 As Range
Windows("CERT.xls").Activate
Set rng = ActiveSheet.Range("B:L")
Windows("CERT.CSV").Activate
Set rng1= ActiveSheet.Range("B:L")
rng1.Value=rng.Value
Set rng = Nothing
Set rng1 = Nothing
--
----------------------------
Mauro Gamberini
Mauro Gamberini
--
----------------------------
Mauro Gamberini(che ricominciamo bene...)
Mauro Gamberini
> Sheets.Add
> Windows("CERT.xls").Activate
> Columns("B:L").Select
> Selection.Copy
> Windows("CERT.CSV").Activate
> Range("B1").Select
> ActiveSheet.Paste
> [...]
>
>
Prova cosě:
Windows("asd.xls").Activate
Columns("B:L").Select
Selection.Copy
Windows("qwe.CSV").Activate
Range("B1").Select
ActiveSheet.PasteSpecial
--
----------------------------
Mauro Gamberini
Maurizio Borrelli
news:429ad008$1...@x-privat.org...
> In quasi tutti i pc la parte di macro riportata di seguito funziona
> correttamente, ma in altri (pochissimi), il metodo copia non avviene
> correttamente: copia solo alcune celle unite e tralascia la formattazione
> (colori, bordi, immagini,...). In questi pochi casi sono obbligato a
> reinstallare excel 2k oppure sono costretto a cercare qualche impostazione
> nel pannello di controllo? ...e siccome tutti i client hanno la stessa
> configurazione di office, riesco a trovare un file che raggruppi tutte le
> informazioni?
> Sheets.Add
> Windows("CERT.xls").Activate
> Columns("B:L").Select
> Selection.Copy
> Windows("CERT.CSV").Activate
> Range("B1").Select
> ActiveSheet.Paste
> [...]
Ciao, Lorenzo.
Che ti importa di copiare la formattazione in un file "csv" visto che
salvandolo come tale la perderesti? Se invece vuoi salvarlo come "xls"
perche' non lo salvi prima delle operazioni di copia?
Perdona ma non capisco il senso della frase "riesco a trovare un file
che raggruppi tutte le informazioni?" Cosa intendi?
--
(Facci sapere se ed eventualmente come hai risolto. Grazie.)
Ciao :o)
Maurizio Borrelli, Microsoft MVP - Office Systems - Access
--------
?SPQR(C)
X
--------
Lorenzo.
> salvandolo come tale la perderesti? Se invece vuoi salvarlo come "xls"
> perche' non lo salvi prima delle operazioni di copia?
Il file csv è un file temporaneo: un programma estrae i dati da un database
creando un file .csv e come operazione sucessiva lancia un file excel. Ho
configurato una macro excel che parta in automatico e che esegue una serie
di operazioni sequenziali piuttosto banali di formattazione, come quelle
riportate di seguito. In realtà quello che viene copiato sono celle unite,
immagini, bordi, testo... una volta copiato il foglio (unione tra dati del
database e imputati dall'utente in un form) si ottiene una stampa dopo la
quale il file che per il momento non è necessario salvare...
per questo motivo lavoro nel file originario dimenticandomi del resto.
> Perdona ma non capisco il senso della frase "riesco a trovare un file
> che raggruppi tutte le informazioni?" Cosa intendi?
in un file o gruppo di file in cui siano racchiuse le info dei parametri
generali
se io copio questo file ottengo le stesse impostazioni di barre degli
strumenti, stessi pulsanti, stesse opzioni del pannello opzioni, stessi
colori standard...
spero di esermi spiegato abbastanza!
Ciao
Lorenzo.
Lorenzo.
solo su questi pc l'operazione di copia non avviene da "cert.xls"(riga2) ma
dal foglio inserito in precedenza (riga1), come se il comando "Activate"
fosse ignorato...quindi il select avviene in un foglio nuovo...
[...]
1 Sheets.Add
2 Windows("CERT.xls").Activate
3 Columns("B:L").Select
4 Selection.Copy
5 Windows("CERT.CSV").Activate
6 Range("B1").Select
7 ActiveSheet.Paste
[...]
scusate mi sono fatto ingannare dalla macro che certe unioni e certi
bordi li esegue direttamente, ma non li copia...
riporto di seguito l'inizio della macro fino al punto saliente:
Sperando che una soluzione si possa trovare....
Sub AUTO_OPEN()
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\TEMP\CERT.CSV"
Columns("A:A").TextToColumns Destination:=Range("A1"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo
_
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5,
1), Array(6, 1), _
Array(7, 1), Array(8, 4))
Cells.EntireColumn.AutoFit
Range("A1").Select
[...]
Application.WindowState = xlNormal
[...]
'copia primo foglio
Sheets.Add
Windows("CERT.xls").Activate
'^^^^^^^^^^^^^
Columns("B:L").Select
Selection.Copy
Windows("CERT.CSV").Activate
Range("B1").Select
ActiveSheet.PasteSpecial
[...]
End sub
"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel
messaggio news:OMBVIYPZ...@tk2msftngp13.phx.gbl...
Franz Verga
429adefc$1...@x-privat.org
>> Perdona ma non capisco il senso della frase "riesco a trovare un
>> file che raggruppi tutte le informazioni?" Cosa intendi?
> in un file o gruppo di file in cui siano racchiuse le info dei
> parametri generali
> se io copio questo file ottengo le stesse impostazioni di barre degli
> strumenti, stessi pulsanti, stesse opzioni del pannello opzioni,
> stessi colori standard...
E' un file con estensione xlb. Generalmente dovrebbe chiamarsi Excel[numero
della versione].xlb, la cui posizione potrebbe variare secondo il sistema
operativo e la versione di Excel, per cui prova a cercare nelle risorse del
computer *.xlb
--
Spero d'esserti stato d'aiuto...
Ciao
Franz Verga
----------------------------------------------------------------------------------------
per rispondermi traduci InVento in inglese (no maiuscole)
----------------------------------------------------------------------------------------
cucchiaino
> alcune celle unite ...
Celle unite? No, grazie.
:-)
( )---cucchiaino