Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/01/27(土) 20:25:05.67

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

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/

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

**デフォルトの名無しさん** · 2018/03/17(土) 06:33:04.45

質問です
今EXCELで対戦格闘ゲームを作っているのですが
キャラクター同士の当たり判定は
それぞれ攻撃用、体用と別々に持つことで
正しく動いています。
ただ攻撃が当たった時のヒットマークを表示する位置を
どのように算出すれば良いかが思いつきません。
何か良い方法はないでしょうか？
ちなみにキャラクターはシートのセルを方眼紙のように見立てて
横256*縦200で1セルを1ドットに見立てて行っています。

**デフォルトの名無しさん** · 2018/03/17(土) 07:23:19.78

言い忘れていましたが
当たり判定は各キャラクターの動作毎、絵柄毎に
攻撃用が1～3個、体用が1～5個の四角い範囲を持っていて
それが重なったかどうかで判定を行なっています。
動作とは例えば小パンチとか、大パンチとかを指します。
同じ絵柄でも違う動作の場合は
違う範囲で当たり判定を行えるようにしています。

**デフォルトの名無しさん** · 2018/03/17(土) 07:48:47.16

>>412
スレ違い
ゲームデザインとかアルゴリズムの類であってVBAの質問ではないと思う

**デフォルトの名無しさん** · 2018/03/17(土) 08:14:30.06

>>414
多分そう一蹴されて終わるかもとは思っていました。
興味がある方は返答頂けると有り難いです。

**デフォルトの名無しさん** · 2018/03/17(土) 08:23:52.27

>>415
思っていた？？
なら最初にそう書けよ
スレ違いの上に後出しじゃんけん
一番嫌われるパターン

要約すると「死ね」

**デフォルトの名無しさん** · 2018/03/17(土) 09:02:41.97

生きる!!!!!

(´・ω・｀)b

**デフォルトの名無しさん** · 2018/03/17(土) 09:10:30.63

>>415
「ゲームプログラミングなら俺に聞け」とか、そういうスレの方が絶対いいと思う

**デフォルトの名無しさん** · 2018/03/17(土) 11:01:00.47

ヒットマークとやらをどう表示したいのかも書いてない
こんなんで回答がつくわけない
質問の体を装ったただの俺こんなの作ってるスゲーだろアピール

**デフォルトの名無しさん** · 2018/03/17(土) 12:28:23.68

当たり判定とヒットマークの位置関係だけあらかじめ決めておいて、あとはヒットした当たり判定のセル位置のアドレスなり座標なりからオフセット参照するだけじゃん

**デフォルトの名無しさん** · 2018/03/17(土) 12:53:01.02

>>420
構うなや

どうせまた後出しで「その方法も考えたんですが
～～が～～だからそれではダメなんです。」とか
慇懃無礼にマウント取ってくるから

**デフォルトの名無しさん** · 2018/03/17(土) 13:02:49.05

マウントって簡単に言いすぎ
倫理をふりかざして人を委縮させようとする言動に限らないと
言葉の力がなくなってしまう

**デフォルトの名無しさん** · 2018/03/17(土) 13:38:51.05

>>410
>>411
助かります。やってみます

**デフォルトの名無しさん** · 2018/03/17(土) 14:18:21.64

>>412
もしかして当たった位置が判らないということですか？

**デフォルトの名無しさん** · 2018/03/17(土) 15:07:46.54

>>412
へぇ、このスレでは珍しい質問だね。
あくまでひとつの方法としての提案だけど、
当たり判定が出来るということは攻撃範囲と体範囲って呼んでるけど、
それが重なったことは判定出来てるんだよね？

なら重なった範囲の中心にヒットマークを出すようにすればいいと思うよ。

つまりキャラAの右下セルよりキャラBの左上セルが
左上にあって、かつ
キャラAの左上セルよりキャラBの右下セルが右下にある場合、これがキャラが重なった「当たった」ことに該当するんだけど、
この状態からキャラAの右下セルからキャラBの左上セルの縦横それぞれの差分を出して
それを2で割ってキャラAの右下セルの縦と横にそれぞれ足してやれば求められるはず。

後は複数判定用の範囲を持ってるというところで
どの範囲を優先するかの優先順位をつけて。
頑張って下さいね。

**デフォルトの名無しさん** · 2018/03/17(土) 22:00:46.63

自演死ね

**デフォルトの名無しさん** · 2018/03/18(日) 01:02:38.92

教えてください。
別ブックを範囲（A10:B24）指定してコピーして
現在のブックA10をはじめとした範囲にペーストしたいのですが、
なぜか参照ブックをアクティブにした上で範囲指定ができません。

最初のブック・・・A.xlsm
参照ブック・・・nal.xls　　参照シート：sheet10
参照ブックのデータ最終行・・・i　(24が入っています）

Dim i As Integer

Workbooks("nal.xls").Activate
i = Worksheets("sheet10").Range("A10").End(xlDown).Row

Workbooks("nal.xls").Activate

Worksheets("sheet10").Activate

Range(Cells(10, 1), Cells(i, 2)).Select　　←RangeクラスのSelectメソッドが失敗しました。
Selection.Copy

どなたか助けてください。

**デフォルトの名無しさん** · 2018/03/18(日) 03:11:59.88

複数シートでゴニョゴニョする際は
Worksheets("sheet10").Range(Worksheets("sheet10").Cells(10, 1), Worksheets("sheet10").Cells(i, 2)).Select
と略さずに書くといいよ
デバッグ中につい違うページ開いちゃうと後で泣きを見る

**デフォルトの名無しさん** · 2018/03/18(日) 03:58:35.89

Aブックに、BブックをOpenするコードが書いてあります。
困ったことにBブックが正常に開くこともあれば、
長時間たってもビジー状態が続き開かないこともあります。
これはAブックから開くときだけでなく、Bブックのアイコンをダブルクリックしても同様です。
そんなときでも､エクセルを強制終了した後にBブックを開くとなぜか問題なく開くことも多いです。

Bブックの問題を取り除くのが正しい方法なんでしょうが、とりあえずの対策として、
wb = Workbooks.Open(strPath & "\" & "B.xslm")
で、AブックがBブックをOpenした後に一定時間経過後にBブックの特定のセルの内容を読み取れなければ、
Bブックを強制的に閉じて、再度Bブックを開き直すというコードを書こうと思ったのですが、
wb = Workbooks.Open(strPath & "\" & "B.xslm") を実行すると、
Bブックが開くまでAブックのマクロが止まってしまい、Bブックのセルが読めるかどうか判定することができません｡

どうしたらよいでしょうか？

**デフォルトの名無しさん** · 2018/03/18(日) 04:24:15.80

>>429
開けていないものを閉じろと言うのは無理ゲー

**デフォルトの名無しさん** · 2018/03/18(日) 06:47:14.19

最初にタスクマネージャーで、
起動中のすべてのExcel を、強制終了させてから実行すれば？

たぶん、起動中のExcel が、そのブックをつかんでいるのだろう

**412** · 2018/03/18(日) 11:12:47.56

皆さん色々返答ありがとうございます。
>>420さんと>>425さんの意見を
参考にさせて頂きました。
特に>>425さんの案は取り入れてみたところ
範囲が大きいときでも小さいときでも
見た目いい位置に表示されしかも汎用的に
使えるようでありがたいです。
>>420さんの案は乱舞系必殺技のような
受けた相手の位置を補正しながら出す技に最適のようです。
ちょっと行き詰まったところだったので
非常に助かりました。ありがとうございました。

**デフォルトの名無しさん** · 2018/03/18(日) 11:21:02.32

>>432
VBA初心者でこのスレをたまにチラチラ見ているものですが
「EXCELで対戦格闘ゲーム」ってものがどういうものなのか全然想像できないです
（どうやったらそんなことできるの！　てかどんな画面になるの！！　状態です）

もしよろしければ、何か雰囲気の掴めそうな画像か
もしくは、そういう人たちが作ったゲームのリンクなどを紹介していただけると嬉しいです

**427** · 2018/03/18(日) 21:11:28.30

>>428
お返事遅くなってすみません。
コード丸写しで略さずにかいたところ、うまく動きました。
エラーの前のbookとsheetをアクティブにしただけでは足りなかったようで。
勉強になりました。
ありがとうございました。

**デフォルトの名無しさん** · 2018/03/18(日) 21:34:46.44

**デフォルトの名無しさん** · 2018/03/18(日) 21:35:52.97

ontimeでopenするとかは?

**デフォルトの名無しさん** · 2018/03/19(月) 07:21:13.16

>>433
ちと古いけどこういうのがある

Excel VBA アクションゲーム作成入門 Excel 2007/2003/2002 対応
https://book.impress.co.jp/books/2686

**デフォルトの名無しさん** · 2018/03/19(月) 20:14:20.80

>>437
紹介ありがとうだけど…、本だとやっぱりよく実感がつかめない…
でその本のタイトルで色々ググってみたら実際にゲームをやってる動画が出てきた

エクセルでスーパーマリオを作ってみた
http://www.nico video.jp/watch/sm12052293

Excelでこんなものが作れちゃうってすごい！（というか見てもなお信じられないが）

**デフォルトの名無しさん** · 2018/03/19(月) 20:59:21.19

>>438
お前みたいな馬鹿には無理ってだけ
dll呼び出しできるから何でもやろうと思えばできる

**デフォルトの名無しさん** · 2018/03/19(月) 22:27:28.31

スーパーマリオのDLLとかあるんか？
すげーなエクセルって

**デフォルトの名無しさん** · 2018/03/19(月) 23:08:18.69

>>440
DLLは自分でいくらでも作れるし、スーパーマリオもDLL化は可能だけど普通はそんなバカなことはやらない

**デフォルトの名無しさん** · 2018/03/20(火) 00:08:55.57

>>439
バカはお前
DLLなんていくら出来たところでゲーム作れるだけの知識がなければ何も出来ない
知ったかぶりしてないで死んどけゴミ

**デフォルトの名無しさん** · 2018/03/20(火) 00:13:05.69

>>442
作れる知識と作る意義を感じるかは別問題
馬鹿は死ねよ

**デフォルトの名無しさん** · 2018/03/20(火) 01:20:07.81

はいはい、メゾット君は無視しましょうね～

**デフォルトの名無しさん** · 2018/03/20(火) 06:01:07.86

メゾット野郎はいつも口先ばかりwwwwwwww
違うってんならゲーム作ってみせろ無能wwwwwwwwwww

**デフォルトの名無しさん** · 2018/03/20(火) 08:02:11.84

ゲームをエクセルで作る意味って何があるの？

**デフォルトの名無しさん** · 2018/03/20(火) 08:03:53.80

意味は他人に教わるものじゃない
自分で見出すのだ

**デフォルトの名無しさん** · 2018/03/20(火) 08:14:23.93

やろうと思えばできるって言ってもなあ
やってない人が言ってもみたいな

**デフォルトの名無しさん** · 2018/03/20(火) 08:32:50.91

マリオのゲームってもコントロールしてるわけじゃないでしょ？
ドットに色表示してるだけじゃないの？

**デフォルトの名無しさん** · 2018/03/20(火) 09:49:54.48

>>439
DLL使うんならExcelでやる意味なさそうだがな

Excelのセルでドット絵を描いてVBAでアクションゲームを作るということに
Excelでアクションゲームを作る意義があるんだと思うが

**デフォルトの名無しさん** · 2018/03/20(火) 15:10:05.57

>>449
> マリオのゲームってもコントロールしてるわけじゃないでしょ？
> ドットに色表示してるだけじゃないの？
本まである（>>437）のに何言ってるんだろう…

**デフォルトの名無しさん** · 2018/03/20(火) 16:00:38.63

DLLしたあとｲﾝｽｺするんだったっけ。

**デフォルトの名無しさん** · 2018/03/20(火) 19:53:45.15

>>452
同じフォルダに置いておけば使えるだろw

**デフォルトの名無しさん** · 2018/03/20(火) 20:20:30.33

ボケ殺し

**デフォルトの名無しさん** · 2018/03/20(火) 22:16:37.59

アスペなんやで

**デフォルトの名無しさん** · 2018/03/20(火) 22:48:23.28

質問です。
任意のフォルダ（ThisBookと同じフォルダ）の中にある
xlsファイルの数を取得する方法を考えています。

Dim N as Integer
　　With CreateObject("Scripting.FileSystemObject")
For Each ff In .GetFolder(ThisWorkbook.Path).Files
If UCase(.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
Next
End With

ネットで調べてみたものの、カウントがされません。
現在対象のフォルダにはxlsファイルが一つあります。
どこを修正すれば良いのでしょうか。
教えてください。

**デフォルトの名無しさん** · 2018/03/20(火) 23:07:13.92

>>456
UCaseの意味をもう一度調べてみれば？

**デフォルトの名無しさん** · 2018/03/20(火) 23:25:24.58

Ruby なら、これだけだが

puts Dir.glob('*.txt').size #=> 5

**デフォルトの名無しさん** · 2018/03/20(火) 23:29:52.36

>>457
調べました。
UCaseではなく、LCaseだったんですね。
先に進めました。
ありがとうございました。

**デフォルトの名無しさん** · 2018/03/21(水) 11:16:23.41

>>459
UCase/LCase　よりも
StrConv(, vbUpperCase) や StrConv(, vbLowerCase)
を使った方がより良いと思う。

なんとなくだが

**デフォルトの名無しさん** · 2018/03/21(水) 23:19:13.74

そーゆー感性ってすごく大事

なんとなくだが

**デフォルトの名無しさん** · 2018/03/22(木) 23:48:33.27

そいうWithの使い方は嫌い

んとなくだが

**デフォルトの名無しさん** · 2018/03/23(金) 05:10:41.67

寧ろ、with はああいう使い方をすべきなんじゃないの。単なる記述の省略としてだけでなく。

**デフォルトの名無しさん** · 2018/03/23(金) 07:23:25.20

いんや、.NetのUsingみたいに解放は確実に出来るけど
ひとつのスコープにひとつしか使えないし
コーディングに慣れてる人には
一瞬、どこで生成してるの？ってなるから
可読性の見地からイマイチかなと思う

**デフォルトの名無しさん** · 2018/03/23(金) 07:26:59.80

既におなじみの使い方だろうとしか

**デフォルトの名無しさん** · 2018/03/23(金) 07:47:34.14

withってusingみたいに解放してくれるんだ
Set使うより簡潔にできるのね

**デフォルトの名無しさん** · 2018/03/23(金) 08:04:55.76

>>464
> コーディングに慣れてる人には
> 一瞬、どこで生成してるの？ってなるから
普通にインデントしてたらそんなことにならん

> 可読性の見地からイマイチかなと思う
お前だけだろ

**デフォルトの名無しさん** · 2018/03/23(金) 08:12:14.14

こんなもんコピペグラマーでもしょっちゅう目にしてるはず
この程度でわかりにくいとか、どんだけ素人だ

ただ、老眼の俺にはドットの見落とし、書き漏らしがちょっと怖い

**デフォルトの名無しさん** · 2018/03/23(金) 12:22:12.90

>>466
自分も初めて知った。
けどネスト深くなると、破棄されたか分かりにくそうではある。
オブジェクト残ってると問題出るプログラムの場合はちょっと使うの怖いな

**デフォルトの名無しさん** · 2018/03/23(金) 18:30:24.67

>>466
withでcloseはしないんじゃないの?
あくまでusingぽくて分かりやすいというだけで。

**デフォルトの名無しさん** · 2018/03/23(金) 19:28:31.68

>>470
自作クラスに Sub Class_Terminate() を定義してステップ実行してみればわかる。
End With 後にちゃんと呼び出されるから。

**デフォルトの名無しさん** · 2018/03/23(金) 20:26:02.56

無知なのは仕方がないとしてもEnd Withの後にClass_Terminateが呼び出されるのなら
論理的な帰結としてWithがオブジェクトの解放をしているのではないと気がついて欲しかったなあ

**デフォルトの名無しさん** · 2018/03/23(金) 20:32:59.84

>>472
解放、close
どっち？

**デフォルトの名無しさん** · 2018/03/23(金) 20:43:47.72

それに「無知」とは何のことかな？
非明示的にデストラクトされてもFreeはされない言語があってその事を知らない、という意味かな？
だとしたら知らない

**デフォルトの名無しさん** · 2018/03/23(金) 22:16:31.73

>>467
>>468
同じ階層に同じようなObjectがある場合、
Withを使ってる奴だけそんな方法で解放するの？
統一性のないコーディングだなぁ

**デフォルトの名無しさん** · 2018/03/23(金) 22:31:56.84

解放の方法が違う程度の事を気にしてたら現場で発狂しまくりだろうなぁ

**デフォルトの名無しさん** · 2018/03/24(土) 00:04:50.79

スタイルは大事だから気にするわな。
気にしない奴はバグ増えまくりだ。
現場が忙しくなると崩れて来る。
そして俺のバグも増えるというわけさ。

気にしない奴とは仕事したくないな。

**デフォルトの名無しさん** · 2018/03/24(土) 00:39:44.09

解放の方法てwそんなもんないわwww

**デフォルトの名無しさん** · 2018/03/24(土) 01:08:51.19

プログラマってどういう大学のでの人たちがやってるんだ？
あんま高学歴のイメージ湧かないんだけど

**デフォルトの名無しさん** · 2018/03/24(土) 02:40:55.22

Withをネストして内側から外側を参照するにはどうすればいいの？
最悪それ自身のオブジェクトを変数に保持できればいいけどできないよね？

>>456を例にとると（この場合ネストするメリットは何もないけど）
Dim N As Integer
　With CreateObject("Scripting.FileSystemObject")
　　Dim obj As Object
　　Set obj = .
　　With .GetFolder(ThisWorkbook.Path)
　For Each ff In .Files
　If LCase(obj.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　Next
　　End With
End With
とか
Dim N As Integer
　With CreateObject("Scripting.FileSystemObject")
　　With .GetFolder(ThisWorkbook.Path)
　For Each ff In .Files
　If LCase(..GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　Next
　　End With
End With
とか

**470** · 2018/03/24(土) 02:46:47.80

スマソが、結局>>456のコードにおいて、fileSystemObjectはEnd withのタイミングでfreeされるってことでok?
で、With OpenTextFile()とした場合も同様にcloseされる理解でok?

**デフォルトの名無しさん** · 2018/03/24(土) 02:53:52.34

>>480
ヘルプにネストすんなボケカスと書いてあったような。
未確認発言失礼。MS-Officeが無いもので。

**デフォルトの名無しさん** · 2018/03/24(土) 03:02:44.42

>>481
With New ObjectX
.Exec
End With
は、
Dim obj As ObjectX
Set obj = New ObjectX
obj.Exec
Set obj = Nothing
と同等という理解

根拠となる文献は↓の人が挙げてくれるはず

**デフォルトの名無しさん** · 2018/03/24(土) 03:12:24.84

つまりNothingを代入してもオブジェクトが解放されないのと同様にEnd Withでオブジェクトは解放されない
たまたまそこでオブジェクトの参照カウントが0になったから解放されただけ

**デフォルトの名無しさん** · 2018/03/24(土) 04:09:07.06

> freeされる
という表現が悪かったか。
Nothing代入と等価ならそれでええです。いずれにせよその類の機能はwithに無いと思っていたので。
ありがとう。

**デフォルトの名無しさん** · 2018/03/24(土) 05:50:00.67

>>484
うん？.Net系と勘違いしてない？
.Net系は確かに参照しているところが無くなればガベージコレクションで解放するけど
VBAや旧VBであるVB6はNothingを入れるとそのObjectそのものが解放される仕組みだと思ったけど

**デフォルトの名無しさん** · 2018/03/24(土) 05:57:47.30

参考までに

With New ObjectX
.Exec
End With
→End Withで解放される

With New ObjectY
.Exec
GoTo Line1
End With
Line1:
→解放されない(関数の最後で解放)

GoTo Line2
With New ObjectZ
Line2:
.Exec
End With
→生成されない(.Execで実行時エラー)

**デフォルトの名無しさん** · 2018/03/24(土) 06:08:07.14

>>486
仮にClass1で以下のプロパティが定義されているとすると
Public Property Get Self() As Class1
Set Self = Me
End Property

以下のWithで生成されたオブジェクトはEnd Withで解放されない
Dim obj As Class1
With New Class1
Set obj = .Self
End With

**デフォルトの名無しさん** · 2018/03/24(土) 06:24:23.25

>>488
同様にNotingを入れると？

**デフォルトの名無しさん** · 2018/03/24(土) 08:07:41.90

>>475
そういう場合は使わなきゃいいだけ
応用力ないの？

**デフォルトの名無しさん** · 2018/03/24(土) 08:16:33.84

>>490
そういうのは応用とは言わない
一貫性が無いと言う

**デフォルトの名無しさん** · 2018/03/24(土) 08:21:58.80

VBA Set Obj = Nothing は必要か
http://thom.hateblo.jp/entry/2015/12/20/135035

**デフォルトの名無しさん** · 2018/03/24(土) 08:41:38.11

>>484
これでしょ

**デフォルトの名無しさん** · 2018/03/24(土) 09:04:16.28

>>491
一貫性の話はコードの話
応用力はお前自身の話
まあそう言うことも理解できてないバカなのはわかった w

**デフォルトの名無しさん** · 2018/03/24(土) 09:33:19.46

俺はオブジェクトにNothingを入れるのを諦めた
プロシージャの途中で条件によりExit Subする時とかまでカバーしようとすると
コードが変な方向にねじ曲がっていく

**デフォルトの名無しさん** · 2018/03/24(土) 09:40:33.58

>>494
悔しくて草生やした時点でお前の負け

**デフォルトの名無しさん** · 2018/03/24(土) 10:14:46.87

>>480

Parentプロパティってのがあったような
https://oshiete.goo.ne.jp/qa/2463803.html

**デフォルトの名無しさん** · 2018/03/24(土) 10:19:01.04

>>489
何を勘違いしているのか知らんが、Nothingを入れても参照が残っている限り解放はされない

>>488のClass1の定義で、

Dim obj As Class1
Dim obj_ref As Class1

Set obj = New Class1

Set obj_ref = obj.Self

Set obj = Nothing
→「New Class1」で生成したオブジェクトは解放されない（参照が残っているから）

**デフォルトの名無しさん** · 2018/03/24(土) 10:33:33.02

>>486
未だにNothing代入の誤解が蔓延っているんだな
旧VBプログラマーの無知が作りだした因習が新参のマクロプログラマーに受け継がれるっていう
もはやウイルスの如き感染力

**デフォルトの名無しさん** · 2018/03/24(土) 10:43:35.46

>>496
反論できなくて悔しいね w

**デフォルトの名無しさん** · 2018/03/24(土) 10:50:03.59

>>497
それはFormにあると言うだけで全てのオブジェクトにあるわけじゃない
>>480みたいにネストしてあれこれやりたいなら素直に変数にSetした方がいい

**デフォルトの名無しさん** · 2018/03/24(土) 10:50:20.70

>>500
バカはしゃべるな

**デフォルトの名無しさん** · 2018/03/24(土) 11:44:41.58

「ネストしているときはWithを使えないからネストしないときもWithはやめよう」
　↑
これを「一貫性」と呼ぶのか？流石にそういう主張じゃないよな。

**デフォルトの名無しさん** · 2018/03/24(土) 11:51:46.46

ExcelがPythonをネイティブサポートしたら世界はどう変わるか。

**デフォルトの名無しさん** · 2018/03/24(土) 11:55:52.55

>>502
>>500 w

**デフォルトの名無しさん** · 2018/03/24(土) 12:03:27.93

応用力とは言わないんじゃないの
その場しのぎの対応は、一貫性がないんだよ

**デフォルトの名無しさん** · 2018/03/24(土) 12:22:38.50

>>480の汎用的な解ができたよー

【標準モジュール】
Public Function ObjectWrapper(ByRef ObjectRef As Object, Optional ByRef ParentWrapper As ObjectWrapperClass = Nothing) As ObjectWrapperClass
　 Dim wrapper As ObjectWrapperClass
　 Set wrapper = New ObjectWrapperClass
　 Set wrapper.Ref = ObjectRef
　 Set wrapper.Parent = ParentWrapper
　 Set ObjectWrapper = wrapper
End Function

【クラスモジュール : ObjectWrapperClass】
Private m_ref As Object
Private m_parent As ObjectWrapperClass

Public Property Set Ref(ByRef ObjectRef As Object)
　 Set m_ref = ObjectRef
End Property
Public Property Get Ref() As Object
　 Set Ref = m_ref
End Property

Public Property Set Parent(ByRef ObjectWrapper As ObjectWrapperClass)
　 Set m_parent = ObjectWrapper
End Property
Public Property Get Parent() As ObjectWrapperClass
　 Set Parent = m_parent
End Property

Public Property Get Self() As Object
　 Set Self = Me
End Property

**デフォルトの名無しさん** · 2018/03/24(土) 12:24:31.16

>>507の使用例

With ObjectWrapper(CreateObject("Scripting.FileSystemObject"))
　 With ObjectWrapper(.Ref.GetFolder(ThisWorkbook.Path), .Self)
　　 For Each ff In .Ref.Files
　　　If LCase(.Parent.Ref.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　　 Next
　 End With
End With

**デフォルトの名無しさん** · 2018/03/24(土) 13:02:42.69

java臭いw

**デフォルトの名無しさん** · 2018/03/24(土) 15:59:40.14

1点質問です。

ODBC接続するマイクロソフトクエリ（xxxx.dqy)をエクセルVBA(EXCEL2010)から起動する際、
ユーザとパスワードを自動入力してログインするマクロを作成したいのですが、
どのように記載すればいいでしょうか。詳しい方、ご教示下さい。
宜しくお願い致します。

sub mac()

Workbooks.Open ("C:\TEMP\xxxx.dqy")
'/// ユーザ(abc)、パスワード(p1a#s%s)自動入力

end sub

**デフォルトの名無しさん** · 2018/03/24(土) 17:38:17.30

>>504
どっかのサイトからポトペタして貼り付けたのが動きませんけどって
阿鼻叫喚の地獄絵図