首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 在线等，我想读出excel里一列的内容，然后写进文本，谢谢帮忙 [已结贴,结贴人:maosir]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • maosir
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 揭贴率：
    发表于：2008-08-19 21:15:49 楼主
    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelBook = ExcelApp.Workbooks.open("d:\test.xls")
    Set ExcelSheet = ExcelBook.Worksheets(1)


    Set fso = CreateObject("Scripting.FileSystemObject")
    Set c=fso.OpenTextFile(".\h.txt",8,true)

    for i=1 to 10
    str="A" & i
    c.write ExcelSheet.Range("&str&").Value '这里有问题，谢谢帮忙
    c.write Chr(13) & Chr(10)

    next

    'ExcelBook.close
    0  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • txz2003
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-27 18:36:341楼 得分:0
    是读取EXCEL的问题还是写TXT文档的问题，如果是读取EXCEL的问题，试试这个

    set curcell=ExcelSheet.Cells(i, 1)
    c.write curcell.value
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved