C
Chad
I have the following lines of code in Excel.
Dim wksTemp As Worksheet
Dim qtTemp As QueryTable
Dim oTemp As Object
Dim strPath As String
strPath = Range("InstallationDirectory").Value + "\" + _
Range("ApplicationDatabase").Value
Set oTemp = GetObject(strPath, "Access.Application")
oTemp.DoCmd.RunMacro "Populate from Platinum"
Set wksTemp = ThisWorkbook.Worksheets("DataSet")
Set qtTemp = wksTemp.QueryTables("LiveData")
qtTemp.Refresh False
Set oTemp = Nothing
UpdateNames ("LiveDataSet")
When I run this I get a blank error returned. This used
to work with Excel and Access 97. With XP
the "oTemp.DoCmd.RunMacro" line returns the blank error.
What should I now use instead of the DoCmd.
Thanks
Dim wksTemp As Worksheet
Dim qtTemp As QueryTable
Dim oTemp As Object
Dim strPath As String
strPath = Range("InstallationDirectory").Value + "\" + _
Range("ApplicationDatabase").Value
Set oTemp = GetObject(strPath, "Access.Application")
oTemp.DoCmd.RunMacro "Populate from Platinum"
Set wksTemp = ThisWorkbook.Worksheets("DataSet")
Set qtTemp = wksTemp.QueryTables("LiveData")
qtTemp.Refresh False
Set oTemp = Nothing
UpdateNames ("LiveDataSet")
When I run this I get a blank error returned. This used
to work with Excel and Access 97. With XP
the "oTemp.DoCmd.RunMacro" line returns the blank error.
What should I now use instead of the DoCmd.
Thanks