Question

各位大神，请问VB程序如何实现批量转换EXCEL文件为HTML？

这是我做的一部分，有点乱
Private Sub Command6_Click()
On Error GoTo userCanceled
With CommonDialog1
.FileName = ""
.InitDir = App.Path
.CancelError = True
.Filter = "(*.xls)|*.xls"
.ShowOpen
End With
Text1.Text = CommonDialog1.FileTitle
userCanceled:
End Sub
Private Sub Drive1_Change() '选择驱动器
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change() '选择文件夹
File1.Path = Dir1.Path
Text1.Text = Dir1.Path
End Sub

Answer 1

Scripting.FileSystemObject,Excel.Application

Answer 2

excel排版大师可以