Public Function CreateOtherConn(ByRef DbConnection As ADODB.Connection, _
FilePath As String, _
Optional UserName As String = "admin", _
Optional PassWord As String = "", _
Optional DbType As SmDbType = Access) As Boolean
Dim ConnStr As String
Dim DriveName(5) As String
Dim tDbType(5) As String
Dim UserPwd(5) As String
'引用 MICROSOFT EXCEL 10.0 OBJECT LIBRARY ( OR OTHER VERSION)
Private Sub Command2_Click()
Dim myobj As Object
Set myobj = CreateObject("excel.sheet")
Set myobj = myobj.Application.ActiveWorkbook.ActiveSheet
myobj.Range("a1").Formula = "= today()" ' return today
MsgBox myobj.Range("a1").Value
myobj.Range("a2").Formula = "= dollar(123456.78)" ' return dollar format
MsgBox myobj.Range("a2").Value
Set myobj = Nothing
End Sub