Prompt for Directory/Choose a File/Link Tables

[DIVINEDAR0956]

The procedure that I have below works perfectly for opening my excel spreadsheet. What I would like for it to do is to
ask save as which would rename the excel spreadsheet and automatically link certain worksheets to access.


Private Sub ViewExcelToEdit()

Dim xlApp As Object
Dim xlWB As Object
Set xlApp = CreateObject("Excel.Application&quot
xlApp.AskToUpdateLinks = False
xlApp.DisplayAlerts = False

Set xlWB = xlApp.Workbooks.Open("C:\WBS_EXCEL50.xls", False)
xlWB.Sheets("Sheet1&quot.SELECT
xlApp.Visible = True

xlWB.Saved = True
xlApp.AskToUpdateLinks = True
xlApp.DisplayAlerts = True
Set xlApp = Nothing
End Sub

Public Function CallExcelToEdit()
ViewExcelToEdit
End Function

After saving the excel spreadsheet, if you have to edit that particular excel file, I would like for the tables that are linked to be put into storage (which is a separate access database)and update the linked tables.

IF THIS IS AT ALL POSSIBLE PLEASE HELP

Thank you.