J9九游会AG

专(zhuan)业(ye)电(dian)脑培(pei)(pei)(pei)训(xun)(xun)(xun)机构(gou),为北京、上海、广州(zhou)、深圳、长沙、武汉、福州(zhou)、厦门等城市(shi)提供(gong)EXCEL培(pei)(pei)(pei)训(xun)(xun)(xun)、PPT培(pei)(pei)(pei)训(xun)(xun)(xun)、WORD培(pei)(pei)(pei)训(xun)(xun)(xun)、ACCESS培(pei)(pei)(pei)训(xun)(xun)(xun)、PROJECT培(pei)(pei)(pei)训(xun)(xun)(xun)、MCSE培(pei)(pei)(pei)训(xun)(xun)(xun)、MCITP培(pei)(pei)(pei)训(xun)(xun)(xun)、OFFICE培(pei)(pei)(pei)训(xun)(xun)(xun)等高级(ji)培(pei)(pei)(pei)训(xun)(xun)(xun)及相关技术服务。

0592-2962798 2963798
2966798 2968798
厦门湖滨南路皇达大厦5楼

最新文章列表

日报表这样做,快速填写,自动汇总,不..

J9九游会AG工具箱系列教程之快速分栏

J9九游会AG财务收支预测工具

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

不允许EXCEL出现系统的提示对话框

高效办公:自动汇总数据有多难?J9九游会AG..

热门文章列表

【J9九游会AG下载】J9九游会AG工具箱

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

厦门J9九游会AGEXCEL数据管理平台

金牌EXCEL老师刘凌峰教你如何在文本..

【J9九游会AG下载】J9九游会AG分发汇总工具

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

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

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

代码示例:
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
''获取J9九游会AGEXCEL数据管理平台的编程接口
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
''获取J9九游会AG平台的编程接口
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")
不经过剪切板,直接从一个工作簿复制到另一工作簿!
效率比以前大(da)大(da)提高(gao)!!!

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

厦(sha)门J9九游会AG是一家微软(ruan)认证培训(xun)机构,是专业的EXCEL培训(xun)、PPT培训(xun)、ACCESS培训(xun)、OFFICE培训(xun)、微软(ruan)培训(xun)、微软(ruan)考试及(ji)其他(ta)IT服(fu)务供应商(shang) ©2014 厦(sha)门J9九游会AG微软(ruan)高级技术教(jiao)育中心 技术支持: