VBA一张工作薄里的内容，复制到另一张工作薄中

Question

1、需要把客户工作薄中的信息，保存至数据库工作薄中，客户信息工作表，复制和粘贴区域都有显示，但是数据未到粘贴区域中

2、Sub 客户信息保存()

Dim wb As Workbook
Dim curSheet As String

'除去表头，所有行选中

Range("A2:F10000").Select

'复制当前页内容

Selection.Copy

curSheet = "客户信息"

'打开要保存内容的数据库工作簿，激活客户信息表

Set wb = Workbooks.Open _
(ThisWorkbook.Path & "\4.3 数据库.xlsx")

With wb
.Worksheets(curSheet).Range("A1:F10000").ClearContents '清空原内容
.Worksheets(curSheet).Activate
.ActiveSheet.Range("A1:F10000").Select
.ActiveSheet.Paste '（报错处）
.Save
.Close

End With

End Sub

3、运行结果及报错内容

运行时错误'1004'：
应用程序定义或对象定义错误

4、想把客户工作薄的信息能够以文本形式，存入到数据库工作薄的客户信息表中。

Answer 1

添加一个模块，弄一个函数

Sub XXX()
    Range("A2:F1000").Select
    Selection.Copy
    Workbooks.Open Filename:=ThisWorkbook.Path & "\4.3 数据库.xlsx"
    Range("A2").Select
    ActiveSheet.Paste
End Sub

调用这个函数：

Sub 客户信息保存()

    XXX

End Sub