VBA代码的奇怪错误在哪

yxh1202 发表于 2010-6-8 11:47:00

我编写了段代码，想把EXCEL中的文字提取到CAD中，并设为多行文字，对齐方式为正中，但是奇怪的是执行后，最后一列（设计渠底）字高个对齐方式没有变，烦请高人指点啊
 
Sub uu() Dim insPnt(0 To 2) As Double  On Error Resume Next  '这句话很重要       ' 连接Excel应用程序        Dim xlApp As Excel.Application      Set xlApp = GetObject(, "Excel.Application")      If Err Then          MsgBox " Excel 应用程序没有运行。请启动 Excel 并重新运行程序。"          Exit Sub      End If      Dim xlSheet As Worksheet      Set xlSheet = xlApp.ActiveSheet zg = 2.5 For p = 1 To 6      txtStr = xlSheet.Cells(1, p)       txtHeight = 25       insPnt(0) = 100: insPnt(1) = 100 - p * 15 + 8.5: insPnt(2) = 0       mtextObj.AttachmentPoint = 5       mtextObj.height = 2 * zg       Set mtextObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtHeight, txtStr)          Next p End Sub
 
电子表格里的第一行是如下内容
 

<table style="WIDTH: 324pt; BORDER-COLLAPSE: collapse" border="0" cellspacing="0" cellpadding="0" width="432" x:str>
<colgroup>
<col style="WIDTH: 54pt" span="6" width="72">
<tbody>
<tr style="HEIGHT: 14.25pt" height="19">
<td style="WIDTH: 54pt; HEIGHT: 14.25pt" class="xl22" height="19" width="72">
桩号
 </td>
<td style="BORDER-LEFT: medium="medium"none; WIDTH: 54pt" class="xl22" width="72">现状渠顶</td>
<td style="BORDER-LEFT: medium="medium"none; WIDTH: 54pt" class="xl22" width="72">设计渠顶</td>
<td style="BORDER-LEFT: medium="medium"none; WIDTH: 54pt" class="xl22" width="72">设计水位</td>
<td style="BORDER-LEFT: medium="medium"none; WIDTH: 54pt" class="xl22" width="72">现状渠底</td>
<td style="BORDER-LEFT: medium="medium"none; WIDTH: 54pt" class="xl22" width="72">设计渠底</td></tr>
<tr style="HEIGHT: 14.25pt" height="19">
<td style="HEIGHT: 14.25pt; BORDER-TOP: medium="medium"none" class="xl22" height="19">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td></tr>
<tr style="HEIGHT: 14.25pt" height="19">
<td style="HEIGHT: 14.25pt; BORDER-TOP: medium="medium"none" class="xl22" height="19">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td></tr>
<tr style="HEIGHT: 14.25pt" height="19">
<td style="HEIGHT: 14.25pt; BORDER-TOP: medium="medium"none" class="xl22" height="19">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td></tr>
<tr style="HEIGHT: 14.25pt" height="19">
<td style="HEIGHT: 14.25pt; BORDER-TOP: medium="medium"none" class="xl22" height="19">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td></tr>
<tr style="HEIGHT: 14.25pt" height="19">
<td style="HEIGHT: 14.25pt; BORDER-TOP: medium="medium"none" class="xl22" height="19">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td>
<td style="BORDER-LEFT: medium="medium"none; BORDER-TOP: medium="medium"none" class="xl22">　</td></tr></tbody></table>

woaishuijia 发表于 2010-6-8 19:02:00

For p = 1 To 6      txtStr = xlSheet.Cells(1, p)       txtHeight = 2 * zg       insPnt(0) = 100: insPnt(1) = 100 - p * 15 + 8.5: insPnt(2) = 0       Set mtextObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtHeight, txtStr)       mtextObj.AttachmentPoint = 5
Next p

yxh1202 发表于 2010-6-9 15:12:00

谢谢，就是把字高属性语句放到最后。可是为何放在前面就出现最后一行没有执行字高呢。百思不得其解。不过还是谢谢你啊

woaishuijia 发表于 2010-6-9 16:06:00

按你的代码,进入FOR循环时,先设置mtextObj的对正和字高属性,可这时mtextObj对象还没有创建,mtextObj还不存在,这时修改其属性的两行语句一定会出错.但你在代码的最前面有一行On Error Resume Next,尽管你的本意是用这个错误处理代码来检测EXCEL程序是否运行,但到了循环语句时,这一句还在发挥作用,程序不会报错而是越过出错的两行代码向下运行到创建mtextObj这一行.创建一个mtextObj对象后程序又回到循环体的前面,设置mtextObj的对正和字高属性,这次不会出错了,但这次被设置属性的是第一次创建的mtextObj对象,然后再创建第二个mtextObj,然后再回去......直到创建最后一个mtextObj后直接退出循环.最后一个mtextObj并没有修改属性.
如果你在进入循环体之前,加一行On Error Goto 0,让前面的On Error Resume Next失效,你就会发现修改属性的两行放在这里是错误的.
所以我对你的代码做的修改主要就是先创建对象,再修改属性,仅此而已.
另外,你在创建对象时使用的字高和后面修改的字高不一致,好像没有必要吧?所以对此也一并做了修改,在创建对象时直接按要求指定字高,而不再修改字高属性.

yxh1202 发表于 2010-6-9 16:40:00

谢谢楼上的帮助。
但是addmext(坐标，多行文字宽度，文字）
我定义txtheight=25是为了不重新定义变量
 
Set mtextObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtHeight, txtStr)
 
mtextObj.height = 2 * zg  ‘这一句才是为多行文字赋字高属性啊。
不知道对不对，请多指教

woaishuijia 发表于 2010-6-10 20:25:00

对不起,是我搞错了.呵呵,我把单行文字和多行文字搞混了.
你是对的,为多行文字赋予字高应该有.

luna125 发表于 2010-10-22 10:10:00

取之于明用之于明

页: [1]

明经CAD社区's Archiver

VBA代码的奇怪错误在哪