G
Guest
I am attempting to open two different queries in the same workbook, as
individual sheets. Whenever I run the code for the second query Excel open a
new workbook. Does anyone know how to retrieve the data into the current
workbook. The code I am using is a follows. Please bear with me I am very
new at using VBA.
'The first query has already ran and opened in Excel. Adding sheets for
next query.
Sheets.Add
Sheets("Sheet1").Select
Cells.Select
' Code to Navigate through the Database Setup
SendKeys ("{TAB}")
SendKeys ("~")
On Error GoTo errhandler
Workbooks.Open ("C:\Documents and Settings\dminor\Desktop\query\Blanket
Order Query.dqy")
errhandler:
If Err.Number = 1004 Then
Application.DisplayAlerts = False
Application.EnableEvents = False
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
End If
Resume Next
End Sub
individual sheets. Whenever I run the code for the second query Excel open a
new workbook. Does anyone know how to retrieve the data into the current
workbook. The code I am using is a follows. Please bear with me I am very
new at using VBA.
'The first query has already ran and opened in Excel. Adding sheets for
next query.
Sheets.Add
Sheets("Sheet1").Select
Cells.Select
' Code to Navigate through the Database Setup
SendKeys ("{TAB}")
SendKeys ("~")
On Error GoTo errhandler
Workbooks.Open ("C:\Documents and Settings\dminor\Desktop\query\Blanket
Order Query.dqy")
errhandler:
If Err.Number = 1004 Then
Application.DisplayAlerts = False
Application.EnableEvents = False
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
End If
Resume Next
End Sub