Export data from Excel to word

Hi All,

I want to pull data from a excel spreadsheet and put it into a word document. At the moment, I have created a Label and gone into its properties and named it 'yrTotal'. I have also put a Command Button into the word document and gone into VBA Editor. I have made sure is Microsoft Excel 14.0 Object Library selected. I have been given the following example code from a website, but it is not tailored to my files:



Private Sub CommandButton1_Click()

Dim objExcel As New Excel.Application

Dim exWb As Excel.Workbook



Set exWb = objExcel.Workbooks.Open("c:\temp\expenses.xls")



ThisDocument.yrTotal.Caption = exWb.Sheets("Sheet1").Cells(12, 2)



exWb.Close



Set exWb = Nothing



End Sub


However i want to pull data from the Spreadsheet called 'reference' from 'Sheet 1' and cell 'A1', and to get to that file from 'File Explorer' you need to follow the path:

This PC, Personal Area (H, 2017, Forecasting SS, reference

Any help would be much appreciated with the coding

Thanks

Matt

Give this a try and do let us know if you were able to use it for your needs (I've tested it and the code actually works.)
There is an instructional video included with the code

https://www.exceltrainingvideos.com/...cel-using-vba/