一个VB和Excel相关的超难问题

Question

是这样的：
  通过VB打开的Excel文件，类似如下的方法;
dim xexl as Excel.application
set xexl=createobject("Excel.application")
xexl.visible=true
xexl.workbooks.open "测试文件.xls"'该文件只有一个sheet
'
在打开的"测试文件.xls"中我选中整个sheet，然后复制，然后在另外打开的一个Excel文件（这个Excel文件是通过鼠标在我的电脑中打开的）的某个sheet中实行全部粘贴。问题出在这里，当粘贴的时候出现提示框："剪贴板中的内容与所选择的区域格式不符，是否还要粘贴"(大意如此)。
   但是如果两个Excel文件都是通过点击鼠标打开的，则复制粘贴完全没有问题。非常奇怪。
   如此问题，可有解决方案？盼赐教

Answer 1

在VB调用EXCEL中,复制和粘贴需要使用下面的格式,可以试试看.
xlsheet.Range(xlsheet.Cells(20, 1), xlsheet.Cells(21, 14)).Copy
xlsheet.Range(xlsheet.Cells(i, 1), xlsheet.Cells(i + 1, 14)).PasteSpecial xlPasteAll

Answer 2

注：复制和粘贴的操作全是通过鼠标手动完成的，这里的VB只是实行了文件的打开。
另：刚刚发现：如果“测试文件.xls”先打开，然后再打开另一个手动打开的文件，则复制粘贴正
    常，反之则不行。

Answer 3

xexl.DisplayAlerts = False
不让他显示提示，默认按yes