※ ChatGPTを利用し、要約された質問です（原文：htmlファイルに記載するvbscriptにて）
共有フォルダ上のExcelファイルが開けないエラーの解決方法
このQ&Aのポイント
Windows7(32bit)ＩＥ9.0を使用している状況で、HTMLファイル内のVBScriptで共有フォルダ上のExcelファイルを開こうとするとエラーメッセージが表示される問題が発生しています。この問題の解決方法としては、HTMLファイルを自分のHDDに保管するか、イントラネットのセキュリティレベルを下げることが考えられます。
VBScriptによるHTMLファイル内の「On Error Resume Next」の設定により、共有フォルダ上のExcelファイルの取得に失敗した場合でもエラーメッセージが表示されず、次の処理に進むことができます。
また、エラーメッセージには共有フォルダ上のExcelファイルの取得に失敗した旨が表示されます。この場合、指定先の共有フォルダにExcelファイルが存在しない可能性があるため、ファイルの存在を確認する必要があります。
社内LAN上のとある共有フォルダにて
vbscriptの記述を行ったHtmlファイルを保管し、
とあるexcelファイルを開くようにしようとしています。
そのHTMLファイルを自分のＨＤＤに保管した場合、そのexcelファイルは開くのですが、
社内LAN上の共有フォルダに保管した場合、このアンケート集計用 Excel ファイルを取得できません
とエラーメッセージが出てしまいます。
どのように記述を修正すればよいか、アドバイスいただけないでしょうか？
WINDOWS7(32bit)ＩＥ9.0です。
<html>
<head>
<title>アンケート入力用ファイル</title>
<script language="VBScript">
Sub kakikomi_onclick
On Error Resume Next
Set objwsh = CreateObject("WScript.Shell")
Set objxls = CreateObject("Excel.Application")
myFile = "\\○○○/△△△.xls"
Set objbok = objxls.Workbooks.Open(myFile)
With objbok.Worksheets(1)
If objbok is Nothing Then
MsgBox myFile & vbCrLf & "このアンケート集計用 Excel ファイルを取得できません．" & vbCrLf & "指定先にこのファイルが存在しない可能性があります．" & vbCrLf & vbCrLf & "HTML 形式の場合，イントラネットのセキュリティレベルを下げることで，" & vbcrlf & "この問題を解決できる可能性があります．", vbCritical
Set objxls = Nothing
Set objwsh = Nothing
Exit Sub
End If
以下略
お礼
回答ありがとうございました。参考になりました。結果として インターネットオプションのローカルイントラネットのレベルのカスタマイズで 「スクリプトを実行しても安全だとマークされていないactivexコントロールの初期化とスクリプトの実行」 を有効にしたら、解決しました。