Re: $$Excel-Macros$$ Re: Error while running macro
can u write what error you got. or you can also send screen-shot of error Divaker On Mon, Mar 19, 2012 at 3:30 PM, SHREE chidurala.sh...@gmail.com wrote: On Mar 15, 3:48 pm, Chidurala, Shrinivas shrinivas.chidur...@citi.com wrote: Hi I am facing the below error while running below macro. Please can you advise on the same. Thank you for your help ! Sub Convert_HTML_to_Excel() Application.ScreenUpdating = False Dim fldpth As String Dim fld, fil As Object Dim j, a As Long Dim ask, ask2 As Workbook 'fldpth = SelectFolder(Select Folder, ) fldpth = C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2) Set Fso = CreateObject(scripting.filesystemobject) Set fld = Fso.GetFolder(fldpth) For Each fil In fld.Files Set ask2 = Workbooks.Open(fil.path) ask2.Activate Rows(3:5).Select Selection.Insert Shift:=xlDown Range(C1).Value = Page : 1 Range(A1).Select Dim path As String path = (C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2)\ + ActiveSheet.Name) ActiveWorkbook.SaveAs FileName:=path, FileFormat:=51 ask2.Close Next fil Application.ScreenUpdating = True MsgBox Macro Successfully Run, , OK End Sub Regards, Shrinivas Picture (Device Independent Bitmap) 1.jpg 30KViewDownload -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com
RE: $$Excel-Macros$$ Re: Error while running macro
Divaker, I am facing the below error while running macro. Please can you advise on the same. [cid:685132014@19032012-07C1] Regards, Shrinivas From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Divaker Pandey Sent: Monday, March 19, 2012 3:43 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Re: Error while running macro can u write what error you got. or you can also send screen-shot of error Divaker On Mon, Mar 19, 2012 at 3:30 PM, SHREE chidurala.sh...@gmail.commailto:chidurala.sh...@gmail.com wrote: On Mar 15, 3:48 pm, Chidurala, Shrinivas shrinivas.chidur...@citi.commailto:shrinivas.chidur...@citi.com wrote: Hi I am facing the below error while running below macro. Please can you advise on the same. Thank you for your help ! Sub Convert_HTML_to_Excel() Application.ScreenUpdating = False Dim fldpth As String Dim fld, fil As Object Dim j, a As Long Dim ask, ask2 As Workbook 'fldpth = SelectFolder(Select Folder, ) fldpth = C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2) Set Fso = CreateObject(scripting.filesystemobject) Set fld = Fso.GetFolder(fldpth) For Each fil In fld.Files Set ask2 = Workbooks.Open(fil.path) ask2.Activate Rows(3:5).Select Selection.Insert Shift:=xlDown Range(C1).Value = Page : 1 Range(A1).Select Dim path As String path = (C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2)\ + ActiveSheet.Name) ActiveWorkbook.SaveAs FileName:=path, FileFormat:=51 ask2.Close Next fil Application.ScreenUpdating = True MsgBox Macro Successfully Run, , OK End Sub Regards, Shrinivas Picture (Device Independent Bitmap) 1.jpg 30KViewDownload -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.commailto:excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com inline: Outlook.jpg
Re: $$Excel-Macros$$ Re: Error while running macro
If xl2003, toolsoptionssecurity remove Don Guillett Microsoft MVP Excel SalesAid Software dguille...@gmail.com From: Chidurala, Shrinivas Sent: Monday, March 19, 2012 9:21 AM To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macros$$ Re: Error while running macro Divaker, I am facing the below error while running macro. Please can you advise on the same. Regards, Shrinivas From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Divaker Pandey Sent: Monday, March 19, 2012 3:43 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Re: Error while running macro can u write what error you got. or you can also send screen-shot of error Divaker On Mon, Mar 19, 2012 at 3:30 PM, SHREE chidurala.sh...@gmail.com wrote: On Mar 15, 3:48 pm, Chidurala, Shrinivas shrinivas.chidur...@citi.com wrote: Hi I am facing the below error while running below macro. Please can you advise on the same. Thank you for your help ! Sub Convert_HTML_to_Excel() Application.ScreenUpdating = False Dim fldpth As String Dim fld, fil As Object Dim j, a As Long Dim ask, ask2 As Workbook 'fldpth = SelectFolder(Select Folder, ) fldpth = C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2) Set Fso = CreateObject(scripting.filesystemobject) Set fld = Fso.GetFolder(fldpth) For Each fil In fld.Files Set ask2 = Workbooks.Open(fil.path) ask2.Activate Rows(3:5).Select Selection.Insert Shift:=xlDown Range(C1).Value = Page : 1 Range(A1).Select Dim path As String path = (C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2)\ + ActiveSheet.Name) ActiveWorkbook.SaveAs FileName:=path, FileFormat:=51 ask2.Close Next fil Application.ScreenUpdating = True MsgBox Macro Successfully Run, , OK End Sub Regards, Shrinivas Picture (Device Independent Bitmap) 1.jpg 30KViewDownload -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question
Re: $$Excel-Macros$$ Re: Error while running macro
Hi Don, Still i am facing the same problem. Regds Shrinivas On Mar 19, 7:35 pm, dguillett1 dguille...@gmail.com wrote: If xl2003, toolsoptionssecurity remove Don Guillett Microsoft MVP Excel SalesAid Software dguille...@gmail.com From: Chidurala, Shrinivas Sent: Monday, March 19, 2012 9:21 AM To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macros$$ Re: Error while running macro Divaker, I am facing the below error while running macro. Please can you advise on the same. Regards, Shrinivas ---- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Divaker Pandey Sent: Monday, March 19, 2012 3:43 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Re: Error while running macro can u write what error you got. or you can also send screen-shot of error Divaker On Mon, Mar 19, 2012 at 3:30 PM, SHREE chidurala.sh...@gmail.com wrote: On Mar 15, 3:48 pm, Chidurala, Shrinivas shrinivas.chidur...@citi.com wrote: Hi I am facing the below error while running below macro. Please can you advise on the same. Thank you for your help ! Sub Convert_HTML_to_Excel() Application.ScreenUpdating = False Dim fldpth As String Dim fld, fil As Object Dim j, a As Long Dim ask, ask2 As Workbook 'fldpth = SelectFolder(Select Folder, ) fldpth = C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2) Set Fso = CreateObject(scripting.filesystemobject) Set fld = Fso.GetFolder(fldpth) For Each fil In fld.Files Set ask2 = Workbooks.Open(fil.path) ask2.Activate Rows(3:5).Select Selection.Insert Shift:=xlDown Range(C1).Value = Page : 1 Range(A1).Select Dim path As String path = (C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2)\ + ActiveSheet.Name) ActiveWorkbook.SaveAs FileName:=path, FileFormat:=51 ask2.Close Next fil Application.ScreenUpdating = True MsgBox Macro Successfully Run, , OK End Sub Regards, Shrinivas Picture (Device Independent Bitmap) 1.jpg 30KViewDownload -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------ To post to this group, send email to excel-macros@googlegroups.com Outlook.jpg 33KViewDownload -- FORUM RULES (986+ members already
RE: $$Excel-Macros$$ Re: Error while running macro
Hi Noorain Sir, If I write xlExcel7 instead of 51, the macro is running but the some part of disclaimer in the report are missing in output and if I ok in below screen shot then it is running properly. ActiveWorkbook.SaveAs FileName:=path, FileFormat:=51 Please can you advise on the same. Regards, Shrinivas From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of NOORAIN ANSARI Sent: Monday, March 19, 2012 9:51 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Re: Error while running macro Dear Shrinivas, Check below link http://office.microsoft.com/en-us/excel-help/use-office-excel-2010-with-earlier-versions-of-excel-HA010342994.aspx On Mon, Mar 19, 2012 at 7:51 PM, Chidurala, Shrinivas shrinivas.chidur...@citi.commailto:shrinivas.chidur...@citi.com wrote: Divaker, I am facing the below error while running macro. Please can you advise on the same. [cid:541262416@19032012-07C8] Regards, Shrinivas From: excel-macros@googlegroups.commailto:excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.commailto:excel-macros@googlegroups.com] On Behalf Of Divaker Pandey Sent: Monday, March 19, 2012 3:43 PM To: excel-macros@googlegroups.commailto:excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Re: Error while running macro can u write what error you got. or you can also send screen-shot of error Divaker On Mon, Mar 19, 2012 at 3:30 PM, SHREE chidurala.sh...@gmail.commailto:chidurala.sh...@gmail.com wrote: On Mar 15, 3:48 pm, Chidurala, Shrinivas shrinivas.chidur...@citi.commailto:shrinivas.chidur...@citi.com wrote: Hi I am facing the below error while running below macro. Please can you advise on the same. Thank you for your help ! Sub Convert_HTML_to_Excel() Application.ScreenUpdating = False Dim fldpth As String Dim fld, fil As Object Dim j, a As Long Dim ask, ask2 As Workbook 'fldpth = SelectFolder(Select Folder, ) fldpth = C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2) Set Fso = CreateObject(scripting.filesystemobject) Set fld = Fso.GetFolder(fldpth) For Each fil In fld.Files Set ask2 = Workbooks.Open(fil.path) ask2.Activate Rows(3:5).Select Selection.Insert Shift:=xlDown Range(C1).Value = Page : 1 Range(A1).Select Dim path As String path = (C:\Documents and Settings\sc52912\Desktop\New Folder\New Folder (2)\ + ActiveSheet.Name) ActiveWorkbook.SaveAs FileName:=path, FileFormat:=51 ask2.Close Next fil Application.ScreenUpdating = True MsgBox Macro Successfully Run, , OK End Sub Regards, Shrinivas Picture (Device Independent Bitmap) 1.jpg 30KViewDownload -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.commailto:excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. -- To post to this group, send email to excel-macros@googlegroups.commailto:excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5
