EXCEL从工作簿批量导出为单个网页

joerun

Excel批量导出单个网页
就是需要把一个EXCEL文件中的一百多个工作表变成一百多个单个网页文件！！！！
如一个EXCEL文件中有Sheet1~Sheet100个工作表，要批量分成1~100个单个网页文件。
我用下面这个， 打开看时内容全是乱码，求高手、狂人  
    Sub NewWb()        Dim Sh As Worksheet        Application.ScreenUpdating = False        For Each Sh In Sheets            Workbooks.Add            Sh.Copy ActiveWorkbook.ActiveSheet            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sh.Name & ".mht"            ActiveWorkbook.Close        Next        Application.ScreenUpdating = True    End Sub

joerun

没人知道吗  

joerun

求高手{:soso_e179:}

maxiaoan

谢谢啊
很好

wnh728

学学，谢谢楼主资源共享！！                                 

joerun

正确答案如下：
Sub NewWb()        Dim Sh As Worksheet        Application.ScreenUpdating = False        For Each Sh In Sheets            Workbooks.Add            Sh.Copy ActiveWorkbook.ActiveSheet            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sh.Name & ".mht"  , FileFormat:=xlWebArchive           ActiveWorkbook.Close        Next        Application.ScreenUpdating = True    End Sub