注册 登录
明经CAD社区 返回首页

crazylsp的个人空间 http://www.mjtd.com/?369855 [收藏] [复制] [分享] [RSS]

日志

'测试VB粘贴剪贴板的文字到EXCEL

已有 1074 次阅读2013-12-9 17:19 |个人分类:文字|系统分类:开发| CAD-EXCELVBA, 程序


Sub 粘贴一个多行文字内容()

'Dim xlApp As Excel.Application
'Dim xlBook As Excel.WorkBook
'Dim xlSheet As Excel.Worksheet
'在程序中操作EXCEL表常用命令:
Set xlApp = CreateObject("Excel.Application")                                             '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("c:\新建 Microsoft Excel 工作表.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True                                                                                     '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("sheet1")                                                '设置活动工作表
xlSheet.Paste
'ActiveSheet.Paste
xlSheet.Range("A1").Select '粘贴   "Xn" 或是 (m,n).Select 
'xlSheet.PrintOut            '打印工作表
xlBook.Close (True)        '关闭工作簿
xlApp.Quit                '结束EXCEL对象
Set xlApp = Nothing  '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen)   '运行EXCEL启动宏
xlBook.RunAutoMacros (xlAutoClose)   '运行EXCEL关闭宏

End Sub

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 20:05 , Processed in 0.089721 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部