设置单元格的格式：
犍为网站建设公司创新互联,犍为网站设计制作，有大型网站制作公司丰富经验。已为犍为1000多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的犍为做网站的公司定做！
objImportSheet.Cells(i, 1) .NumberFormatLocal = "0.0"
objImportSheet.Cells(i, 2).NumberFormatLocal = "0.000E+00"
下面的都一样。
我靠.你这个要求奇葩哦.都是控制一列的数据类型.你要这样.那你数据库就全部定义成双精度的类型.在读取的时候.
当前行为第一行的CTYPE(内容,De....) 忘记了.这样你第一行就是带小数点的
判断当前行数大于1.全部 CTYPE(内容,INTEGER) 就可以了. 这样一来.第二行开的的全部都是整数型的了
方法一：
用Round函数，语法 ：
ROUND(number,num_digits)
Number 需要进行四舍五入的数字。 Num_digits 指定的位数,按此位数进行四舍五入。
示例：
'Round(需要修改的数字,小数位数)
Print Round(3.1415926, 3)
显示：3.142
方法二：
用Format函数，返回Variant(String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
Format函数的语法具有下面几个部分：
示例：
'Round(需要修改的数字,小数位数)
Print format (3.1415926, "#,###")
显示：3.142
方法三：
1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上新建一个Command控件；
3、双击Command1控件，进入代码编辑界面，输入代码：
Private Sub Command1_Click()
Dim res As Double
res = Format(1 / 3, "0.000")
Print res;
End Sub
4、运行工程，单击按钮，可以看到数据被保留三位小数；
5、总结，想要保留几位小数，直接设置即可，如想设置保留5位小数，设置如下：
format(1/3,"0.00000")
'自定义一个函数：功能是给小数直接进一位
'num 要操作的小数
'n 保留几位小数，
Function getNumber(num As Double, n As Integer) As Double
Dim a As Double
a = Int(num * (10 ^ n)) / (10 ^ n)
If a = num Then
getNumber = a
Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
调用一下：
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
