|
早いレスポンスをありがとうございます!
>A列のフォルダ名をキーに取得し、その同じ行のB列のファイル名をアイテムに
>取得します。
>「Scripting.Dictionary」には重複したキーを取得できないので
>A列でキーが重複した場合、その時のアイテムにB列のファイル名を追加していく。
>これの繰り返し作業をしてみてはどうでしょう?と思いました^^
なるほど。
ちょっとこちらについては、流用可能なのか、じっくり調べながら中身を理解したいと思います。
いかんせん初心者なもので、少し時間をくださいませ…
ヒントをありがとうございます。
>ちょっと詳しくフォーマット?の状況がわかってないのであれなのですが、
>既に[フォルダ名]等記載されているということでしょうか?
ボタンひとつで、該当ドライブのフォルダ構成をもってきて、データが整形された形でメールが立ち上がるところまでやりたいと思っています。
セルやテキストファイルの値がメッセージに入ったメールを立ち上げるという部分はできているのですが、
肝心のデータが整形された形のセル(若しくはテキストファイル)を作ることができないでいます。
Sub メール報告()
Dim Subj As String
Dim BodyText As String
mlto = Cells(2, 1)
Subj = Cells(1, 2)
BodyText = Cells(3, 1) & Cells(4, 1)
t = "C:\Program Files\Outlook Express\msimn.exe /mailurl:mailto:" + mlto + "?subject=" & Subj & "&body=" & BodyText & "%20"
Shell t
End Sub
このBodyText部分に整形された形(フォルダごとにファイル名がまとまった状態)のセルを用意したいわけです。
分かるでしょうか…説明が拙くて申し訳ありません。
|
|