MSword Table

OK, here is the problem. I have an excel form where we fill out information on a per piece basis. The file is supposed named after what piece is done. I have not perfected that part but that is not my question. I am trying to figure out how to update a MS word table to represent what parts have been done (basically which files exist). For example, if item number 1A2 LS2 was done there would be a file named 1a2ls2.xls. In the MS word table I would have a column titled function and a row titled 1a2 ls2. I would need it take information from 2 specific cells from the excel file if it does excess.

Welcome to the Forums.

Sounds like you need to list the folder contents of *.xls files into a Word table. But where are you needing the 2 cells of data from
the Excel file to go?

This should get you started.

VB Code:

'ThisDocument
Option Explicit
'Add a reference to MS Excel xx.0 Object Library
Private moApp As Excel.Application
 
Private Sub Document_Open()
    Dim oWB As Excel.Workbook
    Dim oTable As Word.Table
    
    'ToDo: Check for Excel files in some directory.
    '
    'If file(s) are found then create an Excel object
    Set moApp = New Excel.Application
    moApp.Visible = False 'Dont know if you want to show the workbook or not.
    'Open the first workbook
    Set oWB = moApp.Workbooks.Open("D:\Test1.xls")
    Set oTable = Documents(1).Tables(1)
    'Add the Excel Cell value to a Word table cell
    oTable.Cell(2, 1).Range.Text = oWB.Sheets(1).Cells(1, 1).Value
    oWB.Close
    Set oWB = Nothing
    moApp.Quit
    Set moApp = Nothing
    Set oTable = Nothing
End Sub

Hey that looks like it may work with a little tweaking.

Thanks alot Ill let ya know what the results are

I didnt know exactly what you needed other then accessing Excel from Word and accessing the table cells.

Sure, just post back so we know if you got it solved or need more help. ;)

xlsfile = DIR(myfilename)
will tell you if the file exists if xlsfile is not = ""

pete