VBA 读取txt档 goldberg73 PTT批踢踢实业坊

VBA 读取txt档

楼主: goldberg73 (高柏) 2015-07-20 22:25:17

如果有一个txt档,内容如下
甲乙丙12345 5612
你好吗12545 12123
我很好 2451234568
想要输出至EXCEL，第一列每三个字符输出至一个储存格,
第二列每五个字符输出一个储存格,第三列每六个字符输出至一个储存格。
输出至sheet结果如下表
A B C
1 甲乙丙 12345 5612
2 你好吗 12545 12123
3 我很好 2451 234568
不知道VBA coding 要么写??
谢谢~!!

作者: johnpage (johnpage) 2015-07-20 22:51:00

宏

作者: wenyonba (射后不理很XX啊!!!!) 2015-07-20 23:34:00

我怎么觉得你的解释跟你的输出根本对不起来XD~~

作者: lichuw (一切都是无解) 2015-07-20 23:54:00

读取字串后用StrConv(字串,vbFormUnicode) 先转换字串循环 For i=1 to LenB(转换后的字串) step 6取出字串= MidB(转换后的字串,i,6)再用StrConv(取出的字串,vbUnicode) 把字串转串回去再把得到的字串填到你要的cell里就好

作者: MOONRAKER (㊣牛鹤鳗毛人) 2015-07-21 21:49:00

完全不知道在解释什么。

作者: m9556 (紫色天平Boy) 2015-08-05 17:13:00

把你的TXT覆制贴上，直接用资料剖析，不用写程式

继续阅读

[VBA ] 不好意思这是c的问题，但接口一样都是VSQ1Q2Q3 [.NET] 请教有关vb.net物件导向hawfu [.NET] NPOI复制sheetbecause25 [.NET] 想问有关Draggable Component的问题...easterday [VBA ] AutoFilter筛选多个值chris75123 [VB6 ] [VBA]请问VBA可以宣告不连续的阵列吗?gecer [VBA ] 用vba求解Floyd算法harck17551 [VBA ] 动态阵列如何做全域宣告unfinish [.NET] GridView 的 Button 显示隐藏because25 [VB6 ] 请问一下...程式求解zzire