Excel2000 VBE ソースコード→HTML 変換ソフト T'sConverter 試す。 [ExcelVBエディタの練習]
Excel2000 VBE ソースコード→HTML 変換ソフト T'sConverter 試す。
http://www.vector.co.jp/soft/win95/net/se124389.html
so-netブログで使用する。
<style type=text/css> <!-- .k {background-color: #ffffff; color: #ff0000} .c {background-color: #ffffff; color: #008000} .d {background-color: #ffffff; color: #000000} --> </style>
管理 → デザイン → テンプレート管理 HTML編集
上記をhtml編集で<head></head>間に記入する
後は、コードをブラウザで表示、コピー貼り付け、かhtmlソースをコピー（<body> </body>間を)し、ｈｔｍｌ編集で貼り付け余分な部分を削除する。
css 設定後は下のようになる。
<div> </div> <div> <span class="k">Function</span> <span class="d">fcInternetClose</span>() <span class="k">As Long</span></div> <div> </div> <div> <span class="c">'APIの実行/インターネットサービスをクローズ</span></div> <div> <span class="k">Call</span> <span class="d">InternetCloseHandle</span>(<span class="d">lngWinINet</span>)</div> <div> </div> <div> <span class="c">'この関数の戻り値には、APIの処理結果コードを返します</span></div> <div> <span class="d">fcInternetClose</span> = <span class="d">Err</span>.<span class="d">LastDllError</span></div> <div> </div> <div> <span class="k">End Function</span></div> <div> </div>
をhtml編集に記入（コピー貼り付け）
Function fcInternetClose() As Long
'APIの実行/インターネットサービスをクローズ
Call InternetCloseHandle(lngWinINet)
'この関数の戻り値には、APIの処理結果コードを返します
fcInternetClose = Err.LastDllError
End Function
コメント 0