VBAのお勉強 » simple blog

Excelでメールを受信して添付ファイルの画像をシートに張り付ける

4月 022011

タイトルまんまですが（＾＾；
http://www.simple-sys.com/blog/mailtorikomi/
のコメントでいただきました内容について、サンプルで作ってみました。
BSMTP.DLLは今回も必要となります。上記の記事をご参考にインストールしてください。

設定する内容はこんな感じです。
メールを受信するとサーバー内のすべてのメールを削除してしまいますので、注意してください（受信対象メールであろうが無かろうが、添付ファイルがあろうが無かろうがです。）

テスト専用のメールアカウントを作成してお試しください。
「ダウンロード実行」のボタンを押すと

このように受信したメールを一覧で表示し、添付ファイルがあった場合は、その１つ目のデータを貼り付けます。

添付ファイルが複数ある場合や、画像ファイルではない場合、HTMLメールなどには一切対応していません。また、エラー処理も手抜きで作っていますので、実際にお使いになる際は、プログラムを修正して使ってください。

お約束ですが、このプログラムを使った事による一切の保証はございません。ご了承ください。
以下のリンクからダウンロードしてください。
phototorikomi.xls

表を縦に展開

VBAのお勉強 No Responses »

1月 092010

http://q.hatena.ne.jp/1262665566

関数でもできるけど、ＶＢＡでやってみました。

vbastudy_28.xls
こちらをダウンロードして、開きます。

ツール→マクロ→Visual Basic Editorと開き、

みたいなボタンをクリック。

罫線、右寄せも同時にやってます（＾＾）

プログラムはこんな感じ。

PLAIN TEXT

Visual Basic:

Sub test()
Dim hyouAlastgyou As Integer
Dim hyouAgyou As Integer
Dim hyouBgyou As Integer
'A列の最終行を求めます。
hyouAlastgyou = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
'表Bを1行目から値を入れていくとします。
hyouBgyou = 1
'A列が２行目からlastgyouまで入っているとして、
'それを１行ずつとっていきます。
For hyouAgyou = 2 To hyouAlastgyou
' hyouBgyou行目の8番目の列(H)に「品番」を代入します。
ActiveSheet.Cells(hyouBgyou, 8).Value = "品番"
' hyouAgyou 行目の　1番目の列(A列)の値を、hyouBgyou行目の9番目の列(I列)に代入します。
ActiveSheet.Cells(hyouBgyou, 9).Value = ActiveSheet.Cells(hyouAgyou, 1).Value
'表Bを次の行に移します。
hyouBgyou = hyouBgyou + 1
' hyouBgyou行目の8番目の列(H)に「動物種類」を代入します。
ActiveSheet.Cells(hyouBgyou, 8).Value = "動物種類"
' hyouAgyou 行目の　2番目の列(B列)の値を、hyouBgyou行目の9番目の列(I列)に代入します。
ActiveSheet.Cells(hyouBgyou, 9).Value = ActiveSheet.Cells(hyouAgyou, 2).Value
' hyouBgyou行目の9番目の列(I列)を右寄せにします。
ActiveSheet.Cells(hyouBgyou, 9).HorizontalAlignment = xlRight
'表Bを次の行に移します。
hyouBgyou = hyouBgyou + 1
' hyouBgyou行目の8番目の列(H)に「色」を代入します。
ActiveSheet.Cells(hyouBgyou, 8).Value = "色"
' hyouAgyou 行目の　3番目の列(C列)の値を、hyouBgyou行目の9番目の列(I列)に代入します。
ActiveSheet.Cells(hyouBgyou, 9).Value = ActiveSheet.Cells(hyouAgyou, 3).Value
' hyouBgyou行目の9番目の列(I列)を右寄せにします。
ActiveSheet.Cells(hyouBgyou, 9).HorizontalAlignment = xlRight
'表Bを次の行に移します。
hyouBgyou = hyouBgyou + 1
' hyouBgyou行目の8番目の列(H)に「価格」を代入します。
ActiveSheet.Cells(hyouBgyou, 8).Value = "価格"
' hyouAgyou 行目の　5番目の列(E列)の値を、hyouBgyou行目の9番目の列(I列)に代入します。
ActiveSheet.Cells(hyouBgyou, 9).Value = ActiveSheet.Cells(hyouAgyou, 5).Value
'今現在の行から3行前の8番目の列(H列)から、今の行の9番目の列(I列)の部分に罫線を引きます。
ActiveSheet.Range(Cells(hyouBgyou - 3, 8), Cells(hyouBgyou, 9)).Borders.LineStyle = True
'表Bを次の次の行に移します。
hyouBgyou = hyouBgyou + 2
'表Aを次の行に移します。
Next hyouAgyou
End Sub