忍者ブログ
プログラム実験・備忘録
[46] [45] [44] [43] [42] [41] [40] [39] [38] [37] [36]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

以下を発見。
Excelにて、セルをHTMLのtableに変換するアドインです。
とっても便利で、ありがたく利用させてもらいます。
ソースが公開されているので、私は、保存場所を選べるようにカスタマイズして使ってます。
修正内容は続きで。。

セルをHTMLのtableに変換するAddin
作者:so_blueさん

+ + + + + + + + + +
【ファイル保存をカスタマイズ】
・自分のPCのデスクトップが汚すぎて、せっかく保存してもファイルが見つからない・・・
⇒保存先のデフォルトをマイドキュメントへ
・毎回のファイル名で、日付のほかに自分にわかるキーワードを追加して保存したい
⇒「名前をつけて保存」の窓が出るように修正

<so_blueさんのオリジナル 85行目くらい>

'htmlファイル名 ※デスクトップのPath + yyyymmddhhmmss + .html
strFName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _
            "\" & Format$(Now, "yyyymmddhhmmss") & ".html"

<以下に修正>
'マイドキュメントへ移動
ChDir CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
'ファイル名選択窓を表示
Dim Ret As Variant
Ret = Application.GetSaveAsFilename( _
          InitialFileName:=Format$(Now, "yyyymmddhhmmss") & ".html", _
          fileFilter:="Webページ (*.html), *.html")

If Ret = False Then
    GoTo Finally 'キャンセルで抜ける
Else
    strFName = Ret
End If
PR
この記事にコメントする
お名前
タイトル
文字色
URL
コメント
パスワード Vodafone絵文字 i-mode絵文字 Ezweb絵文字
この記事へのトラックバック
この記事にトラックバックする:
広告
プロフィール
negao (38歳  男性)
土木工学卒でなぜかSEやってます。
最近、残業代も出なくなってツライな・・・
ブログ内検索
カウンター
アクセス解析
[46] [45] [44] [43] [42] [41] [40] [39] [38] [37] [36]
Powered by ニンジャブログ  Designed by ゆきぱんだ
Copyright © するのは失敗、何もしないのは、、、 All Rights Reserved
忍者ブログ / [PR]