| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 525 人关注过本帖
标题:格式转换后未分列
只看楼主 加入收藏
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
 问题点数:0 回复次数:5 
格式转换后未分列
源文件中的数据是两列的
但在对其进行执行转换后生成的xls文件中
数据没有分列并在了一列中
请前辈指导对程序进行修改
谢谢了
搜索更多相关主题的帖子: 格式 分列 
2007-05-27 20:00
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 
KzS4QWTf.rar (8.32 KB) 格式转换后未分列



附上自己写程序文件
请高手指导

2007-05-27 20:02
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 
还想请教一个问题
我想把新生成的xls文件的数据显示在OLE的excel表格中
请问该对程序进行如何修改

2007-05-27 20:04
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 
传错文件了
再来一次
ZtaaTdn0.rar (16.48 KB) 格式转换后未分列



2007-05-27 20:56
kurosawa
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-5-27
收藏
得分:0 
。。。没有大大来回答我的问题
急死了
顶上去

2007-05-29 17:09
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
Private Sub Command2_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim lsFileName As String
Dim llRow As Long
Dim llCol As Long
Dim lsTemp As String
Dim n() As String, ColNum As Integer
lsFileName = CdlTest.FileName

llRow = 0
Set xlBook = xlApp.Workbooks.Add()
Set xlsheet = xlBook.Worksheets(1)
Open lsFileName For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, lsTemp ' 读入一行数据并将其赋予某变量。
n = Split(lsTemp, " ")
Debug.Print lsTemp
llRow = llRow + 1
ColNum = 0
For llCol = 0 To UBound(n)
If Len(Trim(n(llCol))) Then
ColNum = ColNum + 1
xlsheet.Cells(llRow, ColNum) = n(llCol)
End If
Next
Loop
Close #1
xlBook.SaveAs lsFileName & ".xls"
xlBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
MsgBox "文件转换已生成新文件" & m, vbInformation, "Display"
End Sub

VB QQ群:47715789
2007-05-29 18:05
快速回复:格式转换后未分列
数据加载中...
 
   



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

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