初めまして、質問させてください。 表題のとおりエクセル2007のSheets.Copyメソッドの動きがおかしいのです。 Excel2007の不具合と思われる現象があります。 OS WindowsXP sp2 Excel2007 新規ブックにコマンドボタンを一つ設け、以下のようなサンプルコードを実行するとVisible=falseにしたはずのBookが「Copyコマンド」 発行直後に表示されてしまう。 Private Sub cmdCopy_Click() Excel.Application.Visible = False Call Sheets.Copy(Before:=Sheets(1)) MsgBox "コピー完了" Excel.Application.Visible = True End Sub ※2007以外のバージョンであれば「コピー完了」迄はBookは隠れたままである。 回避策有りますでしょうか？ 同様の処理をAccessからExcelを遠隔操作で処理するとBookが表示された瞬間に、 何らかのきっかけでフォーカスが与えられると処理が止まってしまい、困っています。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2007 ++++++++++++++++++++

そのコードで、私の方では表示されませんでした。 何かが悪さしている可能性があります。 ・他のマクロ ・アドイン ・セキュリティソフト

素早いご回答戴き、ありがとうございました。 >そのコードで、私の方では表示されませんでした。 そうなんですか！？ ちょっと驚きです。 新規に購入したDellのパソコン7台は全て再現可能なので、てっきりExcel2007の不具合だとばかり思った物です。 少なくとも 新規ブックで作成しても現象が出るので「他のマクロ」はなさそうです。 新規インストールなので、アドインも無さそうなので 残るはウイルスバスターかな？ そういった当たりも調べてみます。 ありがとうございました。

それは Excel っぽい気がしますね。(^^;) アドイン無効にするには、Ctrl キーを押しながら Excel を起動します。 私の方の環境は以下です。 Excel 2007(12.0.4518.1014) Windows XP(5.1 Build 2600. xpsp.050622-1524 :Service Pack 2)

度々ありがとうございます。 Ctrlを押しながらのエクセル起動（セーフモード）して例のファイルを開き、実行してみましたが、 やはり「コピー完了」が表示される時には、既にBookが可視状態になってしまいます。 ちなみに、当方の各バージョンは以下の通りです。「千尋」さんよりも若干新しいですね。 Excel2007 (12.0.6524.5003) SP2 MSO (12.0.6425.1000) XP pro Version 5.1 (Build 2600.xpsp_sp3_gdr.091208-2036 : sp3) 社内の別支店にもう少し古いXP+2007のパソコンが有るので、そこで同様の検証をしてみようと思います。

解決報告です。 他のパソコンを使い、試行錯誤してい間に次のような事が判明しました。 Office2003がインストールされているPCにOffice2007をインストールした場合には現象が出ない事が判明しました。 なので、 ・一旦2007をアンインストール ・その後、2003をインストール、 ・さらに、2003を削除しての ・最後に2007のインストール と言うような手順で今回の問題は解決しました。 具体的な原因がわからないままの解決となりましたが、どうやらプレインストール状態のOfficeがダメだった可能性があります。 とにかく、私なりの解決になりましたのでここへ報告いたします。 そして皆さんありがとうございました。

解決です。チェックを入れ忘れました。

ttp://oshiete1.goo.ne.jp/qa5808716.html どうも伝わってなかったようです。 WindowStateプロパティじゃなくて >.Left = -.Width がポイントだったんですけど。 タスクバーでのマウス操作の懸念があるなら Visible = False と合わせれば良いような気がしますが。 Sub Macro1() Dim i As Long Dim L As Double With Application .Visible = False i = .WindowState .WindowState = xlNormal L = .Left .Left = -.Width Sheets(1).Copy Before:=Sheets(1) .Visible = False MsgBox "コピー完了" .Left = L .WindowState = i .Visible = True End With End Sub >Office2003がインストールされているPCにOffice2007をインストールした場合には現象が出ない事が判明しました。 私の2003｜2007共存環境では現象が出ますが、 2003をアンインストールしての2007単体使用が解消条件なんですかね。 #いや、特にお返事が要るわけではないのでスルーして頂いて構いませんけど。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

わざわざこちらまで追ってきてくださってありがとうございました。 >>.Left = -.Width >がポイントだったんですけど。 ようやく解りました。こんな方法もありましたか、気が付きませんでした。 >2003をアンインストールしての2007単体使用が解消条件なんですかね。 私の言葉足らずですね。 2007の再インストール時には「旧製品を削除します」を選択して2003は削除しています。なので実行時は2007単体の使用です。 それでも旧オフィスのdllやらが残るのでしょうかね？ なんらかの不具合っぽいですが、MSでは確認出来ません。 ありがとうございました。