メール自動作成用のクラスを作る～(4)……そして伝説へ（うそ）

LotusNotesメールを作る LotusNotes版も作った。……ていうか、前から使っていたやつを移植しただけですが。早速、コードの紹介から。このとき作ったクラスに追記する。メソッドのコード Public Sub createLotusNotesMail() On Error Resume Next Err.Clear …

2017-03-12

メール自動作成用のクラスを作る～(3)

VBAクラス・モジュール VBA一般 Thunderbird連携 VBA自作クラス

Thunderbirdでメールを自動作成するメソッドを作成。まずはコードをご覧に入れよう。あ、その前に、標準モジュールの宣言セクションに、 Public Const THUNDERBIRD_PATH As String = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" こいつ…

2017-03-11

メール自動作成用のクラスを作る～(2)

VBAクラス・モジュール VBA一般

先に断っときます。今回はカンバンに偽りあり。「……クラスを作る」とか題名で言ってますが、クラスは作りません。ただ、前回作ったクラスを活用するためのコードを作るんだから、あながち嘘でもない。そんなわけで、そこんとこヨロシク。前回作ったクラス…

2017-03-11

メール自動作成マクロ用のクラスを作る

VBAクラス・モジュール VBA一般

Excelから、VBAでLotusNotesやThunderbirdのメールを作るマクロ。メンテナンスしやすくて拡張性のあるものにしたいと思って試行錯誤中。「これでうまく行くんじゃね？」というところまで漕ぎ着けたので、うｐしておく。なるべく〈オブジェクト指向〉っぽく…

2017-03-10

データ転記マクロ～その３

VBA一般ちょい書きマクロ VBAクラス・モジュール

前回のマクロをさらに書き換える。今度は、無駄にクラスモジュールを使うよ。クラスモジュールを挿入して、オブジェクト名を「GambleRacer」にした。クラスモジュールには下記のコードを書く。 Option Explicit 'フィールド '……(1) Private rcID_ As Long…

2017-03-10

データ転記マクロ～その２

VBA一般ちょい書きマクロ

前回の転記用マクロを書き換えてみる。元のコードを下に再掲。ただし、余計なコメントは除去。コメント入りがご所望ならコチラをどうぞ。 Sub sendDataVer1() Dim folderPath As String folderPath = ThisWorkbook.Path Dim objSheet As Worksheet Set objS…

2017-03-07

データ転記マクロ

VBA一般ちょい書きマクロ初心者向け

VBA初心者向けブログみたいなタイトルなのに、全然初心者向けじゃなかったので、ちょっと初心者の頃を思い出して書く。私がVBAにハマるきっかけになったマクロです。こんな個票のデータを、こんな集約表に転記していく、という作業です。集約用のExcelフ…

2017-03-05

小さなクラスを作る(3)～ファイルを選択させる

小さなクラス VBA一般 VBAクラス・モジュールちょい書きマクロ VBA自作クラス

ファイルを選択させるやつも作ってみた。例によってクラスモジュールを挿入。オブジェクト名はFilePickerにした。クラスモジュールのコードは下記の通り。 Option Explicit 'フィールド Private gotFileFullPath_ As String Private isCancelled_ As Boole…