0

我有一个子程序，我调用它来保存文件

Sub SaveToFile()

    maxr = Worksheets("List").Range("H1")

    Worksheets("List").Range("G1:AE" & maxr).Copy

升级到 2007 后失败的部分代码是：

    With Application.FileSearch
        .LookIn = "Q:\Planning Tools\Reports\"
        .Filename = "Plan_" & ThisSaveTime & ".xls"

我收到运行时错误“445”对象不支持此操作，然后代码继续如下：

        If .Execute > 0 Then 'Existing Workbook
            Application.Workbooks.Open ("Q:\Planning Tools\Reports\Plan_" & ThisSaveTime & ".xls")
            ActiveWorkbook.Worksheets.Add
            ActiveWorkbook.Sheets("Sheet1").Select
            ActiveWorkbook.Sheets("Sheet1").Name = ThisPlanSaveName
        Else 'No existing Workbook, so add one
            Workbooks.Add 1
            ActiveWorkbook.Sheets("Sheet1").Select
            ActiveWorkbook.Sheets("Sheet1").Name = ThisPlanSaveName
        End If
   End With

    ......

End Sub

我不确定哪个动作失败了，但谁能明白为什么？

谢谢

4

1 回答 1

3

Microsoft 已从Excel 2007 对象模型中删除FileSearch

有许多可能的替代品，例如Dir和使用FileSystemObject

试试这些链接：

于 2013-05-09T10:33:18.480 回答