asp代码如下
set Myobj=server.CreateObject( "projectexcel.classexcel ")
Myobj.strOutPath=Server.Mappath( "csv ") & "\ " & cstr(Formatdatetime(Now, 1)) & ".xls "
(注：strOutPath是原来用vb写的dll里的，在vb调试的时候曾被用过，是物理路径，但vb调试的语句不在dll里，是独立的)
vb代码
Dim i, j As Integer
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
Public theOutPath As String
Public Property Let strOutPath(s As Variant)
theOutPath = s
End Property
Private Property Get getOutPath()
getOutPath = theOutPath
End Property
Public Function aspexcel(ByVal SQLStr As String) As Boolean
Set cnn = New ADODB.Connection
cnn.Open = "Provider =SQLOLEDB;Initial Catalog=e;Data Source=2号;UID=sa;Pwd=123456 "
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
rs.Open SQLStr, cnn
Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Visible = False 'changed
Set xlBook = xlApp.Workbooks.Open(getOutPath)
Set xlSheet = xlBook.Sheets(1)
For j = 0 To rs.Fields.Count - 1
xlSheet.Cells(1, j + 1) = rs.Fields(j).Name
Next j
For i = 1 To rs.RecordCount
rs.MoveFirst 'move down
While Not rs.EOF
For j = 1 To rs.Fields.Count
xlSheet.Cells(i + 1, j) = rs.Fields(j - 1).Value
Next j
rs.MoveNext
Wend
Next i
xlSheet.Range( "A2 ").CopyFromRecordset rs
rs.Close
cnn.Close
'xlBook.SaveAs (getOutPath)
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing