Excel VBA質問箱 IV

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

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


50125 / 76738 ←次へ | 前へ→

【31509】集計シートに別のExcelファイルからコピー貼り付けについて
質問  れい  - 05/11/24(木) 1:12 -

引用なし
パスワード
   こんばんわ。
初めて投稿します。初歩的な質問で申し訳ありませんがご教授願います。

表題の件の通り、以下を行いたい考えてます。

1.集計シートを開いた状態で別のExcelファイルを開く(Excelファイルを選択式にしたい)

  'フォルダ選択ダイアログの表示
  Set myObj = CreateObject("Shell.Application"). _
  BrowseForFolder(0, "フォルダを選択してください", 0)
  If myObj Is Nothing Then Exit Sub
 
  myDir = myObj.Items.Item.Path
  If Right(myDir, 1) <> "\" Then myDir = myDir & "\"

これでフォルダーを選択できるのは分かりました。
選択したフォルダーから任意のExcelファイルを開きたいのです;;

2.1.にて開いたExcelファイルの指定のセルをコピー

  '指定のセルをコピー
  Range("B18:D28").Select
  Selection.Copy

これでよろしいでしょうか??

3.集計シートに2.のコピーしたセルを指定のセルに貼り付けたい。

  Windows("集計シート.xls").Activate
  Range("B4").Select
  ActiveSheet.Paste

このまま繋げて問題ないでしょうか??

4.1.のファイルの別シートから指定セルをコピーし、集計シートに貼り付ける
 ※2.〜3.を3回ほど繰り返す作業になります。

上記記載の内容を繋げて処理するやり方を、お手数ですが教えてください。

宜しくお願い致します。
0 hits

【31509】集計シートに別のExcelファイルからコピー貼り付けについて れい 05/11/24(木) 1:12 質問
【31510】Re:集計シートに別のExcelファイルからコピ... かみちゃん 05/11/24(木) 7:31 回答
【31516】Re:集計シートに別のExcelファイルからコピ... Jaka 05/11/24(木) 12:47 回答
【31519】Re:集計シートに別のExcelファイルからコピ... Kein 05/11/24(木) 13:30 回答
【31541】Re:集計シートに別のExcelファイルからコピ... れい 05/11/24(木) 19:15 お礼

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