PR
おすすめ特集
あみ先生の公開質問授業
もうすぐ終了。スカパー!Netテレビに関する疑問質問を、公開授業で一発解決！
気になるキーワード
PR
インタレストマッチ（詳細）
- このQ&Aは役に立った
- 役にたった：0件
質問 |
||
| 質問者：nana_watuki | VBAしか使用しないExcelのファイルサイズを軽くしたい | |
|---|---|---|
困り度：
|
VBAしか使用しないExcelのファイルサイズを軽量化するにはどうすればよいのでしょうか？ 作成したVBAはExcelファイルを開くとInputBoxのダイアログが表示され、 そこにアドレスを入力するとブラウザが開いてそのページを表示します。 ちなみに、ブックのシートは1つだけにしてあり、セルには何も入力していません。 無駄なモジュールはなく、Excelファイルは直接ダブルクリックして開きたいので圧縮は不可です。 これ以上ファイルサイズを減らすことはできるのでしょうか？ ご存知の方がおられましたらご回答をよろしくお願いします。 使用OS：Windows XP 使用ソフト：Microsoft Excel 2003 |
|
質問投稿日時：08/06/04 00:37 質問番号：4073662 |
||
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示
回答良回答10pt |
|
| 回答者：Wendy02 | こんにちは。 >これ以上ファイルサイズを減らすことはできるのでしょうか？ だったら、Excelを使わなければよいのでは？ メモ帳で、以下のコードで、例えば、OpenURL.HTA というファイル名をつけて、デスクトップでも置いてあげればよいです。(できれば、ショートカットにしたほうが良いです。なくすときがありますから。）そして、必要なら、その中に、URLを入れておいてもよいです。 例：(以下参照） <A href="http://okwave.jp/">OKWave</A> だいたい、以下ですと、850バイト強(URLのリンク先を入れなければ、700バイト程度です）です。Excelファイルで、何も入れないデフォルト状態で、約16倍の、13.5KBです。IE5.5 以上の環境だったら、Excelがなくても、動かせるはずです。後は、ダブルクリックすれば、ファイルが開きますので、テキストボックスに入れてボタンをクリックするか、リンクをクリックすればよいです。なお、http:// は省略しても良いです。 '------------------------------- <html> <head> <title>OpenURL HTA</title> <HTA:APPLICATION BORDER="thick" BORDERSTYLE="sunken" CAPTION="yes" MAXIMIZEBUTTON="YES" MINIMIZEBUTTON="YES" WINDOWSTATE="normal" /> </head> <SCRIPT LANGUAGE="VBScript"> Call Window.ResizeTo(500,400) Sub GoWeb Dim strURL If T1.Value ="" Then Exit Sub If InStr(1, T1.Value, "http://",1) = 0 Then strURL = "http://" & T1.Value Else strURL = T1.Value End If With CreateObject("InternetExplorer.Application") .Visible =True .Navigate strURL End With End Sub </SCRIPT> <body> <p><font size="3">URLを入れてください。</font> <input type="text" name="T1" size="50"> <input type="button" value="Click" onclick=GoWeb()> </p> <br> <font size="2"> <A href="http://okwave.jp/">OKWave</A> <br> <A href="http://oshiete.goo.ne.jp/">教えて!goo</A> </font> </body> </html> '--------------------------------------- |
|---|---|
| 種類：アドバイス どんな人：一般人 自信：参考意見 |
|
| |
回答日時：08/06/04 13:07 回答番号：No.2 |
|
| この回答へのお礼 | こちらの方法だとCSSで装飾したりすることができるので 見た目をデザインしたいときなどは重宝しそうです。 VBScriptはいろいろと便利そうなので少し学習しておこうと思います。 ご回答いただきどうもありがとうございました。 |
回答良回答20pt |
|
| 回答者：KenKen_SP | こんにちは。 1. VBA の編集を繰り返すとファイルサイズが肥大化する（らしい） モジュールをエクスポートし、新規ブックなどにインポート し直すとサイズが軽くなるようです。 2. VBS（*.vbs)にする（別案） 内容によりますが、ご質問に書かれている動作だけなら VBS でも 実現できます。一例です。 ' // Test.vbs （メモ帳などに貼り付け拡張子 VBS で保存） Dim s s = InputBox("URL","TEST SCRIPT") Dim Shell Set Shell = WScript.CreateObject("Wscript.Shell") Call Shell.Run (s, 1) 数行のプレーンテキストに過ぎませんので、1KBも無いです。 |
|---|---|
| 種類：回答 どんな人：一般人 自信：参考意見 |
|
| |
回答日時：08/06/04 08:18 回答番号：No.1 |
|
| この回答へのお礼 | VBSというファイルで作成して実行したところ問題なく動作しました。 元々20KBあったファイルサイズが1KB以下になり、かなり軽量化されました。 ご回答いただきどうもありがとうございました。 |
- このQ&Aは役に立った
- 役にたった：0件
この質問に関連するQ&A
インタレストマッチ（詳細）
はじめての方へ