1、如何将“excel导成word表工程量清单”导...

来源：蜘蛛抓取(WebSpider) 时间：2011-10-25 08:47 标签： excel导成word
如何将Excel表导入GIS_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
如何将Excel表导入GIS
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩6页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢10523人阅读
新建一个工作表，命名后保存到和与合并的N个文件同一个文件文件夹，按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。
宏1：合并当前目录下所有工作簿的全部工作表到当前工作表
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & &\& & &*.xls&)
AWbName = ActiveWorkbook.Name
Do While MyName && &&
If MyName && AWbName Then
Set Wb = Workbooks.Open(MyPath & &\& & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(&A65536&).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(&A65536&).End(xlUp).Row + 1, 1)
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
MyName = Dir
Range(&A1&).Select
Application.ScreenUpdating = True
MsgBox &共合并了& & Num & &个工作薄下的全部工作表。如下：& & Chr(13) & WbN, vbInformation, &提示&
宏2：多个文件表合到一个文件表的多个SHEET中
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:=&Micrsofe Excel文件(*.xls), *.xls&, _
MultiSelect:=True, Title:=&要合并的文件&)
If TypeName(FilesToOpen) = &boolean& Then
MsgBox &没有选定文件&
'GoTo errhandler
While x &= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
MsgBox &合并成功完成！&
errhandler:
'MsgBox Err.Description
'Resume errhandler
+==================================================================+
点击按钮打开文件对话框的宏：
Private Sub CommandButton1_Click()
Dim fopen As FileDialog
Set fopen = Application.FileDialog(msoFileDialogFilePicker)
fopen.Show
Range(&a1&) = fopen.SelectedItems(1)
Set fopen = Nothing
=============================================
excel2007 在表格中添加按钮
控件位置：
第一步，表格左上角的圆圈点开，excel选项，常用，勾选“在工具栏显示开发工具”
第二步，工具栏，开发工具，插入，里面就是控件选项，包括表单控件和ActiveX控件
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：55818次
排名：千里之外
原创：13篇
评论：15条
(1)(1)(1)(1)(1)(3)(1)(2)(4)(1)(1)(1)地区：唐山
头衔：项目副经理
悬赏分：30
浏览数：1409
广联达清单子目如何导入预算中
广联达清单子目如何导入预算中
地区：北京
等级：8 级
头衔：项目经理★
你的问题是清单计价的工程如何导入定额计价中吗，如果是的话，可以新建一个定额计价工程，然后按下图操作即可导入，软件在导入的时候会自动过滤到清单项，直接导入子目
提问者对最佳答案的评价：
请填写消息，提交后将发送给用户
及时采纳答案不仅是对回答者的认可，同时也能避免问题过期后被
地区：新疆
等级：15 级
头衔：亚太区总裁
1、导入分部分项工程量清单表—只显示清单项目的表；
在左侧分类表中选择分部分项工程量清单表，然后选择要导入的Excel表，如下图-1
选择导入的Excel表后，如果Excel表有很多的明细表，会根据分类表的名称模糊匹配明细表的表名，找到则自动就显示明细表的数据，例如下图-2
如果导入窗口显示的明细表，不是想要导入的表数据，则可在数据表处下拉选择明细表，选择后列表数据相应改变
选定要导入的Excel明细表后，下面的数据列表会先进行“列识别”，会将Excel表中的列名称与软件中给出的列名称匹配，匹配上了则自动显示，没有匹配上则需要手动调整一下，因为行识别是根据关键列来进行，所以要先识别，如下图
清单行的自动识别是根据“编码+名称+单位”，这三列没有识别出来，则行识别就显示的不对，所以需要点击相应“列识别”下拉选择调整一下，如下图：
选择完关键列后，执行右下角的“识别行”，软件会根据规则自动识别行，如图：
行识别是根据关键列来识别的，有的列Excel表中就是没有数据，这样有些行自动是识别不出来的，可以手动调整一下，如图：
列与行均识别后，可选择是清空还是追加导入，在导入的窗口中，勾选“清空导入”，则当前工程已有的数据会删除，然后导入当前识别后的Excel表数据；不勾选“清空导入”，则在当前工程已有数据的后面增加导入的数据。
执行“导入”，识别后的数据导入当前工程中
上述内容为只导入分部分项工程量清单计价表的操作流程，该表可导入清单行，也可以导入分部行，如果有分部行，软件也是会根据关键列来识别的，分部行的行识别规则为“编码+名称+单位为空”，如果没有自动识别，可以检查一下这一列是否需要调整，因分部行每一级均是编码、名称列有值，所以无法区分一级、二级等，软件会自动识别为一级分部,导入软件后,可升降级分部完成分部的上下级关系。
2、导入分部分项工程量清单分析表—清单与子目同时显示的表；
根据左侧表类型，选择Excel表导入
有的Excel表中会分很多明细表，可选择要导入的明细表；
选择了明细表后，界面会按列识别名称与Excel表的列名称模糊匹配，如果是支持导入的Excel表格式，大部分都是自动识别的，支持的格式就是如图中所示，清单与子目的编码、名称、单位、工程量等均在一列显示的；
清单与子目行识别关键在“编码、名称、单位”三列，如果选择了明细表后，窗口内列名称与Excel表中的列名称没有匹配上，需要手工选择一下列名称，然后在执行左下角的“识别行”，清单、子目行会根据规则自动识别，如下图：
执行右下角的“导入”，则识别的数据导入到当前工程对应的分类表中
e） 因为清单表中清单与子目的识别关键点在编码的长度，所以有的清单编码比较短的会识别成子目，或者是关键列的数据不全，例如上图中倒数第二条，没有名称和单位，就会识别成无效行，需要手动调整一下，如下图：
操作执行中...
无满意答案
  及时举报违规行为，共同维护良好环境
举报原因：
问题与专业无关
没有实用价值
问题描述不清晰
同IP自问自答，恶意刷分
完全复制他人答案
部分复制他人答案
无实际价值
同IP自问自答，恶意刷分
    
如果您认为这个答案有误，或者有更好的答案，请立即告诉我们！
如果您的“揪”错被采纳，可获得10分积分奖励！
我的答疑任务
图片正在上传...

我要回帖

更多关于 excel导成word 的文章

 

随机推荐