如何利用VB控制EXCEL进行同一工作簿内工作表的复制,谢谢.

Question

Private Sub RemoveSheet(ByVal sName As String) 
    With m_oApp
        .DisplayAlerts = False
        .Sheets(sName).Delete
    End With
End FunctionPrivate Sub AddSheet(ByVal sTempSheet As String, _
                     ByVal sSheetName As String) _
                                      As Boolean
    With m_oApp
        .Sheets(sTempSheet).Select
        .Sheets(sTempSheet).Copy After:=.Sheets(1)
        .Worksheets(2).Name = sSheetName
        Set m_oSheet = .Worksheets(2)
    End With
End Function

Answer 1

教你个办法:1.你先在Excel里将记录宏打开,然后操作复制工作薄.然后停止宏记录
2.在VBA里面拷出代码
3.在VB里修改修改,应该就可以了...