在CAD ⅤBA中把recordset传输给excel?
把CAD中的表格导入到Excel表格中可按以下方法操作:
1、全选这个表格,在表格上右键,在弹出的菜单中选择“输出”命令:
2、计算机要你保存一个CSV文件,CSV是文件的扩展名,文件的基本名可以写成“成绩统计”或其它,注意文件类型是“逗号分隔(*.CSV)”:
3、保存好的文件是这样的,它是Excel逗号分隔值文件:
4、这个分隔值文件可以直接用Excel打开的,打开后的情况跟在Excel中用手工输入的是一模一样,可以进行你所要的数据处理。本次操作就算成功了。
扩展资料:excel小技巧:
一、常用的快捷键:
(1)选择性粘贴,2003以后的版本,都是Ctrl + Alt + V, 可以调出选择性粘贴的对话框。
不过其实可以选中第一个单元格,按Shift + F8, 进入连续选中模式,然后将单元格移到你要选中的第二个单元格,再连续两次Shift+ F8,就选中了这些连续单元格,以此类推。
(2)Ctrl+Enter,配合以上选中不连续单元格使用,可以在多个单元格输入同一内容。
二、合并单元格:
excel合并单元格复制公式怎么操作?
excel表格中,如果想在合单元格中复制公式,会提示大小一样中断你的复制,这时候我们可以用快捷键填充公式。
选中所有包含合并单元格的区域(第一个单元格要含公式),双击编辑栏中公式,然后按ctrl+回车键填充即可。
三、 excel多条件求和函数有哪些
在EXCEL里,有哪些函数可以完成多条件求和呢?
SUMIF函数和COUNTIF函数用法差不多.多条件的处理方法如下:
1:多项目求和
=SUM(SUMIF(B31:B35,{"A","C"},C31:C35))
2:03版本可以用SUMPRODUCT函数替代.
=SUMPRODUCT((MONTH(A3:A9)=3)*(B3:B9="A")*C3:C9)
3:07版本可以用SUMIFS替换:
=SUMIFS(D2:D11,A2:A11,"公司1",B2:B11,"人事部")
多条件汇总,也可以用SUMPRODUCT函数完成。
真实表格(TrueTable)11.0C
发布时间 :2010.1.31
1.功能:
1). 将CAD中的表格或文本输出到Excel
2). 将CAD中的表格或文本输出到文本文件(TXT)或CSV文件
3). 直接输出CAD中的任意表格,即使这些表格是复杂实体,
比如:块参照,带属性的块参照,CAD自身的Table实体以及其它软件生成的表格
4). 将Excel表格导入CAD
5). 将文本文件(TXT)或CSV文件导入CAD
6). 同时将多个CAD表格输出到Excel文件
7). 可以精确定义CAD表格尺寸,包括文字高度、文字宽度系数、行高、列宽
8). 可以设置表格外框,网格,文本的颜色
9). 按Excel表格或Excel文件更新CAD表格,可选择表格局部更新或仅更新文本
10). 如果输入的表格太长,自动将表格分片,并能设置表头,表尾
11). 支持文本水平、垂直排列,共9种对齐方式
12). 支持自动换行,上、下标,文本旋转,竖直文本,多行文本,单元格边框,文本自动适配
13). 具有文本自动替换功能,能使CAD中的特殊符号在Excel中正确显示,如将"%%c"替换为"Φ"
14). 支持Excel的隐藏行、列
15). 支持表格倒置,即输出、输入表格时颠倒表格顺序
16). 5种表格插入方式: 表格四个角点以及指定窗口
17). 对CAD中的文本进行统计
18). 根据Excel表格批量替换CAD文本
19). 批量输出MST,SFCAD,TWCAD材料表
20). 材料表自动计算,钢结构用钢量统计
21). 自动拆分钢板编号,如将"-20x800x500" 拆分成3列:20,800,500
2.运行平台
CAD 2006/2007/2008/2009/2010
Excel 97 及其以后版本
3.安装:
安装TrueTable11.0前,先将TrueTable以前的版本反安装,再执行install.exe进行安装
4.运行:
安装完成后,TrueTable会自动加载到CAD中,并显示"TrueTable"菜单,
把CAD中的表格导入到Excel表格中可按以下方法操作:
1、全选这个表格,在表格上右键,在弹出的菜单中选择“输出”命令:
2、计算机要你保存一个CSV文件,CSV是文件的扩展名,文件的基本名可以写成“成绩统计”或其它,注意文件类型是“逗号分隔(*.CSV)”:
3、保存好的文件是这样的,它是Excel逗号分隔值文件:
4、这个分隔值文件可以直接用Excel打开的,打开后的情况跟在Excel中用手工输入的是一模一样,可以进e799bee5baa6e79fa5e98193e78988e69d8331333366303766行你所要的数据处理。本次操作就算成功了。
禹邱枸橼: 大约有如下几种方法:1、vba自己加载法.将你的vba工程文件改名为acad.dvb,放在cad的安装目录下,vba初始化后自动加载.2、startup加载法.将你的vba文件放到cad的安装目下.cad安装目录下和suport目录下搜索acad.lsp文件,如果不...
昭觉县15344381804: 在CAD中使用VBA如何获取自定义实体中的信息 - ?
禹邱枸橼: 基本上有二种方法:1、将属性值传至本地电脑磁盘中,必要时程序根据实体句柄来访问它.2、在建模过程中,将属性值以数据扩展方式或词典扩展方式随文件一起保存,必要时让程序访问它.如果仅开发宏以自用,建议使用第一种方法.如果开发软件,以第二种方法为妥.另外,也可以使用其它方法取得在创建时没有记录属性的实体的信息,如设计院给的体育场桁架设计图是光头光脑的,没有相贯口等结点,也没有任何扩展属性,如果要手动做出相贯口来是十分不便的.
昭觉县15344381804: 在VBA 如何获取AUTOCAD中图块的位置坐标 - ?
禹邱枸橼: 在VBA中,可以使用如下语句获得坐标位置: Private Sub GetBlocksCoord()Dim BlockObj As AcadBlockFor Each BlockObj In ThisDrawing.Blocks '在当前图形中查找所有块Debug.Print BlockObj.Origin(0), BlockObj.Origin(1) '获取坐标Next Set BlockObj = Nothing '销毁变量 End Sub把这段命令保存为VBA文件,在菜单工具-->Autolisp-->加载该文件.
昭觉县15344381804: 在CAD VBA中如何实选择集的面域? - ?
禹邱枸橼: 选择对象是不能直接操作的,但可以取出选择集的实体对象后再建面域即可 例如代码如下:Public Sub ss_region() Dim ss As AcadSelectionSet, region As Variant Set ss = ThisDrawing.SelectionSets.Add("sss") ss.SelectOnScreen Dim ents()...
昭觉县15344381804: 在AutoCAD中如何用VBA实现图形修复,也就是recover? (请不要回答诸如sendcommand的命令行方法) - ?
禹邱枸橼: openMacro = Chr(3) & Chr(3) & Chr(95) & "_Recover" Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, Chr(Asc("&")) & "Recover", openMacro) 这是通过添加菜单项实现,但是原理都是一样的,调用了recover命令.其实CAD已有的功能我们直接利用即可,没有的功能才需要二次开发.recover命令实现过程已经封装在CAD程序包中,我们的水平很难自己写出来,也没必要!
昭觉县15344381804: 在CAD中加载了VBA程序后怎么调出来用 - ?
禹邱枸橼: 工具-选项--宏---宏 或命令vbarun,选择要运行的宏命令(就是VBA中的sub)
昭觉县15344381804: AutoCAD 2008 VBA - ?
禹邱枸橼: 方法1.安装的时候有个选项,典型,全部,自定义,选择自定义,里面最后有个是VBA 组件,右键--选择,在本地硬盘安装全部程序,然后一路下一步方法2. 如果方法1无效 ,找到安装源文件下 support\VBA 把里面的msi都双击安装就可以了
昭觉县15344381804: CAD中文字查找替换功能如何用VBA实现 - ?
禹邱枸橼: 基本是这样子的 dim strDwgName As String dim strFind As String dim strReplace As String Dim ent As AcadEntity For Each ent In Thisdrawing.ModelSpace If TypeOf ent Is AcadText Or TypeOf ent Is AcadMText Then With ent If InStr(.TextString, ...
昭觉县15344381804: cad vba UCS移动问题 - ?
禹邱枸橼: 在代码的最后加上ZoomAllThisDrawing.Regen acActive Viewport即首先缩放全部然后重生成当前视口来保证所有图元重新生成一遍.
昭觉县15344381804: 怎么用vba编的程序调用cad里的全选和删除图形的命令??
禹邱枸橼: 在你的程序前面加上 Dim obj As AcadObject For Each obj In ThisDrawing.ModelSpace obj.Delete Next