Thanks Vasant Its working fine, Please can you also advise coding for only converting HTML file into Excel...
On Jul 8, 2:16 pm, SHREE <chidurala.sh...@gmail.com> wrote: > Thanks Vasant Its working fine, Please can you also advise coding for > only converting HTML file into Excel... > > On Jul 6, 8:57 pm, Vasant <vasant...@gmail.com> wrote: > > > > > Hi > > > Pls find the code and the file attached. > > The html files stored in the folder 'Folder' will be used for the report. > > > Sub Test() > > Dim Fs As New FileSystemObject, Fl As File > > Dim Fld As Folder, FolderPath As String > > Dim WkBk As Workbook, DtWkBk As Workbook > > Set WkBk = Workbooks.Add > > NoShts = WkBk.Worksheets.Count > > WkBk.SaveAs Filename:="Report" > > > FolderPath = ThisWorkbook.Worksheets("Sheet1").Range("B1") > > Application.DisplayAlerts = False > > Set Fld = Fs.GetFolder(FolderPath) > > Cn = 1 > > For Each fls In Fld.Files > > If fls.Type = "HTML Document" Then > > Debug.Print fls.Type > > Workbooks.Open Filename:=fls.Name > > ActiveSheet.Cells.Copy > > If Cn <= NoShts Then > > WkBk.Worksheets(Cn).Activate > > ActiveSheet.Paste > > ActiveSheet.Name = Left(fls.Name, Len(fls.Name) - 4) > > Cn = Cn + 1 > > Else > > WkBk.Worksheets.Add > > Cn = Cn + 1 > > WkBk.Worksheets(Cn).Activate > > ActiveSheet.Paste > > ActiveSheet.Name = Left(fls.Name, Len(fls.Name) - 4) > > > End If > > End If > > > Next > > > Application.DisplayAlerts = True > > > End Sub > > > On Wed, Jul 6, 2011 at 4:59 PM, Chidurala, Shrinivas < > > > shrinivas.chidur...@citi.com> wrote: > > > 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 athttp://www.excel-macros.blogspot.com > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > > 5. Excel Tips and Tricks athttp://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: vasantjobhttp://facebook.com/vasantjob > > > Code.xlsm > > 23KViewDownload- Hide quoted text - > > > - Show quoted text -- Hide quoted text - > > - Show quoted text - -- ---------------------------------------------------------------------------------- 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