作者aup65797 (有缘人)
看板Office
标题[问题] VBA 读取txt format疑问
时间Sat Oct 7 08:42:11 2017
(若是和其他不同软体互动之问题 请记得一并填写)
软体:Excel
版本:Office2010
Set uHead = uHead(2, 1)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & uFile, Destination:=uHead)
.AdjustColumnWidth = False
.TextFileOtherDelimiter = ":" '冒号
.TextFileCommaDelimiter = True '逗号
.Refresh BackgroundQuery:=False
.Delete
End With
以上程式可以读取txt档里的格式内容
但格式不对
https://drive.google.com/open?id=0B2p4am3C9DCoSGFaXzRzMElTc1E
以上为图片内容 , 格式应该要储存到每个方格中 , 但它只放在一个方格
以下为档案 , 麻烦大大帮我看看 , 小弟感激不尽
https://drive.google.com/open?id=0B2p4am3C9DCoNmY3WHR4RHBXb2s
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 42.76.225.140
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1507336933.A.DB0.html
※ 编辑: aup65797 (42.76.225.140), 10/07/2017 08:47:13
1F：→ soyoso: 分隔空格可以textfilespacedelimiter 10/07 09:21
https://drive.google.com/open?id=0B2p4am3C9DCoY19WYmNSeFc0VkE
以上图片 , 我有加入textfilespacedelimiter,但会出现错误
※ 编辑: aup65797 (42.76.225.140), 10/07/2017 10:24:46
2F：→ soyoso: set uhead的部分要调整，以b栏来判断最後一笔有资料的储存 10/07 11:20
3F：→ soyoso: 存格或列号 10/07 11:20