Excel VBA質問箱 IV

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

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


47688 / 76732 ←次へ | 前へ→

【33994】Re:複数ファイルのSheetの内容を新しいファイルの1つのSheetに結合したい
発言  inoue E-MAILWEB  - 06/1/24(火) 18:47 -

引用なし
パスワード
   >マクロファイルのリストボックスにそれらを表示して、
>使用者に結合するファイルを選択してもらうつもりです。
いまいち不明点が残りますが。

>不明な点としましては下記の2点となります。
>・1.、2.などの数字を元に結合する順番を判定する方法
リストボックスから選択した順序は取り出せないと思います。
参照する.xlsが1フォルダにあるなら、
GetOpenFilenameメソッドでMultiSelectをTrueにすれば、
「開く」ダイアログが表示されて複数ファイルの指定が可能です。
この時は選択順で配列になって受け取れると思います。

>・inoue さんが挙げられた「2.1つのファイルへのコピー方法」
最初のファイルと2番目以降で処理が異なります。
・最初のファイルの場合は宛先なしでCopyします。
 これで新規ブックが作られますから、
 このブック(Object)を変数に確保し、シートカウントを「1」にします。
 [例]
 ActiveSheet.Copy
 Set objWbk = ActiveWorkbook
 cntSheet = 1

・2番目以降の.xlsは1番目で作った新規ブックにシート追加します。
 [例]
 ActiveSheet.Copy After:=objWbk.Worksheets(cntSheet)
 cntSheet = cntSheet + 1
0 hits

【33978】複数ファイルのSheetの内容を新しいファイルの1つのSheetに結合したい 初級++ 06/1/24(火) 15:28 質問
【33982】Re:複数ファイルのSheetの内容を新しいファ... inoue 06/1/24(火) 15:54 発言
【33986】Re:複数ファイルのSheetの内容を新しいファ... 初級++ 06/1/24(火) 16:29 発言
【33994】Re:複数ファイルのSheetの内容を新しいファ... inoue 06/1/24(火) 18:47 発言
【34005】Re:複数ファイルのSheetの内容を新しいファ... 初級++ 06/1/24(火) 21:10 お礼
【34031】Re:複数ファイルのSheetの内容を新しいファ... 初級++ 06/1/25(水) 11:55 質問
【34037】Re:複数ファイルのSheetの内容を新しいファ... inoue 06/1/25(水) 14:10 発言
【34058】Re:複数ファイルのSheetの内容を新しいファ... 初級++ 06/1/25(水) 17:52 お礼

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