| |
>マクロファイルのリストボックスにそれらを表示して、
>使用者に結合するファイルを選択してもらうつもりです。
いまいち不明点が残りますが。
>不明な点としましては下記の2点となります。
>・1.、2.などの数字を元に結合する順番を判定する方法
リストボックスから選択した順序は取り出せないと思います。
参照する.xlsが１フォルダにあるなら、
GetOpenFilenameメソッドでMultiSelectをTrueにすれば、
「開く」ダイアログが表示されて複数ファイルの指定が可能です。
この時は選択順で配列になって受け取れると思います。
>・inoue さんが挙げられた「2.１つのファイルへのコピー方法」
最初のファイルと２番目以降で処理が異なります。
・最初のファイルの場合は宛先なしでCopyします。
これで新規ブックが作られますから、
このブック(Object)を変数に確保し、シートカウントを「1」にします。
[例]
ActiveSheet.Copy
Set objWbk = ActiveWorkbook
cntSheet = 1
・２番目以降の.xlsは１番目で作った新規ブックにシート追加します。
[例]
ActiveSheet.Copy After:=objWbk.Worksheets(cntSheet)
cntSheet = cntSheet + 1
|
|
inoue
- 06/1/24(火) 18:47 -
