[已解决]为什么附件中的表格，无法TextToColumns 的代码分列

war3.undead

        各位大神，请帮忙看看附件内的内容，里面模块1中的VBA代码，为什么不能正确的按逗号分列？？

         代码哪里出错了？还是内容有哪些格式问题？？

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-20 20:58

这样行不行？
我的理解是:comma参数必须与datatype参数成对使用才有效。

无法按要求分列.zip (8.72 KB, 下载次数: 16)

2013-12-20 20:57 上传

点击文件名下载附件

1. Sub ELBOW()
   
2. 
   
3. 
   
4. Worksheets("ELBOW").[b2].Resize(100).TextToColumns DataType:=xlDelimited, Comma:=True   '将包含文本的一列单元格分解为若干列，以“，”为分割
   
5. 
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

yyyydddd8888

这样行不行？
我的理解是:comma参数必须与datatype参数成对使用才有效。

无法按要求分列.zip (8.72 KB, 下载次数: 16)

2013-12-20 20:57 上传

点击文件名下载附件

1. Sub ELBOW()
   
2. 
   
3. 
   
4. Worksheets("ELBOW").[b2].Resize(100).TextToColumns DataType:=xlDelimited, Comma:=True   '将包含文本的一列单元格分解为若干列，以“，”为分割
   
5. 
   
6. End Sub
   

复制代码

dongqing1998

Worksheets("ELBOW").[b2].Resize(100).TextToColumns Comma:=True, DataType:=xlDelimited

war3.undead

dongqing1998 发表于 2013-12-20 21:18
Worksheets("ELBOW")..Resize(100).TextToColumns Comma:=True, DataType:=xlDelimited

谢谢你的帮助，我原来都感觉少写了一部分。 但原代码对有些数据能正确分开，对有些就出错。。。。
从“帮助文件”说明看“DataType:=xlDelimited”是默认值，默认值不写进代码不是都一样生效的吗？
xlDelimited代表什么数据类型？帮助没说明。。

DataType      [url=mkMSITStore:C:\Program%20Files%20(x86)\Microsoft%20Office\OFFICE11\2052\VBAXL10.CHM::/html/xlmthTextToColumns1.htm#]XlTextParsingType[/url] 类型，可选。将被拆分到多列中的文本的格式。

XlTextParsingType 可为以下 XlTextParsingType 常量之一。

xlDelimited 默认值

xlFixedWidth

war3.undead

yyyydddd8888 发表于 2013-12-20 20:58
这样行不行？
我的理解是:comma参数必须与datatype参数成对使用才有效。

谢谢，加写datatype的确就解决了。

但实际上，有些数据我只单写comma，不写datatype，也能正确分列，有些就会错。
不知道2者究竟差异在哪？数据类型不一样？

如此附件。

yyyydddd8888

war3.undead 发表于 2013-12-21 00:14
谢谢，加写datatype的确就解决了。

但实际上，有些数据我只单写comma，不写datatype，也能正确分列，有 ...

这个我也不清楚了！继续关注！