エクセルで取得したテキストを使用してメールを送信したい

Help Automation Ops
,
4

こんにちは

例えばですが、
Dictionary<string,string>型のDictionary変数を用意します。
dict = New Dictionary(Of String,String)

ループ内で

not dict.ContainsKey(CurrentRow("会社名").ToString)

をチェックし、キーが無ければ、会社名を追加します。

dict(CurrentRow("会社名").ToString) = CurrentRow("会社名").ToString+vbCrLf

既存キー有無にかかわらず、当該行を追記します。

dict(CurrentRow("会社名").ToString) = dict(CurrentRow("会社名").ToString)+CurrentRow("日付").ToString+" "+CurrentRow("金額").ToString+" "+CurrentRow("備考").ToString+vbCrLf

以下サンプルです。

Main.xaml (8.9 KB)

data.xlsx (8.7 KB)

1 Like