テキスト見通しに変換ようにセルの範囲は、HTMLソースをエクセル

Range2Html関数としての文字列の（範囲としてのoRng）
「読み取り専用のテキスト文書オープン
のConst = ForReading 1
」テキストドキュメント開くように記述することができ
ます。Const ForWriting = 2
「は、この原稿の最後に書かれたテキスト文書を開いた追加
のConst。8 ForAppending =
」システムのデフォルトテキスト文書開く方法
のConst TristateUseDefault = -2
「Unicodeテキスト文書におけるオープン
=定数TristateTrue -1
」ASCIIテキスト文書のオープンなど
のConst TristateFalse = 0
ブックとしての暗いOWB
セットOWB = oRng.Parent.Parent
ワークとしての暗いOWK
セット= oRng.Parent OWK
としての暗いOPO PublishObject
として文字列の暗いSPATH
SPATH＆Excel.ThisWorkbook.Path = ""
などの文字列の暗いsFlie
result.htm "SFILE＆SPATH ="
OWBと
のDebug.Print。PublishObjects.Count
各OPOで.PublishObjectsため
oPO.Delete
次
の設定OPO = .PublishObjects.Add（のSourceType：= xlSourceSheet、ファイル名：= SFILE、シート：= oWk.Name、出典：= oRng.Address、HtmlType：= xlHtmlStatic、divIdは：= "Test1を"）
OPOで
「开始发布
.Publish（真）
で終わり
で終了する
設定oFSO =のCreateObject（ "Scripting.FileSystemObjectオブジェクト"）
oFSOで
trueに設定oTextStream = .OpenTextFile（SFILE、ForReading、TristateUseDefault）
oTextStreamで
Range2Html =。 READALL
をエンド
で終わる
エンド機能の
サブQQ563524869（）
薄暗いoWkワークシートとして
設定oWk = Sheet1の
範囲として暗いoRng
ORng = oWk.Range SET（ "A1：D2の"）。CurrentRegion
として文字列の点心SPATH
SPATH＆Excel.ThisWorkbook.Path = ""
Outlook.Applicationとしての薄暗いobjOutlookApp
SET =新objOutlookApp Outlook.Application
点心objAccountのアカウントとして
「メッセージの添付ファイルのオブジェクト
objAttachmentのOutlook.Attachment点心として
objOutlookAppで
各objAccount .Session.Accountsの場合には
「の場合objAccount.AccountType <> olPop3そしてobjAccount.DisplayNameのように『作業*』そして、
」メッセージオブジェクト
薄暗いobjMailItemのOutlook.MailItemとして
設定objMailItem = .CreateItem （olMailItem）
objMailItemと
'受信者、セミコロンで複数の受信者
.TO = "[email protected]"
C-C'
」.CC = "[email protected]」
「Bccの
'.BCC = "[email protected]"
'メッセージの件名
.Subject = "新しいテスト"
'メッセージコンテンツフォーマット
.BodyFormat = olFormatRichText
コンテンツ'メッセージ
.HTMLBody = Range2Html（oRng）
'を追加する添付
' .Attachments.Add ＆SPATH「Test.xlsx」
objMailItem.SendUsingAccount = objAccount
「が表示されるダイアログボックス
.Displayは、
」メッセージの送信を開始します
.send
で終了し
た場合「末端
次
で終わる
End Subのを