Excel VBA 質問スレ Part49©2ch.net

2017/06/26(月) 02:15:14.60

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part48
http://mevius.2ch.net/test/read.cgi/tech/1494890685/

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2017/07/27(木) 12:17:23.37

チンリン山脈

2017/07/27(木) 13:24:05.39

>>603
いやだからさ
俺の言いたいこと伝わらないし理解する気無いよね
こっちはマッチしか無いから仕方なくマッチ使ってんの
不満だからって努力を放棄してるわけじゃないからな？
ただどう考えても手間だろ
そんだけの話

**デフォルトの名無しさん** (JP 0H76-ZO1u) · 2017/07/27(木) 14:02:53.37

>>610
君も俺の言いたいこと1ミリも理解しようとしてないから、お互い様だね

2017/07/27(木) 14:43:39.94

>>597
意味がわからない？
学びなおした方が良いぞ

2017/07/27(木) 16:09:11.81

>>612
> サブクラスに相当する関数から
> スーパークラスに相当する関数を呼べばいいんじゃね？
そこまで言うならなんの意味があるのか説明してみな

2017/07/27(木) 16:44:21.21

だからさぁお前らは雑談したいだけだろ？スレ立ててそこでやれっつーの
クソうぜぇ

2017/07/27(木) 16:44:34.77

>>611
使い方によってはvbaだってoopできるよ！って言いたいんでしょ？

**デフォルトの名無しさん** (JP 0H76-ZO1u) · 2017/07/27(木) 17:00:44.58

>>615
さいしょから言ってるでしょ
> オブジェクト指向にドップリしてたら使いにくいことこの上ないと思う
なことないよ

2017/07/27(木) 17:11:23.71

使いたいときに便利な機能を自由につまみ食いできるのがいいライブラリだと思っているんだが、
オブジェクト指向のライブラリって少しおせっかいというか世界観を押し付けてくるところがある。
会員にならないと利用できないサービスみたいな感じ。
自分で作ったものを自分で利用する分には当然問題ないんだけどね。
VBAの言語機能の弱さを考えると、クラス間の関連のある体系的な使い方を実現するのは厳しいだろう。

2017/07/27(木) 17:44:10.44

>>616
俺は工夫を強いられてる時点でうんちだと言っている
以上です

**デフォルトの名無しさん** (JP 0H76-ZO1u) · 2017/07/27(木) 17:59:09.25

経験不足だね
言語10個くらいマスターしてこい

2017/07/27(木) 19:42:01.40

某サイトを参考にメールを一括作成するVBAを書いています。
createitemfromtemplateの行で「実行時エラー13 型が一致しません」というエラーが出ます。
どうやらcreateitemfromtemplateがうまく機能していないようなのですが、解決方法を教えていただけませんでしょうか。
よろしくお願いいたします。
※「Microsoft Outlook 14.0 Object Library」の参照設定はONになっています。
-----------------------------------
Sub main()

Dim OL As New Outlook.Application
Dim M As MailItem

Dim MaxRow: MaxRow = Range("A1").End(xlDown).Row

For i = 2 To MaxRow
Set M = OL.createitemfromtemplate("D:\本文.msg")

M.To = Cells(i, 列.件名).Value
M.Subject = Cells(i, 列.件名).Value
M.Attachments.Add "D:\" & Cells(i, 列.添付ファイル).Value
M.HTMLBody = Replace(M.HTMLBody, "●●", Cells(i, 列.氏名).Value)
M.SaveAs "D:\" & Cells(i, 列.企業名).Value & "_" & Cells(i, 列.氏名).Value & ".msg"
Next

End Sub
-----------------------------------

2017/07/27(木) 20:32:44.20

>>620
msdnのリファレンスをみると
Outlookテンプレート（.oft）を指定しろって書いてあるので
怒られているとおり、型がちがうのでしょう。

CreateItemメソッドを使えばいいんじゃないでしょうか。

2017/07/27(木) 21:59:25.00

オブジェクト指向がどうこうって語りたいなら

オブジェクト指向
って言葉と
オブジェクト指向言語
って言葉をちゃんと区別して発言して下さい

**620** (ｱｳｰｲﾓ MM9f-k5Qo) · 2017/07/27(木) 22:07:28.99

>>621
返信ありがとうございます！！
すみません、CreateItemでも変わらずエラーでした・・。
ちなみに下記のように.oftを指定しても同じでした。
これは本当に不思議です・・・。

---------------------------------------
Sub test03()

Dim OL As New Outlook.Application
Dim M As MailItem
Set M = OL.CreateItemFromTemplate("D:\本文.oft")

M.To = "aaaa@bbb.co.jp"
M.SaveAs "D:\test03.msg"

End Sub
---------------------------------------

2017/07/27(木) 22:19:54.50

関西のお笑いと関西のお笑い芸人も区別して語るべきなのか？

2017/07/27(木) 22:40:28.48

>>624
そうよ

2017/07/27(木) 22:46:54.67

俺予想だと、2023年くらいに.NETと統合されるので、大丈夫じゃないの。

2017/07/27(木) 23:04:48.75

>>623
Sub test()

Dim ol As New Outlook.Application
Dim mi As MailItem
Set mi = ol.CreateItem(olMailItem)
mi.Display

End Sub

この最小構成でメール編集画面がでるかお試しを。
出なかったら参照設定が変なのかも。
Excelのバージョンが変わると勝手に参照設定のバージョンも
変わるという罠に引っかかったことがあるので。
実行時バインディングでやってみると言う手もあり。

**620** (ｱｳｰｲﾓ MM9f-6wLz) · 2017/07/27(木) 23:18:55.37

>>627
最小構成でやってみると、やはり同じエラーでした！
これは、参照ができていないのですか？？

2017/07/27(木) 23:25:30.12

'// 1行目の項目名が、A列から順に
'//［アドレス］［件名］［添付ファイルパス］［本文］
'// のとき､

Dim dataSet
Dim lastRow As Long
Dim i As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
dataSet = Range(Cells(2, 1), Cells(lastRow, 4)).Value

With CreateObject("Outlook.Application")
　　.GetNamespace("MAPI").GetDefaultFolder(16).Display
　　For i = 1 To lastRow - 1
　　　　With .CreateItem(olMailItem)
　　　　　　.To = dataSet(i, 1)
　　　　　　.Subject = dataSet(i, 2)
　　　　　　.Attachments.Add dataSet(i, 3)
　　　　　　.Body = dataSet(i, 4)
　　　　　　.Save
　　　　End With
　　Next i
End With

2017/07/27(木) 23:27:06.45

>>628
よく考えたら、参照ならその前にエラーを吐きそう。
ためしに

Sub test()

Dim ol As Object
Set ol = CreateObject("Outlook.Application")
Dim mi As Object
Set mi = ol.CreateItem(olMailItem)
mi.Display

End Sub
これをOption Explicitを無効にして実行したら
どうなるでしょうか？

だめならOS再起動してみる。
どうにも理解不能なエラーがこれで直ったことがあるｗ。

2017/07/27(木) 23:56:32.00

>>628
まず、そのユーザーでOutlookはちゃんと動いてメールの送受信できるのか？

**620** (ｱｳｰｲﾓ MM9f-6wLz) · 2017/07/28(金) 00:24:24.58

>>630
試しましたが同じエラーでした。

>>631
問題なくできています。

みなさん、ご協力ありがとうございます。ご迷惑おかけしてすみません。
今気づいたのですが参照先が14.0でした。最新は15.0なんですよね？これが原因でしょうか？

**620** (ｱｳｱｳｱｰ Sab6-6wLz) · 2017/07/28(金) 04:23:09.57

皆様ありがとうございました！　
理由はわかりませんが突然できるようになりました！
本当にご迷惑おかけしました！

2017/07/28(金) 04:32:44.73

>>632
ごめん。コード間違ってた。orz

参照設定をoffにし、↓のコードで試してみて。

'// olMailItemを直値（0）に変えた
Dim dataSet
Dim lastRow As Long
Dim i As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
dataSet = Range(Cells(2, 1), Cells(lastRow, 4)).Value

With CreateObject("Outlook.Application")
　　.GetNamespace("MAPI").GetDefaultFolder(16).Display
　　For i = 1 To lastRow - 1
　　　　With .CreateItem(0)
　　　　　　.To = dataSet(i, 1)
　　　　　　.Subject = dataSet(i, 2)
　　　　　　.Attachments.Add dataSet(i, 3)
　　　　　　.Body = dataSet(i, 4)
　　　　　　.Save
　　　　End With
　　Next i
End With

2017/07/28(金) 04:34:16.17

一歩遅かったか…orz

**620** (ｱｳｱｳｱｰ Sab6-6wLz) · 2017/07/28(金) 06:49:10.86

>>635
おはようございます！
ありがとうございます！

2017/07/28(金) 23:02:57.85

win10
excel2016で
MSXML2.XMLHTTPを使って
responseTextでgoogle検索結果のページを取得しようとすると、
responseTextで返ってきたものが、今までwin7 excel2007などで返ってきたものと全然違うんですが、win7の時のように受け取る方法ってありませんか？

win7の時はhtmlそのものが返ってきてましたがwin10では最初の方が判読困難です。

やろうとしていることは、vbaでgoogle画像検索の結果の画像をセルに表示しようと思ってます。

2017/07/30(日) 10:16:32.82

そういえば responseBody しか使ったことないなあ
（adTypeBinary な ADODB オブジェクトに Write するために）

2017/07/30(日) 12:41:33.40

すみません、いろいろ試してたんですが、google以外ではちゃんと同じようなものを受け取れてました。
googleでは環境によって返すものが違うのかもしれません。
その先はスレ違いになるので自分でいろいろやってみます。ありがとうございました。

2017/07/30(日) 15:24:50.24

api以外でgoogleの検索結果を取得しないほうがいい
すぐにアクセス禁止になる

2017/08/02(水) 00:57:39.97

Function Name2Adr(str As String)
Dim Cts As Folder, Ct As ContactItem
Set Cts = CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
Set Ct = Cts.Items.Find("[Email1DisplayName] = '" & str & "'")

If Ct Is Nothing Then Name2Adr = "不明" Else Name2Adr = Ct.Email1Address

Set Cts = Nothing: Set Ct = Nothing
End Function
↑ローカルのアドレス帳から表示名を検索しメアドを返す関数です。これはうまくいくのですが、
↓下のグローバルアドレス帳を検索するものがうまくいきません。エラーメッセージは「オブジェクトはこのプロパティまたはメソッドをサポートしていません」です。
どなたか解決法をご教示ください。よろしくお願いします。
Function gName2Adr(str As String)
Dim olApplication As Outlook.Application
Dim olNameSpace As Outlook.Namespace
Dim olAddressLists As Outlook.AddressLists
Dim olAddressList As Outlook.AddressList
Dim olAddressEntries As Outlook.AddressEntries

Set olApplication = New Outlook.Application
Set olNameSpace = olApplication.Session
Set olAddressLists = olNameSpace.AddressLists
Set olAddressList = olAddressLists.Item(2)
Set olAddressEntries = olAddressList.AddressEntries

Dim olAddressEntry As Outlook.AddressEntry
Set olAddressEntry = olAddressEntries.Items.Find("[Email1DisplayName] = '" & str & "'") '←この行でエラー
If olAddressEntry Is Nothing Then gName2Adr = "不明" Else gName2Adr = olAddressEntry.Email1Address
End Function

2017/08/02(水) 02:57:39.31

>>641
名前長いな

2017/08/02(水) 06:22:21.40

少々長くてもわかりやすい名前をつけるのが基本だからね。
ハンガリアンよりは全然いい。

2017/08/02(水) 06:31:28.66

少々長くても分かりやすい名前を付ける、それがハンガリアン記法

想像してるのはたぶんシステムハンガリアン記法

2017/08/02(水) 07:20:47.27

変数はAddressなのにメソッド名はAdrで統一してないのは理由あるの？

2017/08/02(水) 07:40:08.64

変数名長いなぁ
olAppとかAdrListとかにすれば良いやん

2017/08/02(水) 07:40:35.97

>>644
単に「ハンガリアン」と言った場合は、システムハンガリアンの意味で用いられていることが多い。

ということでどうかひとつ。

2017/08/02(水) 07:44:09.62

>>646
むしろ関数名を

GetNameToAdddress

にしたほうがいいかも。

2017/08/02(水) 07:44:43.49

>>641
Dim Cts As Folder, Ct As ContactItem
で
ユーザー定義型が定義されてません
エラーが出た

2017/08/02(水) 08:11:17.19

>>649
参照設定してないだけじゃね？

2017/08/02(水) 08:56:23.68

>>650
まぁそうだけど、どれ参照するのか探すのめんどい
開発用に、コンポーネント参照の全選択ほしいな。それともあるんかな？

2017/08/02(水) 09:10:48.85

>>650
649は店に来たお客さんのつもりのようだから、まともに相手する必要はないよ

2017/08/02(水) 11:50:02.54

単なる自己満足なんだからそこまで突っ込むなよ
どうせ永遠に平行線なんだろ？

2017/08/02(水) 12:08:29.03

>>648
メソッドの頭文字は小文字にしたいな
あとd多いのはなんか意図あるの？

2017/08/02(水) 12:26:23.95

>>654
ごめん、dはタイプミスだ。

メソッドの頭文字を小文字にするのは何流？
VBA流では大文字だよね。

2017/08/02(水) 12:33:57.68

>>655
言語関係なくただのキャメルケースだよ

**641** (ｵｲｺﾗﾐﾈｵ MMb6-Cs75) · 2017/08/02(水) 13:14:55.44

みなさん、ご迷惑おかけしてすみません。
outlook vbaのスレに書くべき質問だったでしょうか、、

>>649
すみません、outlookのライブラリです。
よろしくお願いします。

2017/08/02(水) 15:50:17.32

>>656
いや、だからメソッドをキャメルケースにするのは何流なのかなと。

2017/08/02(水) 16:45:06.13

>>658
javascriptはキャメルだと思う

**641** (ｵｲｺﾗﾐﾈｵ MMb6-Cs75) · 2017/08/02(水) 16:56:06.29

みなさん、ご迷惑おかけしてすみません。
outlook vbaのスレに書くべき質問だったでしょうか、、

>>649
すみません、outlookのライブラリです。
よろしくお願いします。

2017/08/02(水) 18:07:23.96

>>659
IDの最後がvbaだ。ｶｺｲｲ

なるほど、メソッドキャメルはJS流だったのね。ｻﾝｸｽ

2017/08/02(水) 18:28:23.95

>>660
Outlook VBA スレないからまあここでもいいと思うが仕事中に軽くググった範疇だといい方法が見つからん
> Set olAddressEntry = olAddressEntries.Items.Find("[Email1DisplayName] = '" & str & "'") '←この行でエラー
Items.Find( ) は Folder オブジェクトしか持ってないからここでエラーになるのは当然
グローバルアドレス帳（Global Address List）は GetGlobalAddressList( ) で取得できるし内容も入っているんだが取得したリストの GetContactsFolder( ) を呼び出しても Nothing しか返ってこない
何か設定が要るのか根本的に頓珍漢なのかさっぱりわからん

2017/08/02(水) 19:58:09.08

ここでも聞いてみれば？

つ【VBAなんでも質問スレ Part2】
http://mevius.2ch.net/test/read.cgi/tech/1432173164/

**620** (ｱｳｱｳｱｰ Sa83-zhMW) · 2017/08/03(木) 06:23:52.11

>>662
ありがとうございます！勉強になります。

> グローバルアドレス帳（Global Address List）は GetGlobalAddressList( ) で取得できるし内容も入っているんだが

↑その内容というのは、debug.printで見ることはできますでしょうか？？

2017/08/03(木) 07:51:33.57

>>664
foo = bar.GetGlobalAddressList( )
をどこかに入れてfooをウォッチ式で見る

2017/08/03(木) 08:16:18.57

>>664
Set GlobalAddressList = Namespace.GlobalAddressList( )
Debug.Print GlobalAddressList.AddressEntries.Item(1).Name
とかすれば見れるよ
全件エクスポートするサンプルとかあるので見てみて
https://www.slipstick.com/developer/code-samples/export-exchange-gal-excel/

2017/08/04(金) 13:47:28.51

バージョンが上がって日付時刻型の除算ができなくなりました。バリアント型にしても空になります。
対応方法はありませんでしょうか？
また、こういう仕様変更はどこで確認できますか？

2017/08/04(金) 19:09:28.11

>>667
Dateの除算てなんのためにやるんだっけ？
CLngとかしてからじゃダメなの？

2017/08/04(金) 19:49:21.85

日付じゃなくて時刻（時間）で除算したいのでは？
1950/1/1を2で割って1925/1/1…なんてことはしないだろう

>>667
office　更新プログラム等で検索
https://support.office.com/ja-jp/article/Office-%E6%9B%B4%E6%96%B0%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0-a118ec61-f007-492f-bfa5-5a6f764d5471

2017/08/04(金) 20:11:22.22

時刻ですね

2017/08/05(土) 08:53:42.25

>>667
エラーの出たコードを書いてみて。
あとバージョンも。2016？

2017/08/05(土) 09:48:36.05

2010でも時刻の割り算できたけど？

2017/08/05(土) 10:09:48.61

じゃあ、この話題はこれで終わりだな。

2017/08/05(土) 11:28:42.39

エラーコードは51
データ型が日付時刻の除算はエラーでる

2017/08/05(土) 12:58:50.71

Sub foo()
bar = Date / 2
Debug.Print bar
End Sub

2010、win7だけどエラーでない

2017/08/05(土) 13:00:51.75

>>675
時刻同士で割って見て

2017/08/05(土) 13:07:29.37

ダブルにキャストしてから計算したら
ずれるのかな？

2017/08/05(土) 13:08:47.84

>>676
Sub foo()
bar = Date / Date
Debug.Print bar
End Sub

普通に1になったけど

2017/08/05(土) 13:35:11.02

https://www.youtube.com/watch?v=h_iMHmwQpR8

2017/08/05(土) 16:53:51.52

質問者からのエラーコードの提示がないので無駄な回答だな。

2017/08/05(土) 18:06:14.68

時刻を時刻で割る意義は？　どんな分野で必要と成るんだ？　それは知りたい

2017/08/05(土) 18:54:05.96

バージョンが上がって…
とか言いながらバージョンを書かない馬鹿
指摘されても書かないという

2017/08/05(土) 18:58:41.09

>>681
8時間の就業時間の間に25分掛かる作業を何回できるか見積るとか

2017/08/05(土) 19:00:17.07

しょうもない質問はほっとけばいいんじゃ？
それとも答えたくてウズウズしてる感じ？

2017/08/05(土) 19:45:20.37

>>683
無理くり理由をこじつけてもその程度だよな…ほんと何がしたいんだろうな

2017/08/05(土) 20:31:20.41

質問するのにバージョンも書かない
ID変わってるのに名無しのまま
環境書けと言ってるのに無視
こんな処理する理由は？と聞かれても無視

こんな人間の生産物を現場で使う恐怖

2017/08/05(土) 20:47:12.34

それは時刻で無くて時間だろ　と

2017/08/05(土) 23:20:40.34

>>686
何のためにここで質問したのかわからないよね。

つか、俺たちが釣られただけ？

2017/08/05(土) 23:56:01.89

質問者が軌道修正のために必要な情報を提供しないってのはここではザラにあることだろ。
そんなのによく付き合ってられんなー

2017/08/06(日) 00:12:38.56

質問室じゃねえんだよ

2017/08/06(日) 12:22:25.32

また教えたがりの無能が暴れとるのかｗ

2017/08/06(日) 16:09:44.69

暴れているのはただの煽り

2017/08/07(月) 16:41:33.18

>>678
dim a as date
dim b as date
dim test as date

a = time
b = time
test = a / b

でエラー出た

2017/08/07(月) 16:59:56.15

>>693
地域オプションで先頭が数字以外になるような書式だったとか？

2017/08/07(月) 19:35:32.88

>>693
環境書けよ
なんでエラー出たとか言うやつは環境書かないの

VBAの日付型は原則数値として扱えるはずので
日付型である事が原因でエラーが出るとは考えにくいけどなぁ

ちなみにエラー51のヘルプ(2007)には
>このエラーが Error ステートメントまたは Raise メソッドで生成されたものでなければ、Microsoft 製品テクニカルサポートに連絡して、メッセージが表示されたときの状況を知らせてください
ってあるから、ホントにエラー51出たならEXCELのバグの可能性もないではないな

2017/08/07(月) 20:09:27.70

excel2010 win7
エラーが起こるのは除算の分母側がdateだった時
longにキャストするか、variantで宣言していれば問題ない（もちろん宣言してない場合も問題ない）
バグくさい挙動だなぁ

Sub foo2()
Dim a As Time
Dim b As Time
Dim test As Date

a = Time
b = Time
test_long = (a * 1) / (b * 1) 'ok
test = a / (b * 1) 'ok
test = 1 / b 'error
test = (a * 1) / b 'error
test = a / b 'error
End Sub

Sub foo()
Dim a As Variant
Dim b As Variant
Dim test As Date

a = Time
b = Time
test = a / b 'ok
End Sub

2017/08/07(月) 20:36:42.78

Cdbl()で分母をDoubleにキャストすればいいだけじゃね？

2017/08/07(月) 20:39:22.17

>>697
まぁ解決法としてはそれでも何でもいいし、そもそもdateで除算って事をやらないんだけど
根本的な原因が分からないと、変なとこで悪影響受けそう

2017/08/07(月) 20:54:07.86

Time って
DateTime.Time プロパティのことだよな
Property Time As Variant
だからもともとVariant型

dim a As Time がエラーになるんだが

2017/08/07(月) 21:05:47.61

Date型はVBAのデータ型で"21:02:32"みたいな文字列なんじゃね？
だから計算するとエラーになる
分子にDate型を持ってきたときはDoubleに自動的にキャストされてると予想

2017/08/07(月) 21:13:12.34

>>699
ごめんなさい訂正前の送ってしまいました
定義部分は以下に変えてください

Sub foo2()
Dim a As date
Dim b As date

2017/08/07(月) 23:25:10.55

>>695
2007じゃエラーでないよ

2017/08/07(月) 23:33:20.74

データベースのDATETIME型の値がそのままVBAのDate型変数にマップできれば楽なのに、
1900年以前だとうまくいかないのが残念だ。

2017/08/07(月) 23:39:54.26

>>702
2010とかだとエラーになる

分母にDate型を持ってくるときは
明示的にCdblでキャストすればエラーにならなくできる

MS側にバグレポートしたところで修正するかどうかはMS側次第
仕様変更したと言うかもしれない

2017/08/07(月) 23:59:58.12

そろそろ日付時刻での除算の意味を教えて

2017/08/08(火) 00:39:23.26

>>705
>>683
全くない需要ってわけでもないと思う

2017/08/08(火) 00:57:18.12

キャストしてできるんならなんの問題もないだろう
キャストできない理由があるんじゃないのか？
まさか発想になかったわけじゃないだろうし

2017/08/08(火) 05:17:42.76

つーか質問者本人どこいったんじゃ

2017/08/08(火) 07:26:59.16

>>693
つか、dateをdateで割った答えがdateっておかしくね？

たとえば、60分を15分で割ったら答えは「4分」ではないよね。

なので、

Dim test as Long

とすべき。