|
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 |
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 |
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 |
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 |
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 |
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 |
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 </td <td width=148Net</td <td width=148Gross</td <td width=148 </td </tr <tr <td width=148 </td <td width=1485</td <td width=1486</td <td width=148 </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 |
| All times are GMT +1. The time now is 08:14 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com