作者：乔山办公网日期：
返回目录：excel表格制作
主要知代码道为回：答
Sub test()
Set exapp = CreateObject("excel.Application")
exapp.Visible = True
Set xlsbook = exapp.Workbooks.Open("C:\ex.xls")
xlsbook.workSheets("sheet1").Rows("3:44").Copy
Selection.Paste
End Sub
上文件 ，明要求，定制产品。
Public Sub XieRu(a, R As Range)
'a：待写入数组百；R：写度入起始位置
Dim d As Object
Set d = New DataObject
d.SetText Join(a, vbLf)
d.PutInClipboard
R.Select
ActiveSheet.Paste
Set d = Nothing
End Sub
其中知d.PutInClipboard就是将数据输入到道剪贴板。该代码用到版DataObject，所以要引用权microsort forms 2.0
录制宏是给你一个百框架，然后你要会修改你录制的度宏才行。
Excel.Application.Sheets(3).Activate
Excel.Application.Sheets(3).Range("L1:L1").Select '选中当前激活回表的L1格子
sstr=Selection.value '将选中的区域进行复答制
WordObject.Application.Activate
WordObject.ActiveWindow.Selection.range=sstr