用vba转换excel单元格格式出现问题，请高手指教，在线等待。

xychl2008 2006-03-20 06:45:38

excel中的sheet有一列全是文本型，而我用
Range(forsheet.Cells(2, fori), forsheet.Cells(forRow, fori)).Select
selection.NumberFormatLocal = "0_ "
将其转换为数值型，虽然在单元格上点右键显示已经转换为数值型，但是我打开转换后的sheet页发现其值仍然是文本型。因为文本型的值是左对齐，而数值型的是右对齐。转换后还是左对齐，并且有出错提示。请高手告诉我这个问题有什么办法。。这个问题今天我必须搞定，望各位高手指教。。

...全文

181 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

kingsang 2006-03-22

打赏
举报

多谢楼主

xychl2008 2006-03-21

打赏
举报

我自己的问题我自己解决了，贴出来让大家共享
Selection.TextToColumns Destination:=Cells(2, fori), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
谢谢excelhome论坛里的winland给我指点。。

xychl2008 2006-03-20

打赏
举报

可能我的问题没有讲清楚。我所要做的是将源excel中的数据通过vba进行格式化，以方便往数据库中做数据抽取。而现在的问题是excel中单元格的格式虽然转换过来了，但在我们抽取的时候认的还是原来的格式，并且我们在打开目标excel文件的时候发现格式虽然转换，但必须在单元格上双击才能转换成数值型。如果没有双击，原来的文本型还是文本型，虽然点右键看属性时是数值型。。。

xychl2008 2006-03-20