Copiare da Word |
|
| Storico
discussioni |
|
| Copiare foglio in word di
Apoben64 |
Ciao a tutti, premetto di aver gią visionato
l'esempio 1 dell'appendice 1 dell'interazione tra excel e word. di
solito il contenuto di un foglio lo copio e lo incollo in un
documento word, questo č il mio obiettivo .
escludendo la stampa
unione , e l'utilizzo del registratore di macro che non mi ha dato
alcun risultato soddisfacente, ricerco la possibilitą di creare un
macro che soddisfi l'obiettivo .
quella che indico mi permette
di aprire il documento di word da excel , ma come interagire con
questo codice per copiare e incollare il contenuto del foglio1 ? qui
chiedo la vs, preziosa collaborazione ! un grazie per ogni tipo di
aiuto .
Sub Word()
Set wd = CreateObject("Word.Application")
wd.Visible = True
wd.Documents.Open Filename:="c:\test.doc"
End Sub
| |
|
| Per conoscenza di
Apoben64 |
Ciao a tutti , nella mio avanzare nella ricerca di
collegare excel con word , ad esempio nell'esportare un foglio ,
accludo il seguente codice.
ovviamente ,al momento necessita
l'esistenza in c:\ il file test.doc , ma potete modificarlo a vs.
piacimento .
Sub Word()
Sheets(1).select
Cells.select
Range("A1").Activate
Selection.Copy
Set wd = CreateObject("Word.Application")
wd.Visible = True
wd.Documents.Open Filename:="c:\test.doc"
wd.Selection.Paste
End Sub
| |
| |