![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
今パワポに専用という文字があればaquarius0319に送るようにしています
これをexcelを対象にしたいのですがどこを変更すればよろしいでしょうか?
Sub 最終sample()
Const olMailItem = 0
Dim file As String
Dim pr As Presentation
Dim sl As Slide
Dim sh As Shape
Dim tb As Table
Dim r As Integer
Dim c As Integer
Dim s As String
Dim f1 As Boolean
Dim f2 As Boolean
Dim ol As Object
Dim mail As Object
Dim f As Object
Dim dic As Object
Dim k As Variant
Dim n As Variant
Dim mailTo As String
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "ppt", "*.ppt?"
.InitialFileName = "C:\"
.AllowMultiSelect = False
If Not .Show Then Exit Sub
file = .SelectedItems(1)
End With
Do
Set pr = Presentations.Open(file)
For Each sl In pr.Slides
f1 = False
f2 = False
For Each sh In sl.Shapes
If sh.HasTable Then
Set tb = sh.Table
For r = 1 To tb.Rows.Count
For c = 1 To tb.Rows(r).Cells.Count
s = tb.Rows(r).Cells(c).Shape.TextFrame2.TextRange.Text
'宛先
If InStr(s, "専用") Then
f1 = True
mailTo = "aquarius0319"
End If
If InStr(s, "フレッツ") Then
f1 = True
mailTo = "b230420"
End If
If InStr(s, "INS") Then
f1 = True
mailTo = "b230420"
End If
If InStr(s, "秋田") And r < tb.Rows.Count Then
If IsNumeric(tb.Rows(r + 1).Cells(c).Shape.TextFrame2.TextRange.Text) Then f2 = True
End If
If f1 And f2 Then Exit Do
Next
Next
End If
Next
Next
MsgBox "無かった"
Loop Until True
pr.Close
If Not (f1 And f2) Then Exit Sub
'
MsgBox "見つけた"
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(olMailItem)
mail.Display
mail.To = mailTo '宛先
mail.Subject = "件名"
mail.Body = "本文"
'添付ファイル
mail.Attachments.Add file
'添付ファイル
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "添付ファイル", "*.*"
.InitialFileName = "C:\"
.AllowMultiSelect = True
If .Show Then
Dim o As Integer
For o = 1 To .SelectedItems.Count
mail.Attachments.Add .SelectedItems(o)
Next
End If
End With
'メール送信
mail.Send '送信
ol.Quit
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
>excelを対象にしたいのですがどこを変更すればよろしいでしょうか?
エクセルの各セルを全部調べるという事でしょうか?
1)まずは、開く対象をpptでなくxlsxなどのエクセルファイルにします。
2)プレゼンテーション内の各スライドを調べているのと同様に、
ブック内の各シートに対して文字を検索すれば宜しいかと。
3)シート内の各セルを対象に文字列の有無を調べるのなら、
Cells.Find
で調べることができるでしょう。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
※ エクセルの場合、セル以外にもテキストボックスその他いろいろな文字を持ち得るオブジェクトがあるので、それらも全部調べるのであれば、上記とは別に調べる必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールの本文をSmartyにしたい
-
メールの本文が取得できない
-
PHPでの仮登録時の会員認証メー...
-
メールアドレス形式チェックソ...
-
phpでショッピングカート
-
phpでのメール転送(添付ファイ...
-
【初歩?】変数をセットできな...
-
メールフォームのタイトルが文...
-
さくらサーバーにて、phpからメ...
-
PHPで、複数のアドレスにメール...
-
PHPMailerを使ってのSTMPメール...
-
php 完了画面の送信メールのコ...
-
複数行の文字列をメールのヘッ...
-
【file_exists】ファイルが存在...
-
フォントの色を変えるには?
-
C# Excelファイルへの画像挿入。
-
.htaccessにphp_valueが使用できな
-
php で C言語のdefineマクロの...
-
$_SESSION 有効期限をブラウザ...
-
CFileDialogの最初のディレクト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
php 完了画面の送信メールのコ...
-
さくらサーバーにて、phpからメ...
-
メールフォームのタイトルが文...
-
ローカル環境でのメール送信
-
mb_send_mail関数が利用出来ない
-
PHPsendmailにて送信元を変更
-
mail関数を使った場合のReturn-...
-
複数行の文字列をメールのヘッ...
-
phpでのメール転送(添付ファイ...
-
PHPで、複数のアドレスにメール...
-
000webhost.comでphpのmail()
-
サーバーによってはmb_send_mai...
-
【初歩?】変数をセットできな...
-
phpでメール送信できません 原...
-
PHPMailerのコードエラーが解決...
-
POP Before SMTPでメールを送信...
-
コマンドプロンプト、VBSでの添...
-
PHPからロリポップ!のメールサ...
-
mailやmb_send_mail関数で、本...
-
phpでのメール送信
おすすめ情報
>excelを対象にしたいのですがどこを変更すればよろしいでしょうか?
エクセルの各セルを全部調べるという事でしょうか?
回答
そうです
1)まずは、開く対象をpptでなくxlsxなどのエクセルファイルにします。
回答 わかりました
2)プレゼンテーション内の各スライドを調べているのと同様に、
ブック内の各シートに対して文字を検索すれば宜しいかと。
回答
具体的にどこのコードを変えればいいか教えて貰ってもいいですか?