Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Web Query Doesnt Load Unless I Open It 1st
I have queries saved in the file C:\Documents and Settings\Al\Application
Data\Microsoft\Queries\MStar. Individually they all work fine. However, when I open a workbook and use its VBA macro to run the queries no data is found. I find that if I then go to one of my stored queries, open it directly and then go back to my workbook and re-run the macro everything works fine. Am I missing something in my code? VBA: Sub Large() ' ' Copies MStar total returns for funds Application.DisplayAlerts = False On Error Resume Next Sheets("Large").Select Sheets.Add ActiveSheet.Select ActiveSheet. Name = "Sheet1" IQYFile = "C:\Documents and Settings\Al\Application Data\Microsoft\" & _ "Queries\MStar\RGAEX.iqy" With ActiveSheet.QueryTables.Add(Connection:= _ "FINDER;" & IQYFile, Destination:=Range("A1")) .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False .SaveData = True End With Range("A3:E7").Select Selection.Copy Sheets("Large").Select Columns("B:B").Select Selection.Find(What:="RGEAX", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 10).Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Delete The code continues on for other queries. A sample of one of the queries would be: WEB 1 http://quicktake.morningstar.com/Fun...&fdtab=returns Selection=15 Formatting=None PreFormattedTextToColumns=True ConsecutiveDelimitersAsOne=True SingleBlockTextImport=False DisableDateRecognition=False DisableRedirections=False Thanks for any help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
XLL loading fails unless load through File Open | Excel Programming | |||
Load caption box on userform open | Excel Worksheet Functions | |||
Problems During Load (XML file Open) | Excel Programming | |||
How do I down load excel to open email attachment? | Excel Discussion (Misc queries) | |||
Macro to load on open | Excel Programming |