Rolf Elstrodt
Gebruiker
- Lid geworden
- 25 nov 2007
- Berichten
- 7
Wie kan mij helpen met het volgende probleem?
' Vanuit een Worddocument een Excel Workbook openen
Set xlApplication = CreateObject("Excel.Application")
Set xlExcelWorkBook = xlApplication.Workbooks.Open(strPath & strFilenaam)
' Inhoud van een cell copieren naar het Worddocument
Selection.InsertBefore xlExcelWorkBook.Worksheets("Index").Cells(intRow, intCol)
' Sluiten van het Excel Workbook
xlExcelWorkBook.Close (False)
xlApplication.Workbooks.Close
Set xlExcelWorkBook = Nothing
Set xlApplication = Nothing
Bovenstaande coding werk prima, maar ik wil in plaats van de inhoud van een enkele cell een gehele range overzetten naar het Worddocument, zodat dat net als bij het handmatig knippen en plakken in een tabel terecht komt. De verschillende ranges hebben in het Excelsheet een naam gekregen zoals "Index1", "Index2", etc.
' Vanuit een Worddocument een Excel Workbook openen
Set xlApplication = CreateObject("Excel.Application")
Set xlExcelWorkBook = xlApplication.Workbooks.Open(strPath & strFilenaam)
' Inhoud van een cell copieren naar het Worddocument
Selection.InsertBefore xlExcelWorkBook.Worksheets("Index").Cells(intRow, intCol)
' Sluiten van het Excel Workbook
xlExcelWorkBook.Close (False)
xlApplication.Workbooks.Close
Set xlExcelWorkBook = Nothing
Set xlApplication = Nothing
Bovenstaande coding werk prima, maar ik wil in plaats van de inhoud van een enkele cell een gehele range overzetten naar het Worddocument, zodat dat net als bij het handmatig knippen en plakken in een tabel terecht komt. De verschillende ranges hebben in het Excelsheet een naam gekregen zoals "Index1", "Index2", etc.
