首页 相关文章 快速导出数据到Excel(一):利用剪贴板

快速导出数据到Excel(一):利用剪贴板

将数据导出到Excel的方法有多种,速度有快慢之分,我用过三种方法,速度都比较快,下面的一种是通过剪贴板进行,不过在个别W2K以上的系统,由于字符集编码不同,中文内容导出到Excel后可能变成乱码。

  //显示进度条面板
  procedure ShowProgress(Min, Max, Position: integer);
  begin
   pnlProgress.Left := (ClientWidth - pnlProgress.Width) div 2;
   ProgressBar1.Min := Min;
   ProgressBar1.Max := Max;
   ProgressBar1.Position := Position;
   pnlProgress.Visible := true;
   pnlProgress.Update;
  end;

  [ 查看全文 ]

2016-02-19 标签:
  • 标签:autocad教程
        在Auto CAD 中可利用剪贴板、OLE等方式来与 其他 Windows应用 程序进行交互,如电子表格、文字处理文档和动画图像等程序。此外,AutoCAD还可以通过图形转换来使用或创建其他格式的图形。     剪贴板是Windows系统中各应用程序之间进行数据交换的主要方式之一,AutoCAD中提供了多个命令来使用剪贴板。 14.1.1 COPYCLIP命令     该...[ 查看全文 ]
  • 标签:Delphi
      应用程序间的数据交换是象 Windows 这样的多任务环境的重要特性。作为一种基于 Windows 的开发工具, Delphi支持如下四种数据交换方式:剪贴板、动态数据交换 ( DDE) 、对象联接与嵌入 (OLE) 以及动态联接库 (DLLs) 。这中间前三种方式最为常用, OLE 功能最为强大, DDE次之。而剪贴板使用最为方便。在本章,我们只讨论剪贴板和动态数据交换。利用 OLE 实现数据交换见下一章,利用动态联接库 (DL...[ 查看全文 ]
  • 将数据导出到Excel的方法有多种,速度有快慢之分,我用过三种方法,速度都比较快,下面的一种利用Excel内置的功能,是三种之中最快的。其中最主要的是下面两句:     xlQuery := xlSheet.QueryTables.Add(ADOQExport.Recordset ,xlSheet.Range['A3']);     xlQuery.Refresh; 不过我这里稍为复杂一点,要通过某种条件完成分类汇总。 funct...[ 查看全文 ]
  • 无论是在我们办公的时候,还是学习的时候,都离不开一个小小的剪贴板,可是这材质单一,颜色单调的剪贴板,天天拿在手里,时间长了都开始出现视疲劳了,怎么看怎么不顺眼,而且还经常会拿错。其实只要多去想一想,再动一点点手把它改造一下,既然可以将钢丝网办公用品美化,那么,剪贴板也可以有与众不同的一面。今天就让63diy将单调的剪贴板变成女孩子们都喜欢亮晶晶的样子吧,让别人一眼看上去就知道...[ 查看全文 ]
  • 在Form1的.h的private加上: void __fastcall ClipboardChanged(TMessage& Msg); 在Form1的.h的public加上: BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,ClipboardChanged) END_MESSAGE_MAP(TForm) 在Form1的.cpp内加上: void __fastcall TForm1::ClipboardChanged(TMessage& Msg) { POINT MousePos; GetCursorPos(&Mous...[ 查看全文 ]
  • 应用程序间的数据交换是象Windows 这样的多任务环境的重要特性。作为一种基于Windows的开发工具,Delphi支持如下四种数据交换方式:剪贴板、动态数据交换 ( DDE)、对象联接与嵌入(OLE)以及动态联接库(DLLs)。这中间前三种方式最为常用,OLE功能最为强大,DDE次之。而剪贴板使用最为方便。在本章,我们只讨论剪贴板和动态数据交换。利用OLE实现数据交换见下一章,利用动态联接库(DLLs)进行数据交换将在第...[ 查看全文 ]
  • 标签:Delphi
      7.3.5 控制服务器应用程序的执行         客户程序控制服务器应用程序的一个方面是:必要的时候客户程序可以启动服务器程序,并装载会话主题。         而客户程序控制服务器应用程序更重要的一点是向服务器发送服务器承认的宏命令,来完成对服务器应用程序的各种操作。服务器到底支持哪些宏命令,可参阅服务器...[ 查看全文 ]
  • 要使用这一技巧,你就需要声明用于剪切、复制和粘贴的常数: PrivateConstWM_COPY=&H301 PrivateConstWM_CUT=&H300 PrivateConstWM_PASTE=&H302 然后,声明对SendMessageAPI的调用: PrivateDeclareFunctionSendMessageLib"user32"_ Alias"SendMessageA"(ByValhWndAsLong,_ ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong HWnd自变...[ 查看全文 ]
  • VB.NET中的Clipboard对象(在System.Windows.Forms命名空间里)允许你在一个应用程序或几个应用程序之间存储和检索数据。使用Clipboard对象非常简单,就像下面这样: 注释:拷贝数据 Clipboard.SetDataObject(TextBox1.Text) 注释:粘贴数据 TextBox2.Text=Clipboard.GetDataObject().GetData(DataFormats.Text,_False) 这段代码对于简单的文本数据非常有效;然而,...[ 查看全文 ]
  • 1.怎样操作剪贴板,从而实现复制、剪切与粘贴?同时判断剪贴板里边的数据是否是文本? if (!IsClipboardFormatAvailable(CF_TEXT))  return;  if (!OpenClipboard(hwndMain))  return;  hglb = GetClipboardData(CF_TEXT);  if (hglb != NULL)  {  lptstr = GlobalLock(hglb);  if (lptstr != ...[ 查看全文 ]
  • VB本身不允许你将一个Form、UserControl或PictureBox上的完整图片复制到剪贴板。如果你使用Clipboard.SetData,将只复制被载入这个对象的位图。通过使用API方法,你可以超越这个限制,保证全部内容都被复制,包括你刚刚画上的任何图形。 开始一个新项目,在窗体上放置一个Command和一个PictureBox。将PictureBox的Autoredraw属性设为1。然后添加一个标准模块,把以下代码复制进去。 Private T...[ 查看全文 ]
  • 标签:Web开发
    html head meta http-equiv="Content-Type" content="text/html; charset=gb2312" title交时自动复制到剪贴板/title /head script language="JavaScript" /*功能:提交时自动复制到剪贴板 */ function copyText(obj) { ie = (document.all)? true:false if (ie){ var rng = document.body.createTextRange(); rng.moveToE...[ 查看全文 ]
  • 标签:Web开发
    这是一个给新手学习代码的帖子,包含以下内容: 如何使用UBB代码,如何用js与剪贴板交互,如何使用textRange对象,如何使用自定义的快捷键操作,如何自动随窗口大小调整页面内容尺寸,正则表达式的使用等等 请仔细阅读代码,有问题请提问,目前代码开发完成度80%,IE only Blue Idea UBB Code Edit * { margin:0px; padding:0px; } html, body { background-color:buttonface; width:100...[ 查看全文 ]
  • ----------VB.NET 导出数据到EXCEL中------------- 在引用当中引入Microsoft Excel 11.0 Object Library Dim oExcel As New Excel.ApplicationDim obook As Excel.WorkbookDim oSheet As Excel.WorksheetDim DataArray(2000, 2000) As Integerobook = oExcel.Workbooks.Open("c:\1.xls")oSheet = obook.Worksheets(1)oSheet.Name = "ok"Dim myAdapter As New OleDb.OleDb...[ 查看全文 ]
  • 标签:电脑入门
    在Word2003文档中,用户可以使用鼠标拖动被选中文本的方法移动本文。但是如果需要移动文本较多或移动的位置较远,则可以借助剪切和粘贴命令的组合操作完成文本的移动,操作步骤如下所述: 第1步,打开Word2003文档窗口,选中需要移动的文本内容。然后在菜单栏依次单击编辑→剪切菜单命令,或者在常用工具栏单击剪切按钮。也可以在选中文本的同时按下Ctrl + X组合键,如图1所示。 图1 选择剪切命令 ...[ 查看全文 ]
  • 标签:Web开发
    昨天在也一个php程序的时候,要实现“复制到剪贴板”的功能,由于安全问题,浏览器的限制越来越严,实现的方法也越来越有限,这个简单的功能要想实现兼容不同的浏览器还真不容易,根据网上的一些资料结合我测试的经验,相关解决方案如下: 方案一:利用“window.clipboardData” 代码示例: if (window.clipboardData) { window.clipboardData.clearData(); window.clipboardDa...[ 查看全文 ]
  • 标签:Web开发
    请另存代码测试 复制 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行][ 查看全文 ]
  • 标签:ASP
      /* 豆腐制作 都是精品 http://www.asp888.net 豆腐技术站 如转载 请保留完整版权信息 */ 在做网络追捕的时候,经常遇到这样的问题,是否需要将IP 地址重新输入一次的问题,所以在这里我考虑如何使用剪贴板的问题 幸好在IE的HTML扩展DOM中有这样的功能,我公享出来,大家一同分享。 <HTML <HEAD <SCRIPT LANGUAGE="JScript" function doufucopy() { textRange = test.createTextRan...[ 查看全文 ]
  • 在网上的导出为EXCEL文档的方法大概是这样的 DimiAsInteger,jAsInteger DimmyexcelAsNewExcel.Application DimmybookAsNewExcel.Workbook DimmysheetAsNewExcel.Worksheet Setmybook=myexcel.Workbooks.Add'添加一个新的BOOK Setmysheet=mybook.Worksheets.Add'添加一个新的SHEET 'Fori=1Tomyres.RecordCount 'Forj=1Tomyres.Fields.Count 'm...[ 查看全文 ]
  • 标签:Web开发
    代码如下,就不多说废话了,可以兼容基本上所有的主流浏览器(IE,FF),很多地方可以用到的: copyToClipboard = function(txt) { if(window.clipboardData) {    window.clipboardData.clearData();    window.clipboardData.setData(”Text”, txt); } else if(navigator.userAgent.indexOf(”Opera”) != -1) { wind...[ 查看全文 ]
手机页面 收藏网站 回到头部