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