| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 941 人关注过本帖, 1 人收藏
标题:请教TXT文件转EXCEL文件
只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏(1)
已结贴  问题点数:20 回复次数:1 
请教TXT文件转EXCEL文件
现有如下一段代码:
Private Sub Command1_Click()
Dim xls As Object, xlsBook As Object, xlsSheet As Object
Set xls = CreateObject("Excel.Application")
Set xlsBook = xls.Workbooks.Add("c:\" & Date & ".xls")
Set xlsSheet = xlsBook.Worksheets(1)
xlsSheet.Name = Timer
Open "c:\zzzz.txt" For Input As #100
r = 1
Do While Not EOF(100)
    Line Input #100, S
    D = Split(S, ",")
    For c = 0 To UBound(D)
        xlsSheet.Cells(r, c + 1) = D(c)
    Next
    r = r + 1
Loop
Reset
xlsBook.Close
xls.Quit
Set xls = Nothing
End Sub


运行后有如下问题:
1、生成文件:希望达到如果C盘没有日期.xls文件就自动生成并导入TXT文件内容,如果有日期.xls文件则打开文件新建Sheet导入TXT文件内容,不要覆盖;
2、保存文件:希望达到默认保存不出现提示的效果;
3、清除进程:希望达到这段程序运行完毕后,进程中的“EXCEL”也随之关闭的效果。

希望前辈们或在该程序中修改,或帮忙重新写一段代码,我卡在这里好几天了。
多谢各位了!!

附zzzz.txt文件以供测试
zzzz.rar (2.75 KB)


[此贴子已经被作者于2017-7-31 23:10编辑过]

搜索更多相关主题的帖子: TXT 文件 EXCEL xls Set 
2017-07-31 23:07
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:20 
1、生成文件:希望达到如果C盘没有日期.xls文件就自动生成并导入TXT文件内容,如果有日期.xls文件则打开文件新建Sheet导入TXT文件内容,不要覆盖;

这个问题在哪呢? 后面半句“如果有日期.xls文件则打开文件新建Sheet导入TXT文件内容,不要覆盖”你自己确定一个命名规则,放在代码里面就可以了。
Set xlsBook = xls.Workbooks.Add
' 中间操作的代码 ……
xlbook.SaveAs Filename 'Filename 就是你自己定义的文件,注意这里是全路径
2、保存文件:希望达到默认保存不出现提示的效果;

上面这段代码不会出现提示。默认保存,因为没有确定文件名,必然要出现保存窗口要求输入文件名,不管是VB还是excel中手动操作都是这样。

3、清除进程:希望达到这段程序运行完毕后,进程中的“EXCEL”也随之关闭的效果。

你的代码好像是没有问题的,执行完之后进程也应该是没有了。估计你出现这个问题至因为代码没有完整执行,中途中断了。
2017-08-01 07:56
快速回复:请教TXT文件转EXCEL文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017793 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved