excel worksheet.copy() 操作系统剪贴板问题

redria 2009-03-23 02:53:15

我在操作excel的时候要调用worksheet的copy方法copy整个sheet的内容（内容比较复杂）。这个程序在后台执行时，当我用ctrl + c或者ctrl + v来进行文档的拷贝复制操作时，这个程序就会出错，应该是ctrl + v影响了该程序正在使用的clipboard的原因，我想问下有什么解决办法，让程序能够正常执行的同时，用户还能够正常得使用ctrl + c或者ctrl + v来干其他的事情互不影响呢？谢谢

...全文

366 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

redria 2009-03-24

打赏
举报

回复

我其实是想把一个printArea复制拷贝在另一个sheet里面好几次。
这种转存了Worksheet的方式好像就转不回来成Area了……

outou 2009-03-23

打赏
举报

回复

如果你的开发环境是VB.NET，可以参照下面的代码。http://www.bingning.net/VB/SOURCE/programing/index.html有很多关于EXCEL文件操作的东西（推荐）。



#Region "复制EXCEL的Sheet"

     ''' <summary>

     ''' 复制EXCEL的Sheet

     ''' </summary>

     ''' <returns></returns>

     ''' <remarks>复制最后的Sheet，并于最末尾追加</remarks>

     Public Function XlsSheetCopy() As XLS_RESULT

         Dim iSheetCnt As Integer



         Try

             iSheetCnt = oSheets.Count

             oSheetYobi1 = DirectCast(oSheets(iSheetCnt), Excel.Worksheet)

             oSheetYobi1.Copy(After:=oSheetYobi1)



             MRComObject(oSheetYobi1)



         Catch ex As Exception

             Me.XlsFileRelease()

             Return XLS_RESULT.XLS_NG

         Finally

             MRComObject(oSheetYobi1)

         End Try

     End Function

 #End Region

VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下

下午有一个场景，一鸣有11万条模拟数据要往SAP系统导入，ABAP程序中用到了函数：ZALSM_EXCEL_TO_INTERNAL_TABLE看网上介绍，这个函数是把数据放剪贴板中来实现导入，所以如果excel的数据量很大，需要的剪贴板内存也很大，WIN操作系统时常就会出现错误，导致数据无法导入。我们有11万条数据，可以让这个函数工作三次，依次取数据来导入：第一次取 1~50000条。第二次取 50001~100000条。第三次取 1000001~150000条。......

概述 Application对象是Microsoft Office Excel 2007对象模型中最高级别的对象，表示Excel程序自身。Application对象提供正在运行的程序的信息、应用于程序实例的选项以及实例中打开的当前对象。因为它是对象模型中最高的对象，Application对象也包含组成一个工作簿的很多部件，包括如工作簿、工作表集合、单元格以及这些对象所包含的数据等。...

VB如何获取Excel sheet中的记录数和总列数 Sheets("sheet1").usedrange.columns.count Sheets("sheet1").usedrange.rows.count Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet ...

Dim Application As Object Dim WorkBook As Object Dim Sheet As Object Set Application = CreateObject("Excel.Application") '建立EXCEL对象 Set xlBook = VBExcel.Workbooks.Open(filename) '打开文件, filen

16,554

社区成员

110,527

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章