Hi Shree,

Apologies for the delay ..

Pls let me know what kind of HTML file would you like to convert ?
Could you pls send me those html files ?

btw
You can also use third party tools what Ankur has mentioned in his mail.





On Mon, Jul 11, 2011 at 5:11 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 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
>



-- 
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

Reply via email to