Buonasera
free image upload
Giornalmente devo creare dei report usando tabelle e grafici, che prelevo da un file excel (immagine salvata).
per le tabelle uso questo codice:
Sub Copia_tabella_in_Word()
Dim tabella As Range
Dim percorso As String
Dim Rng As Object
'percorso e nome del file Word
percorso = "F:\REPORT FDGS\Modello.doc"
'dati da copiare
Set tabella = [a1].CurrentRegion
tabella.Copy
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(percorso)
'imposto il riferimento al segnalibro
Set Rng = wrdDoc.Bookmarks("TabellaA").Range
tabella.Copy
Rng.PasteSpecial Link:=False, DataType:=wdPasteText, _
Placement:=wdInLine, DisplayAsIcon:=False
'salvo e chiudo il file Word
wrdApp.ActiveDocument.Save
wrdApp.Quit
End Sub
Ovviamente ho ripetuto questo codice sia per la TabellaA1, TabellaB e TabellaB1.
Invece per i grafici uso questo codice:
Sub Copia_grafico_in_Word()
ActiveSheet.ChartObjects("Grafico A").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Copy
Set WordApp = CreateObject("Word.Application")
sFILENAME = "F:\REPORT FDGS\Modello.doc"
WordApp.Visible = True
If sFILENAME = "False" Then Exit Sub
With WordApp.Documents.Open(sFILENAME)
.Bookmarks("GraficoA").Range.Paste
End With
Set WordApp = Nothing
End Sub
Anche questo ripetuto per il GraficoB.
I segnalibri che ho creato sul file word sono:
1 "TabellaA"
2 "TabellaA1"
3 "TabellaB"
4 "TabellaB1"
5 "GraficoA"
6 "GraficoB"
Come sempre il risultato c'è, ma la forma lascia parecchio a desiderare.
E' possibile avere l'inserimento in un unico codice?
Grazie