|
こんばんわ。
初めて投稿します。初歩的な質問で申し訳ありませんがご教授願います。
表題の件の通り、以下を行いたい考えてます。
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回ほど繰り返す作業になります。
上記記載の内容を繋げて処理するやり方を、お手数ですが教えてください。
宜しくお願い致します。
|
|