电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

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

将EXCEL表格导入CAD中程序源代码_第1页
1/12
将EXCEL表格导入CAD中程序源代码_第2页
2/12
将EXCEL表格导入CAD中程序源代码_第3页
3/12
将 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,...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

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

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部