[[20130219110724]]　『実行時エラー 32809　が出ます。』（たかやま）　ページの最後に飛ぶ

『実行時エラー 32809　が出ます。』（たかやま）
正常動作していたExcelVBAのプログラムが、ある日を境に実行時エラー32809が出るようになりました。

たとえば、ワークシートのオープン時、下記のコードは5行目(.Select)でエラーになります。
Private Sub Workbook_Open()

    Dim w As Worksheet
    'Sheet1 の A1 セルを画面の左上に表示
    With Worksheets("配車一覧")
        .Select
        .Range("a1").Activate
    End With
End Sub

またシートを移るだけの下記のコードでもエラーになります。
Sub ボタン22_Click()

    Sheets("全車一覧").Select
End Sub

その日、LibreOfficeで編集したものがいることはわかっていますが、コードが改変されているように思えないのにこんなエラーが出るのは、環境上大事な部分が変更されているのでしょうか。

WindowsXP,Excel2000を使用しています。

 「配車一覧」というシートと、「全車一覧」というシートは存在していますか？
　
なお、質問からは外れますが、
 > 'Sheet1 の A1 セルを画面の左上に表示
というのは、
 Application.Goto Sheets("Sheet1").Range("A1"), True
と書くと簡単です。
　
(ROUGE)

 >「配車一覧」というシートと、「全車一覧」というシートは存在していますか？

 少なくとも　With Worksheets("配車一覧")　でエラーになっていないのだから、配車一覧はあるよね。

 で、【実行時エラー32809】で検索してみると結構、いろいろな事象がヒットするけど
 ブックやシートが壊れているというケースが少なくなかったね。

 (ぶらっと)

 あら、そうですね。それに、32809ではなくて9になるはずですね。失礼しました。
シートが壊れているのであれば、新規シートを挿入して、そのシートに配車一覧や全車一覧のデータをコピペして、
配車一覧と全車一覧のシートを削除、データを移したシートの名前を配車一覧、全車一覧に夫々変更すると
動作するようになるのかな？
　
(ROUGE)

コメント返信：

[ 一覧(最新更新順) ]

[[20130219110724]] 『実行時エラー 32809 が出ます。』（たかやま） ページの最後に飛ぶ

[[20130219110724]]　『実行時エラー 32809　が出ます。』（たかやま）　ページの最後に飛ぶ