S
slimswol
Hi,
I almost have a program running for excel. I am trying to call multiple
macros from "ThisWorkbook". The code below is supposed to delete the
current QueryTable and then after the QueryTable is deleted I call a
macro to add the new data. It currently does work for one
sheet/QueryTable/Macro. But I am not sure how to do this for multiple
sheets/QueryTables/Macros ?
MY QUESTION IS HOW DO I DELETE QUERYTABLES AND CALL MULTIPLE MACROS
FROM THE \"WORKBOOK_OPEN\" FUNCTION?
IF IT IS NOT POSSIBLE, IS THERE ANOTHER WAY TO DO THIS?
Private Sub Workbook_Open()
With Worksheets("Sheet1_RawData")
..QueryTables(1).ResultRange.ClearContents
End With
With Worksheets("Sheet1_RawData")
..QueryTables(1).Delete
End With
Dim qt As QueryTable
For Each qt In Sheets("Sheet1_RawData").QueryTables
'Clear QT data
qt.ResultRange.ClearContents
'Delete QT named range from workbook
Sheets("Sheet1_RawData").qt(1).Delete
'Delete query table
qt.Delete
Next qt
'Call macro to run new query
Call URL_Sheet1_Query
End Sub
I almost have a program running for excel. I am trying to call multiple
macros from "ThisWorkbook". The code below is supposed to delete the
current QueryTable and then after the QueryTable is deleted I call a
macro to add the new data. It currently does work for one
sheet/QueryTable/Macro. But I am not sure how to do this for multiple
sheets/QueryTables/Macros ?
MY QUESTION IS HOW DO I DELETE QUERYTABLES AND CALL MULTIPLE MACROS
FROM THE \"WORKBOOK_OPEN\" FUNCTION?
IF IT IS NOT POSSIBLE, IS THERE ANOTHER WAY TO DO THIS?
Private Sub Workbook_Open()
With Worksheets("Sheet1_RawData")
..QueryTables(1).ResultRange.ClearContents
End With
With Worksheets("Sheet1_RawData")
..QueryTables(1).Delete
End With
Dim qt As QueryTable
For Each qt In Sheets("Sheet1_RawData").QueryTables
'Clear QT data
qt.ResultRange.ClearContents
'Delete QT named range from workbook
Sheets("Sheet1_RawData").qt(1).Delete
'Delete query table
qt.Delete
Next qt
'Call macro to run new query
Call URL_Sheet1_Query
End Sub