Yes Rajan, the code is calling a procedure in Call bulkUpload.GenerateReport
The procedure has not been included. Could you please include that also ? On Thu, Jul 7, 2011 at 10:45 PM, Chidurala, Shrinivas < 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 > > > -----Original Message----- > From: 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 > 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 > Call bulkUpload.GenerateReport > 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] > On Behalf Of Chidurala, Shrinivas > Sent: Wednesday, July 06, 2011 5:00 PM > To: 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 > 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 > -- 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
