|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
14-05-2015, 12.38.07 | #31 |
Newbie
Registrato: 04-05-2015
Messaggi: 26
|
Rif: ESPORTARE DATI DA EXCEL IN WORD
|
14-05-2015, 12.38.46 | #32 |
Newbie
Registrato: 04-05-2015
Messaggi: 26
|
Rif: ESPORTARE DATI DA EXCEL IN WORD
cmq non è andato in crash, manca solo quella parte che rimane fissa, come nel primo file che avevi realizzato e penso che siamo quasi a posto
|
14-05-2015, 12.42.09 | #33 |
Newbie
Registrato: 04-05-2015
Messaggi: 26
|
Rif: ESPORTARE DATI DA EXCEL IN WORD
pensavo se ricopiassi i dati io a mano sul file word dove mancano poi nella stampa verranno replicati per tutte le stampe insieme ai valori che cambiano?
|
14-05-2015, 12.48.26 | #34 |
Newbie
Registrato: 04-05-2015
Messaggi: 26
|
Rif: ESPORTARE DATI DA EXCEL IN WORD
penso di aver capito i valori da cambiare per stampare la rimanenza ovvero:
For i = 2 To 100 per i primi dal 2 al 100 For i= 101 To 199 per gli altri 100 e cosi via giusto? |
14-05-2015, 13.07.11 | #35 |
Newbie
Registrato: 04-05-2015
Messaggi: 26
|
Rif: ESPORTARE DATI DA EXCEL IN WORD
ok funziona grazie mille per l'ottimo lavoro mi sono tolto da una rogna
|
14-05-2015, 19.02.35 | #36 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: ESPORTARE DATI DA EXCEL IN WORD
sarebbe meglio calcolare l'ultima riga scritta, metti che domani devi aggiungere o togliere delle righe ti si sballa tutto.
sostituisci questo codice con quello che usi adesso Codice:
Sub a() Dim xl_app As Excel.Application Dim xl_file As Excel.Workbook Dim xl_foglio As Excel.Worksheet Application.ScreenUpdating = False myfile = "C:\Users\User\Desktop\Riepilogo.xlsx" Set xl_app = New Excel.Application Set xl_file = xl_app.Workbooks.Open(myfile) Set xl_foglio = xl_file.Worksheets("Foglio3") Uriga = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Uriga With xl_foglio ActiveDocument.FormFields("T1").Result = .Range("A" & i).Value ActiveDocument.FormFields("T2").Result = .Range("D" & i).Value ActiveDocument.FormFields("T3").Result = .Range("E" & i).Value ActiveDocument.FormFields("T4").Result = .Range("F" & i).Value ActiveDocument.FormFields("T5").Result = .Range("I" & i).Value ActiveDocument.FormFields("T6").Result = .Range("I" & i).Value End With Sleep 500 'ritardo di 5 secondi la stampa per ogni ciclo Application.PrintOut FileName:="", Pages:="1", Range:=wdPrintRangeOfPages Next i xl_file.Close (False) xl_app.Quit Set xl_foglio = Nothing Set xl_file = Nothing Set xl_app = Nothing End Sub
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
Free Word password / Excel password recovery | crazy.cat | Segnalazioni Web | 4 | 03-03-2012 16.27.53 |
[Guida] Crea e invia file PDF da Excel con VBA | Alexsandra | Guide | 0 | 18-02-2012 16.47.31 |
Recupero dati da file di Excel | sobek | Windows 7/Vista/XP/ 2003 | 9 | 15-03-2008 17.40.11 |
copiare dati da pagina web in excel | fabiovel | Office suite | 5 | 02-01-2008 12.43.17 |
Riasumere dati in unico foglio in Excel | Gabry | Software applicativo | 6 | 21-02-2004 02.19.35 |