将EXCEL表格导入CAD中程序源代码VIP免费

将 EXCEL 表格导入 CAD 中程序 VBA 中窗体CAD 中运行找到要输入表按制表,根据提示结果为:源代码如下:Dim xlApp As Excel.ApplicationDim xlBook As Excel.Workbook '工作薄 Dim xlSheet As Excel.Worksheet ' 工 作表 Dim TA(51, 8) As String '文字Dim MC(51, 8) As Boolean '合并 Dim MA(51, 8) As String '合并范围Dim MB(51, 8) As Long'合并范围长度 Dim Hal(51, 8) As Byte '完成设置范围 Dim ia, jb As Byte '表范围Dim TATab(8), Bl As Byte '列字数宽 Dim Mtab As Integer'最大表宽Dim BiH, ZiLa, Bmin As Single '字高比,字栏比,最小表宽 Dim myFilename As String '文件名Dim CW(51, 8) As Long '对齐方式Dim Dhx(820) As Double '横线 x Dim Dhy(820) As Double '横线 y Dim Dhse(820) As Byte ''横线点类型 Dim DhNo, DsNo, TxNo As Long Dim Dsx(820) As Double ' '竖线 x Dim Dsy(820) As Double '竖线 y Dim Dsse(820) As Byte ''竖线点类型 Dim p5(1), p6(1) As DoubleDim Si, Sj As LongPrivate Sub CommandButton1_Click()'用户输入值,及字高比,字栏比的允许范围If TextBox2.Text < 0.3 Then TextBox2.Text = 0.3 If TextBox2.Text > 1 Then TextBox2.Text = 1If TextBox1.Text < 0.3 Then TextBox1.Text = 0.3 If TextBox1.Text > 1.5 Then TextBox1.Text = 1.5 BiH = TextBox1.TextZiLa = TextBox2.TextOn Error GoTo Rnext: '出错陷井'在程序中操作 EXCEL 表常用命令:######################################Set xlApp = CreateObject("Excel.Application") '创建 EXCEL 对象 If myFilename = "" Thensh = MsgBox("查找表格文件", 0) GoTo Rnext:End IfMe.Hide '隐藏表Set xlBook = xlApp.Workbooks.Open(myFilename) '打开已经存在的 EXCEL 工件簿文件 xlApp.Visible = False '设置 EXCEL 对象可见（或不可见）Set xlSheet = xlBook.Worksheets(1) '设置活动工作表'取表的单元格数据 For j = 1 To 8For i = 1 To 50TA(i, j) = xlSheet.Cells(i, j)MC(i, j) = xlSheet.Cells(i, j).MergeCellsMA(i, j) = xlSheet.Cells(i, j).MergeArea.Address CW(i, j) = xlSheet.Cells(i,...