エクセル html VBA マクロ TeraPad

セルＡ１に入力したhtmlコード（例えば<span style="font-size:1.5em;">あいうえお</span>など）を、ブラウザ表示と同様にエクセル上に表示させることは可能ですか？
（Webからコピーしてそのままペーストしたように表示したい）


出来るならファイル形式を変えて保存で終わる話なんですが

ここからは出来ない場合の話になります




セルＡ１にはWebページを丸々１ページ構成するコードが入っています
（エクセル上にあるデータによって構成を変えるため）
（コードをつなぎ合わせたものがＡ１に入っています）
それをTeraPadなどのテキストエディタを起動させ「セルＡ１をペーストして保存」ということをしたかったわけですが、マクロでShell関数が上手く使えません


したがって上記のような安易な方法へ走ったわけですが、コードがブラウザ表示されるだけでしたｗ



どちらの方法でも構いません
解決へ向けて手助けいただければと思います
Windows10 Excel2007

質問者からの補足コメント

• ありがとうございます
  
  たしかにそうなんです
  当然すでにHTMLエディタからアップさせたWebページがあります
  
  そこにリンクを追加したいのですが、通常の「Webページを作成してリンクを貼る」では都合が悪かったりします
  
  そこで今回「『.htmlファイル』として保存→そのファイルへのリンクを作成(※)→そのリンクアドレスを取得した上で再度コードを作成→更新してアップロード」という方法でやりたいのです
  
  ※という事ができる環境があります
  
  
  すべてOnTimeメソッドを使いオートメーションでやりますが、その過程のプロシージャを作成中という訳でして
  
  とにかく「ブラウザ表示した上で保存したhtmlファイル」を作りたいのです
  
  最悪「アップロードした上でプレビューを出してコピー」という事も出来るんですが……

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/10/13 17:50

No.1 ベストアンサー 回答者： d-q-t-p 回答日時： 2016/10/13 15:57

いちいちテキストエディタなんて使わなくても直接 HTMLに書き込めば

いいでしょうに。 A1にまとめているのなら

Sub outputHTML()
Const Target As String = "sumple.html"
Open ThisWorkbook.Path & "\" & Target For Output As #1
Print #1, Range("A1").Value
Close #1
Call CreateObject("Wscript.Shell").Run(Target, 1)
End Sub

この回答へのお礼

ありがとうございます
そのコードでやりたいことはできています
最後の
Call CreateObject("Wscript.Shell").Run(Target, 1)は
不要なので抜きました（実行時エラーにもなりますし）

細かい説明はヤメときます
説明下手はご容赦ください

お礼日時：2016/10/13 23:56

No.2 回答者： d-q-t-p 回答日時： 2016/10/13 22:06

いまいち読んでても何がしたいのかよく分からなかったです。

私の読解力の問題かもしれません。「ブラウザ表示した上で」
の意味がよく分かりません。

> そこにリンクを追加したいのですが
jQueryなどでインクルードさせればいいという話ではないの
でしょうか。