我要做一套试题管理系统的软件,其中试题包括一道表格题,在csdn中询问后得知需要涉及到ole中的excel,但是不知道vb如何调用,请问该如何调用,并且vb是不是能够直接对表格进行编辑。谢谢!!!

解决方案 »

  1.   

    关于vb如何调用access中ole的excel的表格???
    ////////對不起,您這話問錯了。你把意思講清楚偶再來看
      

  2.   

    vb如何应用access中的ole的对象?
      

  3.   

    操纵ole字段(图片与excel,word处理方法一样):
    '存储照片文件到数据库
    Public Function WriteToDB(ByRef col As ADODB.Field, ByVal FileName As String) As Boolean
    On Error GoTo ErrMsg
        Dim mStream As ADODB.Stream
        Set mStream = New ADODB.Stream
        
        WriteToDB = False
        mStream.Type = adTypeBinary
        mStream.Open
        mStream.LoadFromFile FileName
        col.Value = mStream.Read
        
        mStream.Close
        Set mStream = Nothing
        WriteToDB = True
        Exit Function
    ErrMsg:
        MsgBox "存储照片到数据库时出现错误." & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "提示"
    End Function'设置临时照片文件
    Public Function ReadDB(col As ADODB.Field, ByRef imgFile As String) As Boolean
    On Error GoTo ErrRead
        Dim mStream As New ADODB.Stream
        ReadDB = False
        
        If col.ActualSize < 200 Then Exit Function
        
        mStream.Type = adTypeBinary
        mStream.Open
        mStream.Write col.Value
        mStream.SaveToFile imgFile, adSaveCreateOverWrite
        ReadDB = True
        Exit Function
    ErrRead:
         MsgBox "设置临时照片文件时出现错误:" & vbCrLf & Err.Description, vbInformation, "提示"
         ReadDB = False
    End Function在上面的函数中,调用ReadDB可以把ole字段放到一个文件中,然后可以调用shellexecute函数打开它。