Question

excel中的宏，运行提示“运行时错误"1004"，方法open作用于对象workbooks时失败”，求高手看看哪里错了

Sub 移动2() Application.ScreenUpdating = False '关闭屏幕刷新 Dim m, n, i, j As Integer j = 4 Workbooks("合理化建议清单.xlsm").Sheets("BCAN01").Select m = Cells(Rows.Count, 6).End(xlUp).Row If m > 3 Then Range("A4:M" & m).Select Selection.ClearContents End If Dim K, Q As Workbook '定义工作簿变量K Set K = Workbooks.Open("\\svr01345\wcm\WCM\WCM-ZZ\SBT&MDT会议\SBT&MDT新电子表单\BCAN01线SBT电子表单.xlsm") 'K表示 打开数据文 件 n = K.Sheets("任务清单").Cells(Rows.Count, 6).End(xlUp).Row For i = 4 To n If K.Sheets("任务清单").Range("S" & i).Value = Workbooks("合理化建议清单.xlsm").Sheets("BCAN01").Range("B2").Value Then K.Sheets("任务清单").Activate K.Sheets("任务清单").Range(Cells(i, 1), Cells(i, 31)).Select Selection.Copy Workbooks("合理化建议清单.xlsm").Sheets("BCAN01").Activate Workbooks("合理化建议清单.xlsm").Sheets("BCAN01").Cells(j, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False j = j + 1 End If Next i K.Close MsgBox "已更新" Application.ScreenUpdating = True '开启屏幕刷新,汇总数据直接显示 End Sub

Answer 1

信任中心设置，宏设置，信任对VBA工程对象模型的访问打钩就OK啦

Answer 2

猜测是文件位置访问不到，把
"\\svr01345\wcm\WCM\WCM-ZZ\SBT&MDT会议\SBT&MDT新电子表单\BCAN01线SBT电子表单.xlsm"
换成本地文件的URL试试会不会报错

Answer 3

检查文件名和路径是否正确

Answer 4

下载安装，office2007sp3-kb2526086-fullfile-zh-cn.exe补顶包