作者NealCaffery (NealCaffery)
看板Office
标题[问题] 如何用VBA操作text to column最後一步
时间Wed Mar 13 17:56:08 2019
(若是和其他不同软体互动之问题 请记得一并填写)
软体: excel
版本: 2016
最近因为工作开始学习VBA，有一个非常困扰我的问题，想问问板上有没有能解答。
之前我都是手动将txt档的资料手动转到我excel的表格，但资料量越来越多的状况下我了
写一个能自动转档的程式，然而程式码完成後，我发现一个问题。
Text file里的资料大概是这种形式的
08274627, 0321, 0321, 0032, 0000
我先将整个txt的每一行写入A1, A2, A3.....
然後再用巨集录制的text to column(delimiter)将其分栏，但我发现手动时我可以在tex
t to column的最後一个步骤将每一列的data format直接选成text，但录制巨集时却少了
这个步骤。
如此一来，我data输入时都是以general的方式来分行，导致我有0开头的资料都变指数表
现或消失。我有试过在text to column前後用numberformatlocal来将储存格转成text，
但都没有用。
没有作用的原因，我认为是因为资料已经先被转成general(0已经消失)，所以再用number
formatlocal也没用，而text to column前用numberformatlocal没用是因为text to colu
mn操作完後资料又会被转成general。
我的问题是，有人知道怎麽用code来操作text to column，且避免我的资料在分行时直接
以general存入，而是以text存入
真的非常愿意看完的人，小弟诚心谢谢！
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 39.10.196.156
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1552470971.A.800.html
※ 编辑: NealCaffery (39.10.196.156), 03/13/2019 17:57:14
※ 编辑: NealCaffery (39.10.196.156), 03/13/2019 17:58:21
1F：→ soyoso: 这方面在range.texttocolumns的fieldinfo内调整datatype 03/13 18:43
2F：→ soyoso: 如果问的是指剖析在指定datatype上为不定数量都要为文字的 03/13 18:45
3F：→ soyoso: 话，可写个回圈，变数()=array(回圈变数,2)的方式 03/13 18:47
4F：→ soyoso: 再於fieldinfo:=变数 03/13 18:47
5F：→ NealCaffery: S大 谢谢你的帮忙，我会来试试！ 03/14 07:24