質問させていただきます。
現在、メールを自動転送するプログラムを書いていて、
転送先のメールアドレス(名前、部署etc..) などをエクセルで管理し、
outlook側から読み込もうとしています。
Excel vbaだと以下の宣言ができるのですが、OutlookだとRangeがないためか、宣言できません。
宣言する方法はあるのでしょうか?
vba
1Dim c As Range ←ここで定義のエラーが発生します。 2Dim mail_add As String 3 4For Each c In Range("A2:G7") 5 If c.Value = "XX" Then ' 条件1 6 If c.Offset(0, 2).Value = "hoge" Then '条件2 7 mail_add = c.Offset(0, 5) 8 End If 9 End If 10Next
もしくは、Rangeオブジェクトを使用しない複数条件での
検索方法について、アドバイスいただけると幸いです。
1.OutlookからExcel読み込む ←これはOK
2.複数条件(名前、部署)の検索
3.ヒットした行のメールアドレスを変数に格納する
「1.OutlookからExcel読み込む ←これはOK」
上記をどうのように実装したのでしょうか?
上記が実装できるのなら2も出来ると思うのですが、違うのでしょうか?
すいません、質問の仕方が悪かったです。
Rangeオブジェクトを使わずに、列の複数条件を検索する方法はあるでしょうか?
outlookだとRangeがないため、質問に記載したコードでは複数条件検索ができませんでした。
Excel読み込み自体は以下で実装しました。
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open ("C:\Users¥xxxx")
回答2件
あなたの回答
tips
プレビュー