nokiさん、こんにちは。

＞はじめまして。
＞SAVEAS関数を使ってEXCELへDWのデータを落としているのですが（ヘッダ付き）、
＞その際にヘッダ名をModifyで日本語に変えています。
＞DWコントロールは一つなのですが、表示されるDWオブジェクトは複数あり
＞選択されたDWオブジェクトを表示しています。
＞現在、
＞dw_1.Modify(\"column_cd.dbName =\'コード\'\")
＞dw_1.Modify(\"column_name.dbName =\'名称\'\")
＞dw_1.Modify(\"column_kbn.dbName =\'区分\'\")
＞と一つずつ設定していっているのですが、各DWオブジェクトのカラム分設定するのは
＞とっても無駄な作業な気がします。

上記のように、固定でスクリプトに記述するのではなく
どのDWにも対応できるように記述してあればいいと思います
手順としては

１）DW内のカラム数の取得
２）以下の処理をカラム数分ループ
　　・n番目のカラム番号のタグ値を取得　dw_1.Describe(\"n番目のカラム名.Tag\")
　　・n番目のカラム名を、上記で取得した値に変更する

上記でできます。ただし、前準備として、カラムのタグに変更したいカラム名を
記述しておかなくてはなりません
ではでは