专业微软培训机构,为北京、上海、广州、深圳、长沙、武汉、福州、厦门、泉州、漳州等城市提供EXCEL、PPT、WORD、ACCESS、PROJECT、MCSE、MCITP、OFFICE等高级培训及相关技术服务。

0592-2962798 2963798
2966798 2968798
厦门市厦禾路南洋大厦二楼

最新文章列表

高士达平台设计开发的泰欣订单管理系..

EXCEL一键实现报关单据生成

[EXCEL]高手都是这么写公式的

快速将EXCEL表中的内容缩放至一页进..

建发汽车干部考核系统实现方案

金牌OFFICE老师刘凌峰教你利用VBA调..

热门文章列表

如何解决EXCEL运行速度慢的问题

利用EXCEL VBA向WORD生成表格和图表..

【高士达下载】高士达工具箱

瑞声达模具管理系统顺利升级到WINDO..

【课程】深入挖掘EXCEL函数宝藏

利用VLOOKUP提取多个条件的同一结果..

最强报表之“彪悍”的COPY命令

关键字:EXCEL云平台,EXCEL开发    发布时间:2015-04-10 14:11:29    作者:Excel培训管理员
    在实际工作中,常常需要将EXCEL文件导入到高士达云平台中,用户希望单击一个按钮,选择导入文件,然后一堆数据就“躺”在面前。为此尝试过不少方法,比如数组变量法、模拟手工复制粘贴法等。今天终于找到一个比较强悍的命令一次性导入。

代码示例:
Sub zps029_copy()
''-------------------程序思路
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim obj As Object
Dim R As Long ''统计行数的变量
''--------清空初始数据
R = Application.WorksheetFunction.CountA(Range("B7:b20"))
If R > 1 Then
''获取高士达EXCEL数据管理平台的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
''通过接口调用execFormula_Update
obj.execFormula "清空上次导入数据zps029"
End If
Dim Myfile As String
Myfile = Application.GetOpenFilename
Application.Workbooks.Open Myfile
R = Application.WorksheetFunction.CountA(Sheets(1).Range("b2:b50000"))
If R >= 2 Then ''超过2行,进行特殊处理
ThisWorkbook.Activate
Sheet1.Select
Range("B7").Select
''获取高士达平台的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
''通过接口调用ExpandRepeatArea_R
obj.ExpandRepeatArea_R R - 2
ActiveSheet.Unprotect "111"
End If
Workbooks(Workbooks.Count).Activate
Range("A2:AJ2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destination:=ThisWorkbook.Sheets("ZPS029项目数据导入").Range("b7")
ActiveWorkbook.Close
ActiveSheet.Protect "111"
Application.ScreenUpdating = True
MsgBox "共" & R & "行数据获取成功!" & vbNewLine & "请尽快单击导入按钮导入到本系统!"
End Sub

彪悍的语句:
Selection.Copy Destination:=ThisWorkbook.Sheets("ZPS029项目数据导入").Range("b7")
不经过剪切板,直接从一个工作簿复制到另一工作簿!
效率比以前大大提高!!!

如果你也希望做出最强EXCEL报表,实现
多人填报、一键报表、 权限控制,请联系我们。
本文关键词:EXCEL云平台   EXCEL开发   

厦门高士达是一家微软认证培训机构,是专业的EXCEL培训、PPT培训、ACCESS培训、OFFICE培训、微软培训、微软考试及其他IT服务供应商 ©2014 厦门高士达微软高级技术教育中心   闽ICP备14021819号 技术支持:港湾有巢

闽公网安备 35020302001653号