DLL代码如下,不应该是VB代码问题.
Dim oExcel, oWb
Dim EXCEL_path
Dim TXT_path
Public Function SaveAs(EXCEL_path As String, TXT_path As String) As String
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(EXCEL_path)
oExcel.DisplayAlerts = False
oExcel.ActiveWorkbook.SaveAs TXT_path, -4158
oExcel.Quit
SaveAs = "OK"
End Function