哪位大侠帮帮忙：菜单中处理txt或excel数据表文件代码求助

本人学VB 也有一段时间了，怎奈何一直不会处理菜单和文件的相关问题，求哪位高手帮个忙，贴一下代码，本人感激不尽！在菜单中处理txt或excel数据表文件，实现如下功能：1，菜单中代开txt或excel数据文件；
2，选取某列中的连续几个，求平均值；
3，然后找出该列中，平均值上下60%的数据（目标值附近的数据）；
4，把找到的数据（目标值附近的数据）对应的一整行，依次输出到一个新的txt或excel文件中。非常感谢！

解决方案 »

  1.   

    LZ新建个VB应用程序向导工程,作多文档界面,按提示操作,直至完成.
    你可从VB给出的实例工程文件中学习菜单中代开txt文件的代码.
    其它涉及SQL结构化查询语言.
      

  2.   

    可从VB给出的实例工程文件中学习菜单中打开txt文件的代码.
      

  3.   

    我1楼中给出的主要是解决LZ的"怎奈何一直不会处理菜单和文件的相关问题，求哪位高手帮个忙，贴一下代码"疑问,VB的应用程序向导它给出了代码.
    至于后两步操作,没现成代码直接可用.但EXCEL工作薄可作为数据库使用,你那些要求直接写SQL查询句就行了.    
        Adodc1 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\报告.xls" & ";Extended Properties='Excel 8.0;HDR=Yes'"
        Adodc1.RecordSource = "select Avg(列名) As 平均值 from [Sheet1$]"
        Adodc1.Refresh
        Dim Pjz
        Pjz = Adodc1.Adodc1.Recordset(0)
      

  4.   

    我1楼中给出的主要是解决LZ的"怎奈何一直不会处理菜单和文件的相关问题，求哪位高手帮个忙，贴一下代码"疑问,VB的应用程序向导它给出了代码.
    至于后两步操作,没现成代码直接可用.但EXCEL工作薄可作为数据库使用,你那些要求直接写SQL查询句就行了.
    VB code    ……
    [/Quote]
    非常感谢   我不会SQL    本想学一下，可一个VB   我也玩不转    
      

  5.   


    那就从基础开始学VB，买本VB参考书或安装MSDN,一步步来,不可能一步登天的.