如何清空剪贴板,请教高手,急!!!!

若风1

  

运行时错误'-2147417848(80010108)'

方法'Paste'作用于对象'_worksheet'时失败





谁帮我看一下这个应该怎么处理,我估计是由于复制的太多没清空剪贴板导致的

方漠

估计不是这个问题.

试试以下语句:

[D8].Select   '选择要粘贴到的单元格

ActiveSheet.Paste  '粘贴

若风1

Private Sub 导入辅助帐_Click()

'关闭系统提示
Application.DisplayAlerts = False

'汇总表机构之间循环
name1 = ThisWorkbook.Name
pathfzz = ThisWorkbook.Path & "\基层报表"
For i = 7 To 45

branch = ThisWorkbook.Worksheets("模版").Cells(i, 1)
fzz = pathfzz & "\" & branch & ".xls"
If Dir(fzz) = "" Then
MsgBox ("基层报表" & branch & " 不存在")
Else
Workbooks.Open Filename:=fzz   '打开分支机构表
name2 = branch & ".xls"
Windows(name2).Activate                    '激活分支机构表窗口
Cells.Select                               '选择全表
    Selection.Copy                         '复制

Windows(name1).Activate                    '激活汇总表窗口
    Sheets(Trim(branch)).Select            '选择对应的分支机构表
    Range("A1").Select                     '选择第一个单元格
    ActiveSheet.Paste                      '整表粘贴
     Application.CutCopyMode = False       '清空剪贴板
  Range("A1").Select                       '去掉选择区域
Windows(name2).Activate                   '选择分支机构表窗口
   Range("A1").Select                      '去掉选择区域
    Application.CutCopyMode = False        '清空剪贴板
'  On Error Resume Next                    '忽略代码运行中的错误,并越过错误继续执行后面的语句
   
    Workbooks(name2).Close False          '关闭分支机构表
    Windows(name1).Activate
    ThisWorkbook.Worksheets("模版").Cells(i, 3) = "●"
End If

Next i
Sheets("模版").Select
'打开系统提示
Application.DisplayAlerts = True

End Sub



'我选择单元格了,但还是不行,请高手帮我看看哪写错了

方漠

不上传附件这样看代码很难确定问题出在哪,不过个人觉得粘贴完之后再回NAME2清空剪切板的动作有点多余,不保存直接关掉该文件就好了.

另类似的功能我有一个加载宏<<文件合并器>>,你可以试一下.

http://www.office-cn.net/forum.php?mod=viewthread&tid=49020&replyID=&skin=1

若风1

是多余,但总是报错所以我就把该加的不该加的都加上了,文件合并器我用了,效果不错,我做的这个模版有的机器好使有的机器不好使,我换一台机器就能用,真邪门了,不管怎样还是得谢谢高手的帮忙!!



真挚的谢意!!!!