Databases
StackOverflow2013
Postsdbo
POLinked Table in MS Word
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POLinked Table in MS Word
    primarykey
    data
    text
    <p>I would like to refresh Excel tables in a Word template report programmatically using VBA. The tables are written to several sheets in a template Excel file from Matlab. The file structure will look like this: <img src="https://i.stack.imgur.com/Cn3QQ.png" alt="enter image description here"></p> <p>The code would have to check the folder structure to see if it is pulling the Excel file out of the newest folder. If it was, it would just refresh all of the cells. If not, it would have to delete all of the tables and insert new ones from the same sheets as the previous ones were pulled. I am unsure of the code between the asterisks below. Any help would be much appreciated.</p> <pre><code>Sub LinkToCurrentTableFolder() 'Get current folder by date Dim clientTablesPath As Variant filePath = ActiveDocument.Path &amp; "\ClientTables\" Set fso = CreateObject("Scripting.FileSystemObject") Set fld = fso.GetFolder(filePath) Dim currentFolder As Variant: currentFolder = "" For Each sf In fld.SUBFOLDERS 'Look at name and get current date If currentFolder = "" Then currentFolder = sf.Path ElseIf sf.Path &gt; currentFolder Then currentFolder = sf.Path End If Next '*** 'Debug: display current Excel folder path 'MsgBox (currentFolder) If currentPath = currentFolder Then 'Loop through all tables in document and refresh 'If path is not current delete current table Dim tbTemp As Table Dim cellTemp As Cell For Each tbTemp In ActiveDocument.Tables For Each cellTemp In tbTemp.Range.Cells cellTemp.Range.Fields.Update Next Next Else 'Locate same file name in new folder shpName = .LinkFormat.SourceName NewPath = currentFolder &amp; "\" &amp; shpName 'Delete existing table (???) Not sure .Delete 'Create new table (???) Not sure - must be from same location and same size as previous one Selection.Table.AddOLEObject ClassType:=cType, FileName:=NewPath, LinkToFile:=True, DisplayAsIcon:=False End If '*** End Sub </code></pre> <p>EDIT - The copy and pasting is done as shown below: <img src="https://i.stack.imgur.com/mshtz.png" alt="enter image description here"></p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USuser1854628
    1. USuser1854628
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POLinked Table in MS Word
      1. USPortland Runner
      1. VTFavorite
    2. VO
      singulars
      1. POLinked Table in MS Word
      1. USuser1854628
      1. VTFavorite
    3. VO
      singulars
      1. POLinked Table in MS Word
      1. This table or related slice is empty.
      1. VTUpMod
    1. COdo you get any error? what type and in which line?
      singulars
      1. POLinked Table in MS Word
      1. USKazimierz Jawor
    2. COI updated the code so if the Excel file is in the newest folder, it will just update the table from that linked Excel file. If the Excel file isn't in the newest folder, that is where the issue is. It will have to find the Worksheet the old linked table was from and insert the correct rows. It breaks on shpName = .LinkFormat.SourceName with a Compile Error - Invalid or unqualified reference. I am not sure how to grab the old worksheet and point it to the correct rows and columns. Any help out there?
      singulars
      1. POLinked Table in MS Word
      1. USuser1854628
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload