[问题] 如何用VBA操作text to column最后一步

楼主: NealCaffery (NealCaffery)   2019-03-13 17:56:08
(若是和其他不同软件互动之问题 请记得一并填写)
软件: 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存入
真的非常愿意看完的人,小弟诚心谢谢!
作者: soyoso (我是耀宗)   2019-03-13 18:43:00
这方面在range.texttocolumns的fieldinfo内调整datatype如果问的是指剖析在指定datatype上为不定数量都要为文字的话,可写个循环,变量()=array(循环变量,2)的方式再于fieldinfo:=变量
楼主: NealCaffery (NealCaffery)   2019-03-14 07:24:00
S大 谢谢你的帮忙,我会来试试!

Links booklink

Contact Us: admin [ a t ] ucptt.com