Question

高分！高手来excel数据VBA导入CAD，如图和VBA

可以成功导入CAD.表格是保留小数4位，导入CAD居然前面的0没有了，而且小数位数不能设置，求高人修改！！！！！qq：490294457
下面是导入部分的代码：
' 连接至 AutoCAD 图形
Dim acadDoc As AcadDocument
Set acadDoc = acadApp.ActiveDocument

' 创建 文字
Dim a As AcadText
Dim d(0 To 2) As Double
Dim inspoint(0 To 2) As Double
Dim textheight As Double
Dim textstr As Variant
inspoint(0) = x: inspoint(1) = y: inspoint(2) = 0: textheight = 3: textstr = text
Set a = acadDoc.PaperSpace.AddText(textstr, inspoint, textheight)
a.Rotation = angle * 3.14159265 / 180
a.Alignment = acAlignmentMiddle
a.Move d, inspoint
a.Visible = True
End Function

Call adddel(50, 235, Sheets("总表").Cells(HANG, 24), 0) '提取表格第25列面积
拜托各位高手啊，指点一下。到底该怎么才可以达到目的？

Answer 1

开始->控制面板->日期、时间、语言及区域设置->更改数字、日期和时间格式->区域选项->自定义->数字->零起始选项中选择0.7 应该可以解决此问题

Answer 2

应该是你导入时数据内型不对吧

Answer 3

Sheets("总表").Cells(HANG, 24)
改为
format(Sheets("总表").Cells(HANG, 24),"0.00")
试试

追问

不可以，宏无法运行

Answer 4

将inspoint(0) = x: inspoint(1) = y: inspoint(2) = 0: textheight = 3: textstr = text
改为：

inspoint(0) = x: inspoint(1) = y: inspoint(2) = 0: textheight = 3: textstr =format(text,"#.####")

追问

#.####可以控制小数，但前面的0仍然没有

Answer 5

应该是类型问题。再试试 。