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
--
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: Picture (Device Independent Bitmap) 1.jpg>>
