VB中使用ActiveSheet.Paste语句 在OFFICE 2003使用正常,而在OFFICE XP环境下就出错,那位高手指点指点

Question

xlBook.Sheets("jxf").Select
        
        With xlsheet(IntSheetCount)
             .Cells.Select   '全选
             Selection.Copy  '复制
        End With
         
        
        xlBook.Sheets("sheet" & IntSheetCount - 1).Select'        Set adodoc = New ADODB.Recordset        'xlsheet(IntSheetCount - 1).Name = AdoSheetCount!xm
        With xlsheet(IntSheetCount - 1)
             .Activate
             '.Range("A1").Select
'             xlBook.Sheets(AdoSheetCount!xm).Select
            .Cells.Select
             ActiveSheet.Paste
 VB中使用ActiveSheet.Paste语句 在OFFICE 2003使用正常,而在OFFICE XP环境下就出错,那位高手指点指点

Answer 1

我也经常会遇到这种情况,粘贴的时候一般不能进行工作表的密码操作,否则粘贴板的数据会没有的,就会造成出错。