[求助]：（急件！）由excellink2000导出的excel表格数据为何不能求和、更改小数位？？

dongye2000

（急件！）由excellink2000导出的excel表格数据为何不能求和、更改小数位？？

ll_j

说得仔细点，是在Excel中求和，还是在Acad中求和？
在Excel中需要检查单元格属性是否是文本，在Acad中就需要检查文本前后是否包含空格，或是Mtext实体。

dongye2000

是excel中求和不行 ，我有样本，烦高手查看

efan2000

可能是数据类型不对，在EXCEL的数据类型是文本型的，即使更改为其它类型如通用型或者数值型，但真正的值依然没有更改过来。
可以用以下的程序来解决。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub Test()
   
6.     Dim i As Integer
   
7.     For i = 2 To ActiveSheet.UsedRange.Rows.Count '这里表示开始统计的行和结束统计的行。
   
8.         Range("C" & i).NumberFormatLocal = "G/通用格式" '这里可以更改为所需的列，设置单元格的数据类型为通用型。
   
9.         Range("C" & i).FormulaR1C1 = Range("C" & i).Value '这里更改旧的单元格数据为新类型的数据。
   
10.     Next
    
11. End Sub
    
12. 
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub Test()<br />     Dim i As Integer<br />     For i = 2 To ActiveSheet.UsedRange.Rows.Count '这里表示开始统计的行和结束统计的行。<br />         Range("C" & i).NumberFormatLocal = "G/通用格式" '这里可以更改为所需的列，设置单元格的数据类型为通用型。<br />         Range("C" & i).FormulaR1C1 = Range("C" & i).Value '这里更改旧的单元格数据为新类型的数据。<br />     Next<br /> End Sub<br /> <br />   [/FONT]<br />

当上面的操作完成后，就可以用SUM函数来求和了。

dongye2000

请问上述程序在什么中使用？？如何使用？多谢！

efan2000

在菜单“工具”——“宏”——“Visual Basic 编辑器”中，在“ThisWorkbook”中，将上面的代码粘贴，按F5运行即可。

dongye2000

多谢兄台无私奉献！！我还学会了举一反三，你上面的命令只更改了C列，我自己改了其他列！！
   感激得不知如何是好！
   交个朋友！以后有事您说话，小弟随叫随到！
   email:dongye2000@163.com

fm531

excellink2000 option中Export选项，取消force cell format to text.