急用，请来取50分，再线等待！！！

Question

唉...可惜了,我不会!这分拿不到了吧!

Answer 1

Dim varFile As Object
    Set varFile = CreateObject("Scripting.FileSystemObject")
    Dim varRead As Object
    Set varRead = varFile.OpenTextFile(App.Path & "\test.txt", 1, 0)
    
    Dim rst As New ADODB.Recordset
    With rst
        .Fields.Append "name", adVarChar, 50
        .Fields.Append "numb", adSingle
        .Open
    End With
    
    Dim strLine As String
    Dim intPst As Integer
    Do Until varRead.AtEndOfLine
        strLine = varRead.ReadLine
        '以空格分隔
        intPst = InStr(strLine, " ")
        rst.AddNew
        rst!Name = Trim(Left(strLine, intPst))
        rst!numb = CSng(Trim(Right(strLine, Len(strLine) - intPst)))
    Loop
    
    Set MSChart1.DataSource = rst

Answer 2

代码添上怎么不好使呢？提示“用户定义类型未定义”，请问我应该引用什么？哪一项呀？