programaticallyモジュールの追加をxls2003を使用vbscript

Question

最初の部分は現在[ 私は、以下のよるによるハ;部品の追加/削除のモジュールで実行する場合VBA したがっていたとのダイアログ"でこのワークブックにリンクされている他のデータソース'もokで掛 いた、ちょっと変わった設定の第二引数は0で試みた2がかかり (2argはUpdateLinksしていき こちらの ) ]

dim objExcel
dim objWorkbook
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(  "H:\M\X\C.xls", 0 , , ,"PASSWORD!" )

Const modpath  = "H:\M\V\"
Const modtest  = "TEST.cls"
Const modname  = "TEST"

On Error Resume Next

Dim vbcomp
Set vbcomp = ActiveWorkbook.VBProject.VBComponents(modname)
objWorkbook.VBProject.VBComponents.Remove vbcomp
objWorkbook.VBProject.VBComponents.Import modpath & modtest

objWorkbook.Save
objWorkbool.Close
set vbcomp = nothing
set objworkbook = nothing
set objExcel = nothing

編集-再14/04/2009 いもの"ツール-マクロ-セキュリティvbprojectアクセス

スクリプトに今を終了しようとすると、xlsた場合、変更、メッセージを取得します通知のシートをロック"アカウント用スクリプト";オープン"読み取りのみ'/通知

なぜな放出制御を正しく**?**

Answer 1

編集したスクリプトです。

この問題が起こった供給のパスワードでのワークブックレベルにはないので、VBAプロジェクトです。

迅速に検索をウェブからないことにかく(sendkeys()関数が使用され等）にその後に手動で削除のパスワードのプロジェクトの問題を解決

Answer 2

を第一に考え:あなたのワークブックでの参照が含まれてい内VBA)の"マイクロソフト社の"Visual Basic"の用途拡張性"のですか？る必要がありまでお話しできるようになったときにVBProjectオブジェクトです。実は、ほとんどの参照の場合コード、VBA.

第たちはこのように思う。ActiveWorkbookはどのように変動するというの外部で定義された実際のワークブック.試しに交換でobjWorkbookオブジェクトです。

Answer 3

こちらの第三思っている。たい設定、アプリケーションのDisplayAlerts性をFALSEにする前に、モジュール?