Microsoft.Jet.OLEDB.4.0 を使用したいので、IE11 を 32 ビットで動作させる事が必要です。Access も Excel も古い拡張子を使用していますが、基本的に昔の処理ですし、Microsoft に邪魔されたく無い( 何勝手にするか解らない )ので、そうしています。 エクスポート用の SQL を使用する為に、接続は Access で行って、Access 内で可能な参照方法(修飾のようなもの)を用いて、SQLServer と Excel に動的にアクセスしています。 IE11 を 32 ビットで動作させる 通常、IE11 は 32ビットで動作しているはずですが、確認の為にF12 キーで開発者ツールを表示させて、コンソールタブに移動します。次に、navigator.userAgent と入力して表示された文字列の中に WOW64 の文字列があれば、32ビットで動作しています。 もし無ければ、64ビットで動作しているので、『インターネットオプション』の『詳細設定』のセキュリティで、【拡張保護モードで 64 ビット プロセッサを有効にする】と【拡張保護モードを有効にする】のチェックを外します。 ※ 拡張保護モードに関する詳細は、Microsoft のこちら( E10 & IE11 : 拡張保護モードの実態 )から参照できます。 実行する URL を信頼するサイトに登録レベルのカスタマイズで、『スクリプトを実行しても安全だとマークされていないActiveX コントロール』を『有効』 にして、『ドメイン間のデータソースのアクセス』も有効にします
Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2] "1201"=dword:00000000 "1406"=dword:00000000
※ 関連する Microsoft ドキュメント(上級ユーザー向けの Internet Explorer セキュリティ ゾーン関連のレジストリ エントリ) ※ IEのセキュリティゾーン関連のレジストリエントリ IE11 を IE10 として実行してエクスポート
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="X-UA-Compatible" content="IE=10">
<meta http-equiv="Content-type" content="text/html; charset=shift_jis">
<script language="VBScript">
' ***********************
' 必要なオブジェクト作成
' ***********************
on error resume next
' ファイル削除用
Set Fso = CreateObject( "Scripting.FileSystemObject" )
if Err.Number <> 0 then
alert("Fso:"&Err.Description)
end if
' エクスポート実行用
Set Cn = CreateObject( "ADODB.Connection" )
if Err.Number <> 0 then
alert("Cn:"&Err.Description)
end if
Cn.CursorLocation = 3
' ダミー Access 作成用
Set Adox = CreateObject( "ADOX.Catalog" )
if Err.Number <> 0 then
alert("Adox:"&Err.Description)
end if
' ディレクトリ参照と OS パス取得用
Set Shell = CreateObject( "Shell.Application" )
if Err.Number <> 0 then
alert("Shell:"&Err.Description)
end if
on error goto 0
Function Export()
' ***********************
' 2回目の実行
' ***********************
if Cn is nothing then
Set Cn = CreateObject( "ADODB.Connection" )
Cn.CursorLocation = 3
end if
' ***********************
' 実行確認
' ***********************
if not confirm( "エクスポートを実行しますか?" ) then
Exit Function
end if
Dim obj
' ***********************
' ディレクトリ選択
' フラグは https://docs.microsoft.com/ja-jp/windows/desktop/api/shlobj_core/ns-shlobj_core-_browseinfoa
' ***********************
on error resume next
Set obj = Shell.BrowseForFolder( 0, "出力先のディレクトリを選択して下さい", 11+&H40, 0 )
if Err.Number <> 0 then
alert(Err.Description)
end if
on error goto 0
' ***********************
' キャンセル
' ***********************
if obj is nothing then
Exit Function
end if
' ***********************
' 一応チェック
' ※ フラグ使用しているので必要無いはず
' ***********************
if not obj.Self.IsFileSystem then
alert( "ファイルシステムではありません" )
Exit Function
end if
' ***********************
' 選択してフォルダのパス
' ***********************
SelectDir = obj.Self.Path
' ***********************
' ダミー用のパス
' C:\Users\lightbox\AppData\Temp\dummy.mdb
' ***********************
Set objFolder = Shell.Namespace(&H1c)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path & "\Temp\dummy.mdb"
' ***********************
' 既存のダミー削除
' ***********************
on error resume next
Fso.DeleteFile(strPath)
on error goto 0
' ***********************
' 出力 Excel 削除
' ***********************
on error resume next
Fso.DeleteFile(SelectDir & "\Export.xls")
on error goto 0
' ***********************
' ダミー用 mdb 作成
' ***********************
on error resume next
Adox.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPath & ";"
if Err.Number <> 0 then
alert(strPath & " : " & Err.Description)
end if
on error goto 0
' ***********************
' MDB 接続用文字列
' ***********************
ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPath & ";"
on error resume next
Cn.Open ConnectionString
if Err.Number <> 0 then
alert(ConnectionString & " : " & Err.Description)
Exit Function
end if
on error goto 0
' ***********************
' エクスポート用 SQL
' ***********************
Query = "select * "
Query = Query & "into [Excel 8.0;DATABASE=" & SelectDir & "\Export.xls].[出力データ] "
Query = Query & " from [ODBC;Driver={SQL Server};SERVER=サーバ;Database=データベース;UID=sa;PWD=パスワード].テーブル名"
on error resume next
Cn.Execute Query
if Err.Number <> 0 then
Call Cn.Close()
alert(Err.Description)
Exit Function
end if
on error goto 0
alert("処理が終了しました")
Call Cn.Close()
Set Cn = Nothing
End Function
</script>
</head>
<body>
<input id="export" type="button" value="エクスポート" language="VBScript" onclick="Call Export()">
</body>
</html>
本当は、このページを window.open で開けて、終了したら close させます。そうすれば、dummy.mdb がアプリケーションから解放されます。
補足
Windows7 で実際に運用しているコードです。Windows10 に完全対応する為に、今回コードを整備して Windows10 でテストを行いました。この次の段階としては、VBScript やめて JScript で書いて処理します( そうすると、jQuery 使えますし )
つまり、
META 要素による、X-UA-Compatible の設定は、それより前に IE の判断の邪魔になるようなものがあると、設定しない動作になるので、X-UA-Compatible はできるだけ先頭にする必要があります。これは、VBScript 以外の対応においてもきちんと対応すべき重要な仕様です。
IEの、右上の歯車アイコンで開くメニューの中に、『互換表示設定』という項目がありますが、これは意図的にある条件にあてはまるページを IE8 より前のIE 互換で表示するものですが、その条件が大きく分けて２通りあります。
1) 登録したサイト
2) イントラネット
これによって自動的に古い IE とコンパチブルになるようになっていて、しかもこれで運用したほうが
しかし、IE では昔デフォルトでこの処理が制限されていた事(たぶん2009年のIE7)がありました。それは当時以下の設定を『有効』にすると制限が解除されて正しく使えるようになっていたのですが、
▼ 当時、こんなダイアログが出て、情報バーをクリックしてから許可してもう一度同じ作業をする必要がありました。
そして、もう一つスクリプトにクリップボードへのコピーを許可する設定があります。
これは今でも健在で、デフォルトではダイアログボックスが表示されて、貼り付けても良いか(またはコピーしても良いか)確認を要求されます。
これは、知識のあるユーザが利用する場合は有効にしても「実害」は発生しません。まれに、ユーザがコピーした内容をすり替えて悪意のあるサイトに誘導する可能性があったので、問題になって世の中全てがこのようになった経緯があり、Flash でも同様の対応を当時せまられました。実際使うとすれば、IE 限定なのでイントラネット等の閉じたネットワークで使われる事が一般的で、業務処理を行っていた人達には迷惑な話でした。
現在、どうしても必要なユーザは『信頼済みサイト』に対象ページのドメインを登録して、『信頼済みサイト』の設定を変更するといいと思います。
JavaScript を無効にする
現在そのような事は現実的ではありませんが、設定としてはこちらです。IE では、『アクティブスクリプト』と呼ばれており、たぶん昔は JavaScript の替わりに VBScript が使えていたのでそのような呼び名になったのだと思います。
これと同じような設定は、他のブラウザでも存在します。これらは、JavaScript でどのような画面表示がなされているかと言うような、ページの検査に使う事はあります。
XSS フィルターは有効にします
これは純粋なセキュリティ対策です。どのような悪意を持った使われ方をするか想像付かない為、デフォルトで有効で正解です。ただ、自分自身や社内の便利ツールとして、入力した JavaScript で動的に JavaScript の結果が欲しいような場合は、この設定を『信頼済みサイト』に対象ドメインまたは PC 名を登録してこの設定を無効にするといいと思います。
関連する記事
( Google で自分のサイトを検索して表示させました )
もしこのようなダイアログが表示される場合は「インターネット」では無く「信頼済みサイト」の設定を変更します。
通常は『有効』になっており、自由に移動できるはずですが、『ダイアログを表示する』となっていると、冒頭のダイアログが表示されてしまいます。
信頼済みサイトとは
通常アクセスするサイトは、誰が運営しているか解りませんのでセキュリティはある程度高く設定されています。しかし、WEB上で作業する場合、セキュリティを低く設定したほうが便利な事はたくさんあり、例えば自分が運営しているサイトにアクセスするならば、疑う必要は無いわけですから、「信頼済みサイト」に登録して、セキュリティの設定を変更して運用する場合もあります。
関連する記事
※ エキスパートモードで表示しています
アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
