Rajan, I am using Excel 2003 and the macro is not from coding " Dim Fso As New Scripting.FileSystemObject" .
Regards, Shrinivas On Thu, Jul 7, 2011 at 10:45 PM, Chidurala, Shrinivas <shrinivas.chidur...@citi.com<mailto:shrinivas.chidur...@citi.com>> wrote: Thanks a lot Rajan. But the below macro is not running in Excel 2003 or any reference need to select from Tools. Please confirm. Regards, Shrinivas Citi(r) Global Transaction Services - India UB City, Canberra Block, # 24, Vittal Mallya Road, Bangalore - 56 00 01. Ph - +91-80-4144 6339 / 6340 Email - shrinivas.chidur...@citi.com<mailto:shrinivas.chidur...@citi.com> -----Original Message----- From: excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com> [mailto:excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com>] On Behalf Of Rajan_Verma Sent: Thursday, July 07, 2011 1:23 AM To: excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com> Subject: RE: $$Excel-Macros$$ Convert HTML file to Excel See if it Help. Sub Compile() On Error GoTo Err_Clear: Application.ScreenUpdating = False Application.DisplayAlerts = False Dim Fso As New Scripting.FileSystemObject Dim Path As String Application.FileDialog(msoFileDialogFolderPicker).Title = "Select Folder to Pick Downloaded Bills" Application.FileDialog(msoFileDialogFolderPicker).Show Path = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\" If Path = "" Then Exit Sub Application.FileDialog(msoFileDialogFolderPicker).Title = "Select Folder to Save Compiled File" CompilePath = Application.FileDialog(msoFileDialogFolderPicker).Show compiledPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\" If compiledPath = "" Then Exit Sub Dim Counter Dim File As File Dim FOlder As FOlder Dim wb As Workbook Dim ws As Worksheet Dim AcWb As Workbook Set AcWb = ActiveWorkbook ActiveWorkbook.Sheets.Add ActiveSheet.Name = "Index" Set FOlder = Fso.GetFolder(Path) For Each File In FOlder.Files Counter = Counter + 1 Set wb = Workbooks.Open(Path & File.Name) If Application.Ready = True Then wb.Sheets("Index").Activate ActiveSheet.UsedRange.Copy AcWb.Sheets("Index").Activate Range("A1000000").End(xlUp).Select ActiveSheet.Paste Application.CutCopyMode = False wb.Close End If Next If Counter > 0 Then AcWb.SaveAs compiledPath & "Compiled", xlExcel12 AcWb.Close End If Err_Clear: Err.Clear Resume Next Application.DisplayAlerts = True Application.ScreenUpdating = True If Counter < 1 Then MsgBox "No File Found For Compile", vbInformation Else MsgBox Counter & " File Has been Compiled, Please Find your File at" & vbCrLf & compiledPath, vbInformation End If End Sub -----Original Message----- From: excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com> [mailto:excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com>] On Behalf Of Chidurala, Shrinivas Sent: Wednesday, July 06, 2011 5:00 PM To: excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com> Subject: $$Excel-Macros$$ Convert HTML file to Excel Dear Excel Gurus, I have some HTML files which are saved in same folder and I want to convert them into Excel and merger the all files into 1 workbook. Please help me to create the macro for the same. Find attached 2 HTML files and required report. Regards, Shrinivas -- ---------------------------------------------------------------------------- ------ Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com<http://www.excel-macros.blogspot.com/> 4. Learn VBA Macros at http://www.quickvba.blogspot.com<http://www.quickvba.blogspot.com/> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com<http://exceldailytip.blogspot.com/> To post to this group, send email to excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com> <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com<http://www.excel-macros.blogspot.com/> 4. Learn VBA Macros at http://www.quickvba.blogspot.com<http://www.quickvba.blogspot.com/> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com<http://exceldailytip.blogspot.com/> To post to this group, send email to excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com> <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com<http://www.excel-macros.blogspot.com/> 4. Learn VBA Macros at http://www.quickvba.blogspot.com<http://www.quickvba.blogspot.com/> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com<http://exceldailytip.blogspot.com/> To post to this group, send email to excel-macros@googlegroups.com<mailto:excel-macros@googlegroups.com> <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- Regards Vasant skype Id: vasantjob http://facebook.com/vasantjob -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
