[[20120316110959]]　『VBA エラー400が解除できない』（ささ）　ページの最後に飛ぶ

『VBA エラー400が解除できない』（ささ）

以下のマクロ（自分が作っていません）を実行すると、400　とだけ表示された

エラーがでて実行できませんでした。

EXCEL2003でマクロのセキュリティレベルは低、信頼できる発行元タブのプロジェクト

へのアクセスを信頼する　にチェックは入れています。（テンプレート信頼もチェック）

これとまったく同じつくりの別ブックでは正常動作しており、

どのブックもMODULE2にマクロが保存されています。

VBAは数値や値の変更することしか仕組みがわかりませんが、

原因がわかれば教えてください。お願いします。

Sub type2000kanrihyou1()
'
' type2000kanrihyou Macro
' AAA型管理表作成
'

    Selection.Copy

    Sheets("kanrihyou").Select

    Range("A17").Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

    Application.CutCopyMode = False

    Sheets("kanrihyou").Copy

    Cells.Select

    Selection.Copy

    Cells.Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

    Application.CutCopyMode = False

     Rows("14:85").Select
    Selection.Delete Shift:=xlUp

     Range("A1").Select

  ActiveWorkbook.SaveAs Filename:="\\10.109.66.000\AA\BBﾞCC\DD\EE\FF\" & AAA

& "." & Range("J2") & " " & Range("B5") & ".xls", FileFormat:= _

        xlNormal, Password:="", WriteResPassword:="",

ReadOnlyRecommended:=False _

        , CreateBackup:=False

    ActiveWindow.Close

    Selection.ClearContents

    Sheets("300F").Select

End Sub

Sub type2000kanrihyou2()
'
' type2000kanrihyou Macro

' AAA型管理表作成
'

    Selection.Copy

    Sheets("kanrihyou").Select

    Range("A17").Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=False

           ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Application.CutCopyMode = False

    Sheets("kanrihyou").Copy

    Cells.Select

    Selection.Copy

    Cells.Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=False

    Application.CutCopyMode = False

     Rows("14:85").Select

    Selection.Delete Shift:=xlUp

     Range("A1").Select

    ActiveWorkbook.SaveAs Filename:="\\10.109.66.000\AA\BB\CC\DD\EE\FF\" & AAA

& "." & Range("J2") & " " & Range("B5") & ".xls", FileFormat:= _

        xlNormal, Password:="", WriteResPassword:="",

ReadOnlyRecommended:=False _

        , CreateBackup:=False

    ActiveWindow.Close

    Selection.ClearContents

    Sheets("AAA").Select

End Sub

 まず、この種の質問をする場合は、どのコードがエラーになったか（エラーになったコードは黄色く光っている）
 を明記必要。
 じゃないと、回答者側で、コードを、とりあえずコピペして動かしてみて、あぁここだと、
 そうなればいいほうで、ブックやシートの状況が異なるので動かないとか、そういうことも多々あるので。

 追記）　それと、コードの中で AAA という変数を使っているけど、この変数には何も値をいれていないね。
    これは、何なのかな？
　　まぁ、このあたりは、「作った人に」聞くしかないかな？

 (ぶらっと)

 コードの検証はしていませんが、下記のようなことでしょうか。
[[20120204125142]]　『EXCEL立ち上げ時のエラー』（コロちゃん）
　
上記相談者[ころちゃん]さんの最後のコメントの
ヘルプ＞バージョン情報＞使用できないアイテム　を
チェックしてください。
（みやほりん）

 どちらのコードもエラーが出るのでしょうか？
 処理は何処まで済んでいますか？

 シートの保護などされていませんか？

 (HANA)

 >Sheets("kanrihyou").Copy
 多分シートのデータ量が多いからじゃないかと。
 BJ

お礼遅くなりました。

まだ解決できておりませんが、アドバイスを参考に再度試してみます。

質問させていただく段階が早かったかもしれません。。ありがとうございました。

ささ

コメント返信：

[ 一覧(最新更新順) ]

[[20120316110959]] 『VBA エラー400が解除できない』（ささ） ページの最後に飛ぶ

[[20120316110959]]　『VBA エラー400が解除できない』（ささ）　ページの最後に飛ぶ