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' object does not support this action が表示されます。コードは次のように続きます。

        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 に答える