Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


32004 / 76734 ←次へ | 前へ→

【49969】Re:他ブックの見出しをコピー&ペースト
発言  take  - 07/7/1(日) 12:31 -

引用なし
パスワード
   >ちなみに、最終的にどのようにしたかをご紹介いただけると過去ログとして、
>残り、後々掲示板を見ている方々に役に立つこともありますので、差し支え
>なければ、教えていただければと思います。

失礼致しました。
マクロ内容は以下のようになっております。

しかし、今試したところ
既に【Book1.xls】が開いた状態で、
マクロを実行するとでファイルが2重で開くことになってしまいます。

『ファイルが既にOPENされていれば【Book1.xls】をOPENする必要はない』
というような制御は可能でしょうか?
これはマクロの記録ではできない部分のようで…。

*********************************************************
Sub Macro1()
  ChDir "C:\DOCUMENTS AND SETTINGS\XXXX\デスクトップ"
  Workbooks.Open Filename:= _
    "C:\DOCUMENTS AND SETTINGS\XXXX\デスクトップ\Book1.xls"
  Range("A1:E1").Select
  Selection.Copy
  Windows("1Book1.xls").Activate
  ActiveSheet.Paste
End Sub
*********************************************************

8 hits

【49954】他ブックの見出しをコピー&ペースト take 07/6/30(土) 17:22 質問
【49955】Re:他ブックの見出しをコピー&ペースト かみちゃん 07/6/30(土) 17:27 発言
【49956】Re:他ブックの見出しをコピー&ペースト take 07/6/30(土) 17:46 回答
【49957】Re:他ブックの見出しをコピー&ペースト かみちゃん 07/6/30(土) 17:54 発言
【49958】Re:他ブックの見出しをコピー&ペースト take 07/6/30(土) 18:09 発言
【49959】Re:他ブックの見出しをコピー&ペースト かみちゃん 07/6/30(土) 18:42 発言
【49962】Re:他ブックの見出しをコピー&ペースト take 07/6/30(土) 23:34 発言
【49963】Re:他ブックの見出しをコピー&ペースト かみちゃん 07/6/30(土) 23:37 発言
【49964】Re:他ブックの見出しをコピー&ペースト take 07/7/1(日) 1:00 発言
【49965】Re:他ブックの見出しをコピー&ペースト りん 07/7/1(日) 7:56 発言
【49966】Re:他ブックの見出しをコピー&ペースト かみちゃん 07/7/1(日) 9:07 発言
【49967】Re:他ブックの見出しをコピー&ペースト take 07/7/1(日) 11:52 お礼
【49968】Re:他ブックの見出しをコピー&ペースト かみちゃん 07/7/1(日) 12:04 発言
【49969】Re:他ブックの見出しをコピー&ペースト take 07/7/1(日) 12:31 発言
【49973】Re:他ブックの見出しをコピー&ペースト かみちゃん 07/7/1(日) 15:57 発言
【49977】Re:他ブックの見出しをコピー&ペースト take 07/7/1(日) 22:28 お礼

32004 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free