Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4828 / 76782

←次へ　｜　前へ→


	【77570】Re:メール自動作成マクロの質問です

γ - 15/10/24(土) 11:09 -


	引用なし

	パスワード

以前のあなたの投稿を参考にしてコード例を作ってみました。変数宣言は省略しています。　　s = "" 　　GYOMAX = Cells(Rows.Count, 1).End(xlUp).Row 　　GYO = 10 　　Do Until GYO > GYOMAX 　　　　strRec = Cells(GYO, 1).Text & Cells(GYO, 2).Text & Cells(GYO, 3).Text & Cells(GYO, 4).Text '　　　　 lngREC = lngREC + 1 '　　　　xlAPP.StatusBar = "出力中です．．．．(" & lngREC & "レコード目)" '　　　　' レコードを出力 '　　　　 Print #intFF, strREC 　　　　s = s & strRec & vbCrLf 　　　　GYO = GYO + 1 　　Loop 　　objMAIL.body = s A列のデータがある最終行までを対象に、4列の値を連結しています。そのあたりの前提は明示されていないので、勝手に設定しましたが、そちらで直してください。