開こうとするブックが、他のデータソースへリンクされているとき、
一度、リンクを更新しないでをブック開き、
リンクの設定を「メッセージを表示しないでリンクの自動更新も行わない」状態で
ブックを保存するプログラムを作りたいのですが、どなたかご教授お願いします。
エクセルVBAでは、
1.リンクの更新を行わないでブックを開くときは、UpdateLinks:=0
2.メッセージを表示しないで自動更新も行わない設定は
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
を使用してますが、HSPでどの様に行ったら良いか分かりません。
いろいろ参照しまして、リンクされていないブックを「開く」事と「保存」する事は、
出来る様になりました。リンクされているブックを開こうとすると、更新するか、しないの
メッセージが表示してしまいます。
xlsname = "book1.xls"
xlspass = "D:\\TEST\\"
xlsfname = xlspass+xlsname
newcom xlApp, "Excel.Application"
xlApp("Visible") = 0 ; Excelウィンドウは非表示
xlApp("DisplayAlerts") = 0 ; 警告メッセージを表示させない
xlBooks = xlApp("Workbooks") ; Workbooks コレクション取得
xlBooks->"Open" xlsfname ; 指定ファイルを開く
xlBook = xlBooks("Item",xlsname) ; book取得
xlSheet = xlBook("Worksheets","sheet1") ; Sheet取得
xlBook->"save" : delcom xlBook
xlBooks->"Close" : delcom xlBooks
xlApp->"Quit" : delcom xlApp
dialog"終了しました。"
end