如何把excel中的sheet3中的内容另存一个文件！

如何把excel中的sheet3中的内容另存一个文件！

解决方案 »

  1.   

    思路：
    用ado 查出表名用
    select语句查询数据
    用循环读出没一单元格的值
    不知你要存为什么类型的文件，txt,mdb,xls,.........
      

  2.   

    存成  xls 格式。最好能给个例子！
      

  3.   

    工程引用excel 9.0 object libeary（excel2000）后Dim e As Excel.Application
    e.Workbooks.Open "xls文件名.xls"
    Dim ws As Excel.Worksheet
    set ws = e.Workbooks(1).Worksheets(x)'某一页
    ws.SaveAs "新文件名.xls"