Multple Web query (with out HTML)

[gg]

I am using a web query but it is pulling in html format
also as seen below. Is it possible to only pull text?

Below the example is the code I am using to retrieve all the querys together?


******** ******************** ************************************************************************>

Microsoft Excel - mlb.xls ___Running: xl2000 : OS = Windows 98

(F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)bout

A1 =

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

15

Profile*for...*ANA*Angels

AL*WEST

W

L

Pct

Situation

G#

W-L

O-U

Runs

*

*

*

*

*

*

*

*

*

*

16

Games**

162

OAK*Athletics

96

66

0.593

All*Games**

162

77-85

75-83

4.54

*

*

*

*

*

*

*

*

*

*

17

Record**

77-85

SEA*Mariners

93

69

0.574

Road**

80

32-48

42-36

4.8

*

*

*

*

*

*

*

*

*

*

18

O/U*Record**

75-83

ANA*Angels

77

85

0.475

Home**

82

45-37

33-47

4.29

*

*

*

*

*

*

*

*

*

*

19

ROI**

-8.90%

TEX*Rangers

71

91

0.438

Favorite**

85

45-40

36-47

4.96

*

*

*

*

*

*

*

*

*

*

20

Team*Streak**

Won*1

*

UnderDog**

73

29-44

37-34

4.05

*

*

*

*

*

*

*

*

*

*

21

Date

Site

Opponent

N

Score

S/U

Line

Total

O/U

Turf

Starter

Opp*Starter

*

22

3/30/2003

Home

Rangers

*

6-Mar

L

-155

9½

U

N

Lackey

Valdes*(R)

*

23

4/1/2003

Home

Rangers

N

Oct-00

W

-125

9½

O

N

Callway

Park*(R)

*

24

4/2/2003

Home

Rangers

*

5-Nov

W

-165

9½

O

N

Ortiz

Thomson*(R)

*

25

4/4/2003

Away

Athletics

N

7-Mar

L

135

8½

O

N

Appier

Lilly*(L)

*

26

4/5/2003

Away

Athletics

*

4-Feb

L

100

8½

U

N

Wshburn

Halama*(L)

*

Sheet2 Hyper Lynks Address is here ...

[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.

Currently I am running the below code that will run multiple query's at one time.? How do I make these quey's only bring in text? I can doin it manually

Sub ImportData()

Sheets(2).Activate
i = 1
Do Until Sheets(1).Cells(i, 1) = ""
myquery = Sheets(1).Cells(i, 1)
Sheets(2).Cells(1, 1) = myquery
myrow = Sheets(2).UsedRange.Rows.Count + 1
Do
myrow = myrow - 1
Loop Until Sheets(2).Cells(myrow, 1) <> ""
myrow = myrow + 1
With Sheets(2).QueryTables.Add(Connection:= _
"URL;" & myquery, Destination:=Sheets(2).Cells(myrow, 1))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
i = i + 1
Loop

[gg]

Bump