怎么样才能将这些统计数据写入DBF文件中。（已建有相同字段的D:\CYC\DeckP.dbf文
怎么样才能将这些统计数据写入DBF文件中。（已建有相同字段的D:\CYC\DeckP.dbf文件）<p><font face="宋体" color="#ff0066" size="3">在我的图形中含有多个（上百个）名为“zPanel”的块，</font></p><p><font face="宋体" color="#ff0066" size="3">块中有图号“DrawNO”／色卡“Color”／长度“Len”／宽度“Width”等属性，</font></p><p><font face="宋体" color="#ff0066" size="3">现已通过程序可以将这些块中属性提取出来，但是不知道如何写入文件，请问：</font></p><p><font face="宋体" color="#ff0066" size="3">怎么样才能将这些统计数据写入DBF文件中。（已建有相同字段的D:\CYC\DeckP.dbf文件）</font></p><p><font face="宋体" color="#ff0066" size="3">若各位大虾有将这些统计数据写入XLS文件中的方法，也可以告诉我，谢谢！</font></p><p><font face="宋体" color="#ff0066" size="3">这的邮箱：LLin_9461@126.com 或 Style6301@126.com</font></p><p></p><p><font color="#5ea2a2" size="4">急用，现在自己开发的程序就是这段无法搞定，如果大家能帮忙解决，我相信很快我的程序</font></p><p><font color="#5ea2a2" size="4">就能完成了，这将大大地提高我的工作效率，也就是说以前需要4天才能完成的工作现在只</font></p><p><font color="#5ea2a2" size="4">需要1天就可以完成，因为以前这些工作是纯手工完成。谢谢大家帮忙！</font></p> <p><font color="#ff0033">各位哥哥姐姐们，拉兄弟一把吧，我快被手工统计给烦死了，</font></p><p><font color="#ff0033">这个月又是因为没按节点完成工作被扣奖金了，</font></p><p><font color="#ff0033">5555555555555555555555555555555555555</font></p> <p>我是新来的，才看到你的帖子，不知道仁兄以经弄懂了吗？</p><p>我是用ADO技术连接的，就是在窗体上放一个ADODC控件，把它连接到数据库,用ADODC的Recordset对象各种方法，把你在CAD中的属性块的属性写过去，就可以了。</p> <p>这是我写的检查图中文本值与EXCEL表中值对应关系的小程序,写得不好,但希望对你有帮助!</p><p>Private Sub cmdBhExcel_Click()<br/> Dim textSSet As AcadSelectionSet '文本选择集<br/> Dim textfType(0) As Integer<br/> Dim textfData(0) As Variant<br/> textfType(0) = 0: textfData(0) = "Text"<br/> <br/> Dim tmpTextObj As AcadText<br/> Dim indexTmp As Integer<br/> Dim blnExcelBH As Boolean<br/> Dim noNumStr As String<br/> Dim strChBh() As String<br/> Dim n As Integer<br/> Dim i As Integer<br/> <br/> On Error Resume Next<br/> ' 连接Excel<br/> Set xlApp = GetObject(, "Excel.Application")<br/> If err Then<br/> MsgBox "未打开Excel数据文件，请先打所需的Excel数据文件！"<br/> Exit Sub<br/> End If<br/> err.Clear<br/> ' 返回新创建的工作簿<br/> Set xlBook = xlApp.Workbooks.Item(1)<br/> If err Then<br/> MsgBox "未打开Excel数据文件，请先打所需的Excel数据文件！"<br/> Exit Sub<br/> End If<br/> <br/> Set xlSheet = xlBook.Worksheets.Item(1)<br/> 'xlApp.Visible = True<br/> err.Clear<br/> On Error GoTo 0<br/> <br/> <br/> '编号选择<br/> Me.Hide<br/> Set textSSet = CreateSelectionSet("textSSet1")<br/>Retry:<br/> ThisDrawing.Utility.Prompt vbCr & "请选择所有编号文本:" '& vbCrLf<br/> textSSet.SelectOnScreen textfType, textfData<br/> ' 处理按下Esc键的错误<br/> If textSSet.count < 1 Then<br/> If CheckKey(VK_ESCAPE) = True Then<br/> GoTo errOut<br/> Else<br/> err.Clear<br/> GoTo Retry<br/> End If<br/> End If<br/> <br/> n = 0<br/> indexTmp = 3<br/> Do While xlSheet.Cells(indexTmp, 3).Value <> ""<br/> ReDim Preserve strChBh(n) As String<br/> strChBh(n) = xlSheet.Cells(indexTmp, 3).Value<br/> indexTmp = indexTmp + 1<br/> n = n + 1<br/> Loop<br/> <br/> For Each tmpTextObj In textSSet<br/> blnExcelBH = False<br/> For i = 0 To n - 1<br/> If UCase(tmpTextObj.TextString) = UCase(strChBh(i)) Then<br/> blnExcelBH = True<br/> End If<br/> Next<br/> <br/> If Not blnExcelBH Then<br/> tmpTextObj.color = 63<br/> noNumStr = noNumStr & "<" & tmpTextObj.TextString & ">" & vbCr<br/> End If<br/> Next<br/> If Len(noNumStr) > 0 Then<br/> MsgBox "Excel数据表中无此编号：" & vbCr & noNumStr, vbOKOnly, "注意！"<br/> Else<br/> MsgBox "Excel数据表中有此编号：", vbOKOnly, "好的！"<br/> End If<br/>errOut:<br/> Me.Show<br/>End Sub<br/></p> <p>谢谢提供 今天收获了</p> <p>这个问题我前段时间已经搞定了，并且找了个办法将数据转换成DBF文件。</p><p>但是无论如何还是要感谢4楼的大哥支持，谢谢！</p> xiexiea!
页:
[1]