ドメイン名やワークグループの取得／設定をVBAから

2012/01/13 14:12

このQ&Aのポイント

職場のPCで開発中のVBAアプリ（Excel2010）でブックを閉じると自動的にPCに保存すると同時に、NAS内の指定フォルダに保存するようにしたが、自宅で開発後ブックを閉じるとエラーが出てしまいます。システムのプロパティから設定できるドメイン名やワークグループの取得／設定をVBAから行う方法を教えてください。自分が所属するワークグループを判断して処理を振り分ける必要があります。
VBAを使用して、職場のPCで開発中のExcel2010アプリでブックを閉じると自動的にPCとNASに保存しますが、自宅で開発後にブックを閉じるとエラーが発生します。VBAからシステムのプロパティで設定できるドメイン名やワークグループの取得／設定方法を教えてください。ワークグループによって処理を分岐させる必要があります。
Excel2010を使用して職場のPCで開発中のVBAアプリでは、ブックを閉じると自動的にPCに保存するように設定し、同時にNAS内の指定フォルダにも保存するようにしています。しかし、自宅で開発後にブックを閉じるとエラーが発生します。システムのプロパティから取得できるドメイン名やワークグループをVBAで設定する方法を教えてください。自分自身が所属しているワークグループを判別して処理を分岐させる必要があります。

kichi4182
お礼率38% (52/136)

オフィス系ソフト
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2012/01/13 16:15 回答No.1

application.OrganizationNameを取得して仕分けてみるのが簡単かなと思います。＃もっと言うとあっさり手抜きして on error resume next activeworkbook.savecopyas "\\コンピュータ\フォルダ\book1.xls" activeworkbook.savecopyas "\\別の保存先\別のフォルダ\book1.xls" でも良いんじゃないかな？という気はします。ご質問の直接の回答としては http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200801/08010079.txt 辺りが参考になるかと思います。