Question

excel 1004错误 open作用于workbooks失败，怎么回事？

Sub zongyeshu()
Dim f, ff As Object
Dim Arr()
Set fso = CreateObject("Scripting.FileSystemObject")
Set ff = fso.getfolder(Range("B1"))
ReDim Arr(0 To ff.Files.Count, 1 To 2)
Dim m, n, p As Integer
For Each f In ff.Files
If f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
Workbooks.Open Filename:=Range("B1") & f.Name
With ActiveWorkbook.ActiveSheet
.ResetAllPageBreaks
m = m + 1
p = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
Arr(m, 1) = f.Name
Arr(m, 2) = p
n = n + p
End With
ActiveWorkbook.Close False
End If
Next f
Set fso = Nothing
Arr(0, 1) = "共有 " & m & " 个文件"
Arr(0, 2) = "共需打印 " & n & " 页"
Range("B2").Resize(UBound(Arr, 1) + 1, 2) = Arr
End Sub





Answer 1

改成

Workbooks.Open Filename:=Range("B1") & "\" & f.Name

Answer 2

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