Outlook VBAからExcelブックを開き、その中の特定の列の最終（データが入っている）セルを調べる方法は？
Outlook VBA（Outlook 2010）からExcelブックを開くところまではいきました。
For文を回す回数を決める（空白ではやらない…エラーを回避する）ために特定列の最終セルを調べたいと思います。
ExcelであればRange("A1").End(xlDown).Row（セルA1から順番に下方向にデータが入っている場合※空白はないという前提）で対象の行がわかると思いますが、OutlookからExcelを起動して操作を行おうとすると同様のことが実現できません。
Do…Whileの間にIf文を組み込むということはできるのですが、プログラムコードとしてまったくもってきれいではありません。
どうにかスッキリとしたコードにできないのでしょうか？
ログインして回答する
ベストアンサー
-
a-kuma3
こんな感じで行けると思います。
Set app = CreateObject("Excel.Application") ' Excel.Application Set book = app.Workbooks.Open(...) ' Workbook ' きっと、このあたりまではできているはず Set sheet = book.Sheets(1) ' Worksheet last_row = sheet.Range("A1").End(xlDown).Row ' Worksheet を指定して操作Excal VBA で、Range(...) って使うときには、ActiveSheet.Range(...) と
シートの指定を省略している、と考えると良いでしょう。 -
keijun5145その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2017-01-05 16:35:42
- 終了日時
- 2017-01-06 10:08:11
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
１０年前に購入した３万円のPCが遂に壊れました。 長持ちした方でしょうか？ …
coccinellab
2
1
-
今2023年ですがこの今の日本の条件下で少子高齢化を解決するとしたら何か良い案がありますか?政策を実施す…
寺本まこと2
11
-
来年2024年セパのペナントレースの優勝チームと日本一になるチームは今年と同じになると思いますか?…寺本まこと
-
買取アプリ「cashari」についてです cashariでリースバックした商品（ゲーム等）を仮にリース期間中に売る…
匿名質問者11
-
以下のサイトを見ました。 https://karapaia.com/archives/52289253.html です。 それでこれと同じパズルを…匿名質問者2
Excelでできているならできるはずですよ。
Rangeオブジェクトを完全参照にして
Workbookオブジェクト.Worksheetオブジェクト.Rangeオブジェクト
といった感じにできていないのではないでしょうあk