mi occorre copiare una tabella da word in excel. Premetto che ho cercato su questo e altri forum qualcosa che mi aiutasse, ma niente di ciò che ho visto fa effettivamente al mio caso.
Ho preso in parte il codice disponibile qui: http://thetruster.altervista.org/index. ... cel-a-word .
Anzi ho scritto la mia prima macro, che immette in word un'immagine che il cui indirizzo è specificato in una data cella di excel:
- Codice: Seleziona tutto
Sub Importa_immagine()
'Dichiaro le variabili locali
Dim ValoreCella As String
Dim i As Integer
'Creo la nuova applicazione
Set xlapp = New Excel.Application
'Attraverso la nuova applicazione apro il Workbook
'assegnandolo alla variabile oggetto xlBook
Set xlBook = xlapp.Workbooks.Open("C:\Desktop\nome_file.xlsm")
'Decido quale foglio utilizzare
Set xlSheet = xlBook.Worksheets("Foglio 1")
ValoreCella = xlSheet.Cells(1, 2)
Selection.InlineShapes.AddPicture FileName:= _
ValoreCella, LinkToFile:=False, _
SaveWithDocument:=True
' Application.Selection.TypeText ValoreCella
'Chiudo il Workbook e l'Applicazione
xlBook.Close
xlapp.Quit
'Annullo le variabili per liberare le risorse
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlapp = Nothing
Ho l'esigenza di importare una tabella di excel
ho scritto questa parte di codice:
- Codice: Seleziona tutto
Sub Importa_tabella()
'Dichiaro le variabili locali
Dim tabella As Table
Dim i As Integer
'Creo la nuova applicazione
Set xlapp = New Excel.Application
'Attraverso la nuova applicazione apro il Workbook
'assegnandolo alla variabile oggetto xlBook
Set xlBook = xlapp.Workbooks.Open("C:\Desktop\nome_file.xlsm")
'Decido quale foglio utilizzare
Set xlSheet = xlBook.Worksheets("Foglio 1")
' QUI MANCA LA PARTE DEL CODICE IN CUI SI CHIEDE DI COPIARE
' LA TABELLA DI RANGE, AD ESEMPIO (B6:F8)
Selection.PasteExcelTable False, False, False
'Chiudo il Workbook e l'Applicazione
xlBook.Close
xlapp.Quit
'Annullo le variabili per liberare le risorse
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlapp = Nothing
End Sub
