Excel VBAでUTF-8のテキストファイルを扱う(ADODB.Stream) - 百年の未読
自分にとっての覚書です。 Excel VBAでテキストファイルを書き出すために、こんなマクロを組んでいました。 Dim n As Long n = FreeFile Open "C:\sample.html" For Output As #n Print #n, "テキスト" Close #nけれど、この方法だと、できあがったテキストファイルの文字コードはShift-JISになります。 Excelのデータから大量にHTMLを生成するVBAを組もうと思っていたのですが、今回作成したいファイルの文字コードはUTF-8。 テキストファイルを作成した後に、文字コードを変換するという手も考えましたが、ひと手間増えてしまいます。どうにかならんかと検索してみたところ、VBAで文字コードを指定してテキストファイルを読み書きするにはADODB.Streamを使えばよいということが分かりました。 [参考にした
WSHからHTAファイルを作成せずにHTAを実行 - Domo-Domo
mswsh.exeとやらにパラメーターとして javascript:(source)のようにスクリプトのコードを渡すと実行される。 半角スペースは'%20'（他に方法があるかも） WSHのjscriptからhtaを実行させて、inputにtestと表示させてみる。 var wss = WSH.createobject('wscript.shell'); wss.run( 'mshta.exe javascript:' + 'document.open;' + 'document.write("<input%20value=test>");' + 'document.close();' ); wss = null; 内容はVBScriptですけど、こちらを参考にしました。 OpenFileDialog.VBS(Windows95/98/Me / ユーティリティ)
JSCRIPTからHTAウィンドウを生成してあやつる - 試行錯誤と創意工夫（S!アプリ開発日記＋α）
WSHスクリプトからHTAを操作する。を大いに参考。 でもURLの方法だとIE7でIEがShellから切り離された（？不確実）ので、Vistaとかで実行できない。また、VBScriptはよく分からんのでよく使うJSCRIPTで再実装。 ↓適当なファイル名（sample.js）で保存して実行してみて。メッセージが出れば成功。 function createHtaWindow(){ var jscommand = "javascript:"; jscommand += "new ActiveXObject('InternetExplorer.Application');"; jscommand += "new ActiveXObject('Shell.Application').Windows().item(0).PutProperty('HtaWindowObject',window);";
Shell
Shellオブジェクト (ShellApplication) [概要] Windowsのシェル(エクスプローラ)の機能を呼び出します。 Win95やNT4では、Internet Explorer4.0をシェル統合モードでインストールしていないと使えません。 [機能を提供するファイル] SHDOCVW.DLL Microsoft Internet Controls (IE5インストール後は、SHDOC401.DLL<Microsoft Shell Controls And Automation>になります。 ) [呼び出し方] Set Shell=Wscript.CreateObject("Shell.Application") [主なメソッド] BrowseForFolder(lngHWND, strTitle, lngOptions, [RootFolder]) 「フォルダの参照」ダイア
IE
Internet Explorerオブジェクト (InternetExplorer.Application) [概要] Internet Explorer4または5の操作をおこなうオブジェクトです。 Wscript.CreateObjectの第二引数を指定すると、イベントを取得することもできます。 ShellオブジェクトのWindowsメソッドの返値は、InternetExplorerオブジェクトのコレクションです。 Documentオブジェクトは、DHTMLのdocumentオブジェクトに対応し、ドキュメント中の各要素(タグ)にアクセスできます。 [機能を提供するファイル] SHDOCVW.DLL Microsoft Internet Controls [呼び出し方] Set IE=Wscript.CreateObject("InternetExplorer.Application")
Windows Script Programming
最初から、 openwith.reg Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\SOFTWARE\Classes\Applications\openwith.cmd\shell\open\command] @="openwith.exe \"%1\"" を結合しておく。 .xxx ファイルの「プロパティ」、「プログラム」欄の右、「変更」ボタン、「その他のアプリ」、「アプリの選択」に関連付ける。 もし、exeファイルの関連付けを変えると、exeファイルの起動が別のアプリの起動になる。 それは大変なので、変えられないようになっている。 なのに、変えたというトラブルがなくならない。共通してるのは、 exeファイルをダウンロードして、起動すると、アプリ選択が出て、選択した。 たぶん、ダウンロード直後は、セキュリティスキャンで、起
)
WshShell オブジェクト
ネイティブの Windows シェルへのアクセスを提供します。 解説 WshShell オブジェクトを作成すると、ローカルでのプログラム実行、レジストリ内容の操作、ショートカットの作成、システム フォルダへのアクセスなどを行うことができます。WshShell オブジェクトは Environment コレクションを提供します。このコレクションにより、WINDIR、PATH、PROMPT などの環境変数の操作が可能となります。 使用例 次のコードは、実行中のスクリプトへのショートカットを作成する例です。 <package> <job id="vbs"> <script language="VBScript"> set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("De
)
FileSystemObject オブジェクト
ファイル システムへアクセスする方法を提供します。 解説 [JScript] 次のコードは、FileSystemObject を使って、ファイルの読み取りまたは書き込みに使用できる TextStream オブジェクトを取得する例です。 var fso = new ActiveXObject("Scripting.FileSystemObject"); var a = fso.CreateTextFile("c:\\testfile.txt", true); a.WriteLine("This is a test."); a.Close(); [JScript] このコード例では、ActiveXObject オブジェクトを FileSystemObject オブジェクト (変数 fso) に割り当てます。次に、CreateTextFile メソッドを使って TextStream オブジェクト
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
WSHスクリプトからHTAを操作する。 - Windows Script Programming