Word Doc Update from Excel Spreadsheet

macropod · #2 08-09-2017, 09:47 PM

Your 'Main' code module has a sub named 'PopulateDynamicDDList(oCombo As ComboBox)' in which you'll find a line with:
ThisDocument.Path & Application.PathSeparator & "S8Addresses.xlsx"
you could change:
ThisDocument.Path
to any other path, or even allow the user to select a path by using:
GetFolder
combined with the following function:

Code:

Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

Note: You might want to add some error checking if you use the function; otherwise your code is liable to crash if a valid path isn't selected.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automatic Update for Excel Spreadsheet	Frenchy305	Excel	3	07-14-2017 12:17 PM
How can I automatically update my spreadsheet with report generated from Access	shilabrow	Excel	5	05-18-2014 03:59 PM
Merge large Excel spreadsheet in Word	goharar	Word	0	02-05-2014 05:32 AM
Creating a list in Word from an Excel spreadsheet	gingernut	Mail Merge	1	03-19-2013 02:12 PM
Inserting excel spreadsheet into word doc	educpara58	Excel	2	07-28-2011 01:22 AM