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