Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9,101
Default Fails then continues without error

I trying to solve another posting. Can't get paste this error. Last line of
macro is giving Run Time Error 91 , Object Variable or With Block Variable
not set. I'm using excel 2003.

After the error, I can continue without any error. Itried to put On Error
Resume Next and the error still occurs.

I have created a 2 x 4 table in Outlook and saved the data to an HTML file.
I included the HTML text file. To duplicate the problem simply take the HTML
file below an copy to a notepad application and save the file as
OutlookTMP.HTML. You can double click on the file and an Internet explorer
will come up with the table.

Next run the code below changing the folder to match the directory where the
HTML file is located. I used the envirnomental path variable TEMP.




Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IEObj = GetObject(FName)

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here

End Sub

Put text below in file called OutlookTMP.HTML
--------------------------------------------------------------------------------
<html

<head



<meta name=Generator content="Microsoft Word 10 (filtered)"

<style
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EmailStyle17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
--
</style

</head

<body lang=EN-US link=blue vlink=purple

<div class=Section1

<table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0
style='border-collapse:collapse;border:none'
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border:solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Net</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Gross</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-top:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;border-right:
solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'5</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'6</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
</table

<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p

</div

</body

</html


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,355
Default Fails then continues without error

I wonder if you could open the HTML file in Word and do things there? I
know you can do things with tables in VBA. OK, that's probably a roundabout
way, but it is an option.
--
HTH,
Barb Reinhardt




"Joel" wrote:

I trying to solve another posting. Can't get paste this error. Last line of
macro is giving Run Time Error 91 , Object Variable or With Block Variable
not set. I'm using excel 2003.

After the error, I can continue without any error. Itried to put On Error
Resume Next and the error still occurs.

I have created a 2 x 4 table in Outlook and saved the data to an HTML file.
I included the HTML text file. To duplicate the problem simply take the HTML
file below an copy to a notepad application and save the file as
OutlookTMP.HTML. You can double click on the file and an Internet explorer
will come up with the table.

Next run the code below changing the folder to match the directory where the
HTML file is located. I used the envirnomental path variable TEMP.




Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IEObj = GetObject(FName)

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here

End Sub

Put text below in file called OutlookTMP.HTML
--------------------------------------------------------------------------------
<html

<head



<meta name=Generator content="Microsoft Word 10 (filtered)"

<style
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EmailStyle17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
--
</style

</head

<body lang=EN-US link=blue vlink=purple

<div class=Section1

<table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0
style='border-collapse:collapse;border:none'
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border:solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Net</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Gross</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-top:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;border-right:
solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'5</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'6</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
</table

<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p

</div

</body

</html


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9,101
Default Fails then continues without error

I ws going t try to creteobject either the internet explorer or word
application and then try to open the file from the application. Not sure if
that would make a difference. Have you tried it with excel 2007 or repeated
the problem in 2003. Like to knoiw the answer to see if there is something
wrong with my setup. If it works like to know what reference libraries are
activated on your machine.

TBL is listed as a DispHTMLElementCollection when I look at it in the Watch
window. Do you know what library that refers to? I was hoping to find some
tech info at the Microsoft webpage if I knew the library.


"Barb Reinhardt" wrote:

I wonder if you could open the HTML file in Word and do things there? I
know you can do things with tables in VBA. OK, that's probably a roundabout
way, but it is an option.
--
HTH,
Barb Reinhardt




"Joel" wrote:

I trying to solve another posting. Can't get paste this error. Last line of
macro is giving Run Time Error 91 , Object Variable or With Block Variable
not set. I'm using excel 2003.

After the error, I can continue without any error. Itried to put On Error
Resume Next and the error still occurs.

I have created a 2 x 4 table in Outlook and saved the data to an HTML file.
I included the HTML text file. To duplicate the problem simply take the HTML
file below an copy to a notepad application and save the file as
OutlookTMP.HTML. You can double click on the file and an Internet explorer
will come up with the table.

Next run the code below changing the folder to match the directory where the
HTML file is located. I used the envirnomental path variable TEMP.




Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IEObj = GetObject(FName)

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here

End Sub

Put text below in file called OutlookTMP.HTML
--------------------------------------------------------------------------------
<html

<head



<meta name=Generator content="Microsoft Word 10 (filtered)"

<style
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EmailStyle17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
--
</style

</head

<body lang=EN-US link=blue vlink=purple

<div class=Section1

<table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0
style='border-collapse:collapse;border:none'
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border:solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Net</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Gross</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-top:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;border-right:
solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'5</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'6</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
</table

<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p

</div

</body

</html


  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9,101
Default Fails then continues without error

Do you know the correct format of an IE open in excel

Set IE = CreateObject("InternetExplorer.application")
IE.Application.Visible = True

IE.Open Filename:=FName '<= this doesn't work
IE.Document.Open Filename:=FName '<= Or this


"Barb Reinhardt" wrote:

I wonder if you could open the HTML file in Word and do things there? I
know you can do things with tables in VBA. OK, that's probably a roundabout
way, but it is an option.
--
HTH,
Barb Reinhardt




"Joel" wrote:

I trying to solve another posting. Can't get paste this error. Last line of
macro is giving Run Time Error 91 , Object Variable or With Block Variable
not set. I'm using excel 2003.

After the error, I can continue without any error. Itried to put On Error
Resume Next and the error still occurs.

I have created a 2 x 4 table in Outlook and saved the data to an HTML file.
I included the HTML text file. To duplicate the problem simply take the HTML
file below an copy to a notepad application and save the file as
OutlookTMP.HTML. You can double click on the file and an Internet explorer
will come up with the table.

Next run the code below changing the folder to match the directory where the
HTML file is located. I used the envirnomental path variable TEMP.




Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IEObj = GetObject(FName)

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here

End Sub

Put text below in file called OutlookTMP.HTML
--------------------------------------------------------------------------------
<html

<head



<meta name=Generator content="Microsoft Word 10 (filtered)"

<style
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EmailStyle17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
--
</style

</head

<body lang=EN-US link=blue vlink=purple

<div class=Section1

<table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0
style='border-collapse:collapse;border:none'
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border:solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Net</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'Gross</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-left:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
<tr
<td width=148 valign=top style='width:110.7pt;border:
solid windowtext 1.0pt;
border-top:none;padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;border-right:
solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'5</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial'6</span</font</p
</td
<td width=148 valign=top style='width:110.7pt;
border-top:none;border-left:
none;border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
padding:0in 5.4pt 0in 5.4pt'
<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p
</td
</tr
</table

<p class=MsoNormal<font size=2 face=Arial
<span style='font-size:10.0pt;
font-family:Arial' </span</font</p

</div

</body

</html


  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5
Default Fails then continues without error

I could duplicate your problem. it seems very strange to me it gives
error, though it runs without problem in debug mode. by trial and error,
i found it runs without problem if i give excel a wait. for example,
do loop, wait, msgbox etc will do in my case. among them, below is the
most simple one in my enviroment. but i don't know why it works.

Sub test()
TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"
Set IEObj = GetObject(FName)

DoEvents '<== add

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here
MsgBox TBLRows.Item(0).Cells.Item(1).Children.Item(0).inn ertext
End Sub

keiji

Joel wrote:
I trying to solve another posting. Can't get paste this error. Last line of
macro is giving Run Time Error 91 , Object Variable or With Block Variable
not set. I'm using excel 2003.

After the error, I can continue without any error. Itried to put On Error
Resume Next and the error still occurs.

I have created a 2 x 4 table in Outlook and saved the data to an HTML file.
I included the HTML text file. To duplicate the problem simply take the HTML
file below an copy to a notepad application and save the file as
OutlookTMP.HTML. You can double click on the file and an Internet explorer
will come up with the table.

Next run the code below changing the folder to match the directory where the
HTML file is located. I used the envirnomental path variable TEMP.




Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IEObj = GetObject(FName)

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here

End Sub

Put text below in file called OutlookTMP.HTML
--------------------------------------------------------------------------------
<html

<head


snipped





  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9,101
Default Fails then continues without error

I thought I tried a Do Events. thanks for the help. I just got a different
solution working. I think the problem has to do with WORD reading the HTML
file. When I use Window Explorer to look at the HTML file it has a word
ICON. I believe the Get OBJECT is reading the file into word.

My solution was to open an Internet Explorer application a put the filename
as the URL. I din't get any errors.

Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IE = CreateObject("InternetExplorer.Application")
IE.Application.Visible = True
URL = FName
IE.Navigate2 URL
Do While IE.readyState < 4
DoEvents
Loop

Set TBL = IE.document.getelementsbytagname("Table")
'find Net and Gross
'For Each itm In TBL
' Set TBLRows = itm.Rows
' Exit For
'Next itm

Set TBLRows = TBL.Item(0).Rows

End Sub



"keiji kounoike" wrote:

I could duplicate your problem. it seems very strange to me it gives
error, though it runs without problem in debug mode. by trial and error,
i found it runs without problem if i give excel a wait. for example,
do loop, wait, msgbox etc will do in my case. among them, below is the
most simple one in my enviroment. but i don't know why it works.

Sub test()
TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"
Set IEObj = GetObject(FName)

DoEvents '<== add

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here
MsgBox TBLRows.Item(0).Cells.Item(1).Children.Item(0).inn ertext
End Sub

keiji

Joel wrote:
I trying to solve another posting. Can't get paste this error. Last line of
macro is giving Run Time Error 91 , Object Variable or With Block Variable
not set. I'm using excel 2003.

After the error, I can continue without any error. Itried to put On Error
Resume Next and the error still occurs.

I have created a 2 x 4 table in Outlook and saved the data to an HTML file.
I included the HTML text file. To duplicate the problem simply take the HTML
file below an copy to a notepad application and save the file as
OutlookTMP.HTML. You can double click on the file and an Internet explorer
will come up with the table.

Next run the code below changing the folder to match the directory where the
HTML file is located. I used the envirnomental path variable TEMP.




Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IEObj = GetObject(FName)

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here

End Sub

Put text below in file called OutlookTMP.HTML
--------------------------------------------------------------------------------
<html

<head


snipped




  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5
Default Fails then continues without error

Hi Joel

Your code also run without problem in my enviroment and i think this is
more robust one. but your explanation for the cause of error relating to
word was not so clear to me. if so, i think your orginal code would run
without error in case of a simple html file like below. but it also get
error.

mytest.html
--------------------------------------------------------------
<html
<head
</head
<body
<table border="1" cellspacing="2" cellpadding="2"
<tr
<td width=148&nbsp</td
<td width=148Net</td
<td width=148Gross</td
<td width=148&nbsp</td
</tr
<tr
<td width=148&nbsp</td
<td width=1485</td
<td width=1486</td
<td width=148&nbsp</td
</tr
</table
</body
</html

keiji

Joel wrote:
I thought I tried a Do Events. thanks for the help. I just got a different
solution working. I think the problem has to do with WORD reading the HTML
file. When I use Window Explorer to look at the HTML file it has a word
ICON. I believe the Get OBJECT is reading the file into word.

My solution was to open an Internet Explorer application a put the filename
as the URL. I din't get any errors.

Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IE = CreateObject("InternetExplorer.Application")
IE.Application.Visible = True
URL = FName
IE.Navigate2 URL
Do While IE.readyState < 4
DoEvents
Loop

Set TBL = IE.document.getelementsbytagname("Table")
'find Net and Gross
'For Each itm In TBL
' Set TBLRows = itm.Rows
' Exit For
'Next itm

Set TBLRows = TBL.Item(0).Rows

End Sub



"keiji kounoike" wrote:

I could duplicate your problem. it seems very strange to me it gives
error, though it runs without problem in debug mode. by trial and error,
i found it runs without problem if i give excel a wait. for example,
do loop, wait, msgbox etc will do in my case. among them, below is the
most simple one in my enviroment. but i don't know why it works.

Sub test()
TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"
Set IEObj = GetObject(FName)

DoEvents '<== add

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here
MsgBox TBLRows.Item(0).Cells.Item(1).Children.Item(0).inn ertext
End Sub

keiji

Joel wrote:
I trying to solve another posting. Can't get paste this error. Last line of
macro is giving Run Time Error 91 , Object Variable or With Block Variable
not set. I'm using excel 2003.

After the error, I can continue without any error. Itried to put On Error
Resume Next and the error still occurs.

I have created a 2 x 4 table in Outlook and saved the data to an HTML file.
I included the HTML text file. To duplicate the problem simply take the HTML
file below an copy to a notepad application and save the file as
OutlookTMP.HTML. You can double click on the file and an Internet explorer
will come up with the table.

Next run the code below changing the folder to match the directory where the
HTML file is located. I used the envirnomental path variable TEMP.




Sub test()

TempPath = Environ("Temp")
FName = TempPath & "\OutlookTMP.HTML"

Set IEObj = GetObject(FName)

Set TBL = IEObj.getelementsbytagname("Table")
'find Net and Gross
Set TBLRows = TBL.Item(0).Rows '<= Error occurs here

End Sub

Put text below in file called OutlookTMP.HTML
--------------------------------------------------------------------------------
<html

<head

snipped


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Adding validation fails with automation error [email protected] Excel Programming 4 February 13th 08 09:30 PM
Automation error with XLA addin, fails on commandbarbutton onaction [email protected] Excel Programming 0 August 13th 07 07:14 AM
Excel OpenCurrentDatabase fails error 7866 Corrado Setting up and Configuration of Excel 0 July 17th 06 03:52 PM
Prevent error messagebox when refresing querytable from the web fails bzm Links and Linking in Excel 13 January 17th 06 02:24 PM
ON Error goto fails on 2nd error BAC Excel Programming 4 March 15th 05 10:03 PM


All times are GMT +1. The time now is 02:35 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"