excel中的表单批量转为单个的html

Sub xx()
Dim i As Integer
For i = 1 To Sheets.Count
   
   
    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "d:\tmp\" & Sheets(i).Name & ".htm", Sheets(i).Name)
        .Publish (True)
    End With
Next
End Sub

按Alt和F11进入宏界面，点菜单的插入，模块，F5执行。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/183473/viewspace-713882/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/183473/viewspace-713882/