Excel VBA 質問スレ Part82

**デフォルトの名無しさん** · 2025/01/24(金) 03:31:15.25

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

次スレは>>980が立てること
無理なら細かく安価指定

関連スレ
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/
Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1700826110/

※前スレ
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
Excel VBA 質問スレ Part80
https://mevius.5ch.net/test/read.cgi/tech/1685489018/
Excel VBA 質問スレ Part81
https://mevius.5ch.net/test/read.cgi/tech/1713416618/

**デフォルトの名無しさん** · 2025/06/02(月) 15:03:33.91

馬鹿はそんなことも判らないのか

**デフォルトの名無しさん** · 2025/06/02(月) 15:07:32.82

>>880
スレタイ読めない馬鹿ｗ

**デフォルトの名無しさん** · 2025/06/02(月) 19:50:00.14

>>614
ひとつのモジュールにはひとつの役割を
ひとつのプロシージャにもひとつの役割を
与えて書けばいいんじゃない？
もちろん、モジュールとプロシージャでは
与える役割が全然変わってくるけど

例えばモジュールに車という役割を与えたら
プロシージャには走る役割を与えたり

後はセンス

**デフォルトの名無しさん** · 2025/06/02(月) 20:06:38.96

ありがとうございます
やはり　on error goto ラベル名　なのですね

**デフォルトの名無しさん** · 2025/06/02(月) 20:25:45.14

on error resume next
ヤバそうな処理
if err.number<>0 then
エラーリカバリー
end if
on error goto0

**デフォルトの名無しさん** · 2025/06/02(月) 20:45:44.86

>>884
エラーが発生している、あるいはしそうな処理がある、というよりは、マクロ実行中にどんなバグでも発生したら、発生した時点で終了させる必要があります

**デフォルトの名無しさん** · 2025/06/02(月) 21:35:59.74

終了前に
err.number = エラー番号
をセットしてジャンプさせるハンドラがいる
こわー

**デフォルトの名無しさん** · 2025/06/02(月) 22:06:18.54

Sub Div0()
On Error GoTo Err
MsgBox 1 / 1
MsgBox 1 / 0
MsgBox 1 / -1
Err:
MsgBox "ゼロで割るな、クソが"
End
End Sub

**デフォルトの名無しさん** · 2025/06/02(月) 22:26:41.07

Err: の前で Exit Sub しないと

**デフォルトの名無しさん** · 2025/06/03(火) 07:35:55.27

異常が起きる前にファイル開いてた場合、closeしないで終了してしまうとかある

**デフォルトの名無しさん** · 2025/06/03(火) 07:39:00.03

VBAのツール作りは時間がかかるのが当たり前でしょうか？
作り方は分かっているし、作るツールもたいしたものではないのに、それでも1日2日では終わらないです

**デフォルトの名無しさん** · 2025/06/03(火) 10:48:59.43

ものによる、人による、まともにテストしてるかにもよる

**デフォルトの名無しさん** · 2025/06/03(火) 10:57:06.67

どうせ著作権侵害や不正アクセスツールだろ

**デフォルトの名無しさん** · 2025/06/03(火) 19:25:30.47

>>890
まぁそうだね
だから綺麗に部品化しておくことが大事なんだよ
それを後で使い回せるようにね

**デフォルトの名無しさん** · 2025/06/03(火) 20:26:44.49

自分が勤めている会社で理解者や協力者を増やそうと、少しでもVBAに興味を示した人や、VBAを齧っている人を相手に勉強会を開催しても、結局VBAがわかる人は少ない
という話を聞きますが、やっぱりVBAといえど、難しいのでしょうか？
Power Queryでもそういう話を聞きます

**デフォルトの名無しさん** · 2025/06/03(火) 21:02:42.93

VBAが難しくないんだったらさっさとVBA卒業して本職のITエンジニアになった方が稼げるからねえ
向上心がありすぎてもいけない、中途半端なツールなので

**デフォルトの名無しさん** · 2025/06/03(火) 21:09:44.47

チンタラ残業代稼いでる人にとって効率化は最大の敵
VBAにしろRPAにしろ最大の抵抗勢力よ

**デフォルトの名無しさん** · 2025/06/03(火) 22:04:21.82

>>872 で愚痴って終わりなのもアレだから一応書いとく

・事象
　FileSystemObject.TextStream.ReadLine と ADODB.Stream.ReadText(adReadLine) が同じ結果にならない

・原因
　改行コードが CRLF と LF が混じったお行儀のよろしくないファイルだった

・対処
　LineSeparator = adLF として Replace(ReadText(adReadLine), vbCr, "")
　とやったらOKだった

**デフォルトの名無しさん** · 2025/06/03(火) 23:26:25.06

>>897
Microsoftのマニュアルよりも詳しい説明
ADODB.Stream: https://atsumitm.iobb.net/its/its-050.php
TextStream:　 https://atsumitm.iobb.net/its/its-051.php

**デフォルトの名無しさん** · 2025/06/03(火) 23:46:58.61

>>894
VBAは比較的間口が広くてとっつき易い言語ではあるとは思うよ
ただ、何の言語でもそうだけど教える人がいると受動的になりがちで聞いてりゃ分かるようになると思ってしまうのはマズい
聞いてりゃ分かるようになる言語なんて存在しない
分かる人が少ないのは結局、VBAを本当に必要であることを迫られる立場に無いからだと思う
VBA出来なきゃ今いる会社をクビになるくらいに迫られたら大概の人は理解する
でも教えてくれる人がいるということは恵まれたことだと思うよ
このスレにいる大多数の人は恐らく独学で仕事場で使えるようにならざるを得なかった立場なんじゃないかな

**デフォルトの名無しさん** · 2025/06/03(火) 23:58:42.71

>>899
私も完全独学で覚えました
というプログラミングは独学で学んでいる人ばかりではないのですか？
プログラミングスクールは役に立たないし、かと言って会社は教えてくれない

**897** · 2025/06/04(水) 00:06:22.21

>>898
このサイトぐぐるとよく見かけるようになったけど、詳しすぎて理解できないw

**デフォルトの名無しさん** · 2025/06/04(水) 00:40:57.38

自学できない人はダメだよね

**デフォルトの名無しさん** · 2025/06/04(水) 05:30:19.54

独学って、大半の人は言語に固有の文法と、開発環境に依存する実行方法を覚えただけでしょ
だからデータ型の違いとか文字コードとかアルゴリズムとかファイルシステムとか、基本がわかってないから別の言語に手を出せない

**デフォルトの名無しさん** · 2025/06/04(水) 06:02:44.09

ここ見てりゃわかるけど、コピペで動いて偉くなったつもりの馬鹿ばっかだから

**デフォルトの名無しさん** · 2025/06/04(水) 07:11:35.77

>>903
そうね
それはその通りだと思うわ
だから>>894の言ってる教えている人が
そもそものVBAの基本的な型やら
分岐や演算とかよく使うObjectの扱いとかを
最初に教えていることを切に願うわ

**デフォルトの名無しさん** · 2025/06/04(水) 07:34:51.95

>>900
覚えるのは自分、教わったのに覚えてないようでは学べてない
あと文法は覚えてもアルゴリズムは考えるもの
教わってないからできないって言ってるのは初心者以下な

**デフォルトの名無しさん** · 2025/06/04(水) 07:44:26.54

やる必要性がないからやらないけど、Pythonが簡単というならPythonだってわかる気がするし、Ｃ言語がFor eachもない様な単純な言語だというならそれはそれでできそうな気もする（Copilotがあるから尚更）。
ローコードにしろスクラッチにしろそれは同じ。

既製品のソフトウェアを導入するか、VBAで作成するかならどちらが安いと思いますか？
もしVBAの方が安いなら世の中マクロだらけだと思うのです。

**デフォルトの名無しさん** · 2025/06/04(水) 08:21:45.39

誰も責任を負いたくない、率先して矢面に立ちたくない方々だらけだから

**デフォルトの名無しさん** · 2025/06/04(水) 08:50:54.30

>>907
マクロだらけだよ
それらを管理する人（作成者）が抜けていくから管理不能になる
そういった事象を解決する銀の弾丸としてRPAやノーコードツールが喧伝されたけど、
管理する人がいないって意味では同じなので同じことが繰り返されてる

**デフォルトの名無しさん** · 2025/06/04(水) 10:16:27.04

>改行コードが CRLF と LF が混じったお行儀のよろしくないファイル

CSVなら普通にあるな
行儀の問題じゃない

**デフォルトの名無しさん** · 2025/06/04(水) 10:36:26.59

行儀だよ
少なくともRFC上においては行末がCRLFであると規定されてる
ファイルの最後のみがどうでもよい

**デフォルトの名無しさん** · 2025/06/04(水) 11:22:31.03

>>907
どっちが安いって、保守コストまで考えて言ってる？
そりゃ作りっぱなしならVBAのが安上がりだけど、それじゃ後で困るって話をしてるんでしょ

**デフォルトの名無しさん** · 2025/06/04(水) 12:21:29.23

LFは行末じゃないよ

**デフォルトの名無しさん** · 2025/06/04(水) 14:36:42.79

CSVの行改行と項目内改行が使い分けられてないわけが無い
使い分けられてなければ復元不可能になる

**デフォルトの名無しさん** · 2025/06/04(水) 14:39:56.22

>>914
"あれば可能だが無いの見たことあるのよね…

**デフォルトの名無しさん** · 2025/06/04(水) 16:28:29.01

標準の改行コードはOSによって違う
CR、LF、CR+LF、LF+CR、すべてのパターンが実在する
フィールドに改行やコンマを含めたい場合、レコードの区切りと違うコードを割り当てる場合もあれば、クォートなどの記号でフィールドの範囲を明示する場合もある
Windows版Excelはダブルクォートでフィールドの範囲を指定するのが基本

**デフォルトの名無しさん** · 2025/06/04(水) 16:30:20.58

>>915
それは固定長かセパレータ(コンマ)の数をカウントしてるかどっちかかな

**デフォルトの名無しさん** · 2025/06/04(水) 18:23:31.04

>>916
CR　MacOS（UNIX化前）
LF　UNIX、MacOS（UNIX化後）
CR+LF　Windows、DOS
LF+CR　← なんてOS？

**デフォルトの名無しさん** · 2025/06/04(水) 18:39:20.47

>>909
RPAにしろ、ノーコードにしろ、なんにしろ、そうなりますよね。
結局社内でどれだけ学習意欲のある人を揃えるかによりそう。

**デフォルトの名無しさん** · 2025/06/04(水) 19:22:49.50

>>913
由来のタイプライターを鑑みたらLFは本来行頭に来るべきものだけど、
現実的には行末

**デフォルトの名無しさん** · 2025/06/04(水) 19:55:51.24

頑張ってVBA勉強したところでプログラミングスキルとしては流石に時代遅れ&最底辺だし、
事務員としてスキルアップしたいならツールに入れ込むより業務知識を強化した方がいいし、
組織の中で出世したいなら自分でVBA書くより他人に書かせて継続的にスケールする仕組みを作るべき
そして、めでたく業務効率化できたとして、いず」行き着く先は「脱Excelで属人化解消&業務効率化」でVBA職人は悪者扱いだ
本当にVBAを広めたいのなら、個人の意欲に頼るのではなく、組織として適切なインセンティブを設けることだな

**デフォルトの名無しさん** · 2025/06/04(水) 20:02:53.71

>>921
結局、経営者次第だよね
まるでITや業務効率化に興味がないなら何もできない
社員の進言に耳を傾けないなら騙されもするし、せっかく導入したツールは社員にとって非常に使いづらい

**デフォルトの名無しさん** · 2025/06/05(木) 00:29:50.41

>>921
そっか
あなたはこのスレ卒業だね

**デフォルトの名無しさん** · 2025/06/05(木) 08:17:29.72

四行目までは自虐だろ？　言いたいのは五行目だけって意味と捉えたが、どうなんだ
まあ、ちょっと過剰に反応し過ぎなきらいは否めないが

**デフォルトの名無しさん** · 2025/06/05(木) 08:45:28.01

>>921
組織の中で継続してスケールする仕組み作ったなら属人化してないんだから悪者になる理由なくない？

**デフォルトの名無しさん** · 2025/06/05(木) 09:07:39.20

お利口さんに成ろうとしてアタマでっかちに成り過ぎ
大工だっていろんなレベルもあるし色んな層が大工してる
その場しのぎのやっつけ大工も居れば、客の要望を叶えるために青写真から描ける熟練大工もいる
新人大工なら木の特性とか部材同士の相性とかもよく理解しないまま最新部材使って威張ってみたり
ガルバリウムには使ってはいけない釘平気で使って1～2年後にはその部分からサビを拡げる原因作って顰蹙買うし
それでも世の中は回ってる
改善なんか数年で変化してくものだ、という前提を踏まえてれば、それに見合うコストで運用出来てれば御の字

**デフォルトの名無しさん** · 2025/06/05(木) 10:31:37.20

>>925
コンサルはいわゆるExcelバケツリレーの非効率さを指摘してくるのが常道
VBAで個々人の作業が省力化されてようとフローは変わらないので、実際非合理だから仕方ない
その上で現行業務の調査として関係者全員にヒアリングして介在するワークシートやマクロをつぶさに調査するのにかかる莫大な費用の見積りを提示されると、
もう経営層からはVBA職人なんて非効率な業務を助長するだけの排除すべき敵としか見えなくなるわけよ

**デフォルトの名無しさん** · 2025/06/05(木) 10:49:41.34

あと、業務を見直してシステム化しようとした際にVBAが悪者になる大きな原因として、
一見簡単な処理に見えて蓋を開けたらたまに複雑怪奇な難攻不落の化け物が出てくる、ってのがある
これ、Excel中心のワークフローをシステム化する際にはよくある話で、スケジュール遅延や予算超過を引き起こすことが多い
そうなるとシステム部門や現場が経営層に頭下げるのは当然として、上場企業だと株主に経営層が謝罪なんてケースもある
ここまでくるともうVBAなんて悪者もいいとこよ

**デフォルトの名無しさん** · 2025/06/05(木) 10:55:09.32

それらは継続してスケールする仕組みを作れていない場合の話じゃないの？
複雑怪奇な難攻不落の化け物って、それスケールできる仕組み作れてなくない？
そもそもの話が噛み合ってないよ

**デフォルトの名無しさん** · 2025/06/05(木) 11:09:55.37

>>929
隅々まで適切にガバナンスを効かせながら使うならいいんじゃない？
それができるほどの優秀なリーダーがVBAを選ぶかは疑問だけどな
どんな組織でも、人が増えれば馬鹿も増えるし目も行き届かなくなるものだ

**デフォルトの名無しさん** · 2025/06/05(木) 11:27:50.93

Excelバケツリレーは業務や人員を追加していく分にはスケールするよ
後から変更するのが困難でありシステム化が前提なら極めて非合理だけ

**デフォルトの名無しさん** · 2025/06/05(木) 17:48:57.22

>>928
IR出すレベルのVBAは確実に一見簡単そうな処理では無いと思います。
そこまでの規模のシステムなら、それこそ何かしらの製品やサービスを導入してください。

**デフォルトの名無しさん** · 2025/06/05(木) 17:54:18.01

ローコードツールや多言語の方がいいのはその通りだと思います
VBAはOfficeしか扱えないのだから

**デフォルトの名無しさん** · 2025/06/05(木) 18:20:52.21

> VBAはOfficeしか扱えないのだから
AutoCAD、SOLIDWORKS、・・・

**デフォルトの名無しさん** · 2025/06/05(木) 18:33:57.70

>>933
そうなんだ？知らなかった

**デフォルトの名無しさん** · 2025/06/05(木) 20:15:40.58

そもそもパッケージやクラウドサービス使えば、中身は全くわからない
手の出しようがない
自前なら何とかなる
そこをどう捉えるかよ
そもそも基幹システムをVBAで作らないし
（小企業は知らんが）
作っても枝葉よ

**デフォルトの名無しさん** · 2025/06/05(木) 20:29:53.99

>>936
C、CSVで吐き出せればなんとか（震え声）

TYPEを全く使ってこなかったのです。
しかし、この度同じモジュールで多数のstring型の変数を宣言する必要があります。
TYPEデビューしようと思うのですがどうでしょうか？

**デフォルトの名無しさん** · 2025/06/05(木) 23:29:45.76

ここで聞かなきゃいけないような馬鹿はやめとけ

**デフォルトの名無しさん** · 2025/06/05(木) 23:53:54.23

>>937
type稀にしか使わないので調べたら
CollectionやDictionaryに格納できないと
マジか、知らなかったわ
これに使うならクラスにしたらいいかもね

**デフォルトの名無しさん** · 2025/06/05(木) 23:57:55.29

>>920
リアルタイプライターではLFの位置は任意だよ
行頭とか行末とか関係なく、行の途中でも好きな所でline feedは可能

**デフォルトの名無しさん** · 2025/06/06(金) 01:00:59.18

>>940
CRLFはCRが来る時点でLFが行末じゃなくなるって話

**デフォルトの名無しさん** · 2025/06/06(金) 08:39:00.12

Enterキーの矢印ってLF-CRだよね
　 ↓
←
CR-LFならこういう向きじゃないとおかしい
　 ←
↓

**デフォルトの名無しさん** · 2025/06/06(金) 09:32:23.47

VBAでクラスモジュールを使っていろいろやるのもなしとは言わないけれど、それなら正直JavaとかPythonとかの普通の言語を勉強した方が良いような気もするかな。クラスモジュールって、よくある普通の言語とはちょっと違ったVBA固有の仕様に過ぎないし。

**デフォルトの名無しさん** · 2025/06/06(金) 09:44:39.10

>>943
JavaScript様のプロトタイプに喧嘩売る気か

**デフォルトの名無しさん** · 2025/06/06(金) 10:07:22.76

クラスモジュールはVBA固有というかCOMの仕様
COMの絡まない処理で無理に使う必要は全く無いし、COMを理解してないと不可解な仕様が多い

**デフォルトの名無しさん** · 2025/06/06(金) 10:45:07.80

他言語でクラス使ってたらクラスモジュール作りたくなる病

**デフォルトの名無しさん** · 2025/06/06(金) 11:16:07.96

COMってどう勉強するんだろ
漠として簡潔な説明がなかなかなく
IUnknownやらなんやら、

**デフォルトの名無しさん** · 2025/06/06(金) 11:35:48.78

InsideCOMを辛抱強く読むのが唯一の道
それ以上の資料もかみくだいた解説書もない

**デフォルトの名無しさん** · 2025/06/06(金) 18:33:04.93

っ https://learn.microsoft.com/ja-jp/cpp/mfc/ole-in-mfc?view=msvc-170
https://learn.microsoft.com/ja-jp/windows/win32/learnwin32/module-2--using-com-in-your-windows-program

**デフォルトの名無しさん** · 2025/06/06(金) 18:52:09.71

COMの解説
https://learn.microsoft.com/ja-jp/windows/win32/com/component-object-model--com--portal

**デフォルトの名無しさん** · 2025/06/06(金) 19:13:06.68

>>939
TYPEは他のオブジェクトに引き渡せないとは聞いていました

結局ディクショナリーで登録しました

**デフォルトの名無しさん** · 2025/06/06(金) 20:17:15.03

>>951
ディクショナリだとインテリ使えんけど、まあそれでいいなら

**デフォルトの名無しさん** · 2025/06/06(金) 20:34:48.52

たまにいる勘違い人間　「自分、CやJavaできるから低レベルのVBA（笑）なんてすぐマスターできるし」とか豪語するヤツ

**デフォルトの名無しさん** · 2025/06/06(金) 21:03:29.16

私はファイルパスやフォルダパスの取得や設定、ファイル名やフォルダ名の作成に冗長なコードを書いている気がしてならないのですが、何かいいコードはないでしょうか？

**897** · 2025/06/06(金) 21:52:26.62

Typeの代わりにRecordSet使ったりする Field設定いちいちするの面倒だけど
Filterとか使えるしCopyFromRecorSetとかできるし

**デフォルトの名無しさん** · 2025/06/07(土) 01:20:40.40

>>954
昔はdirやnameだったけど、今はfso使ってればいいんじゃね

**デフォルトの名無しさん** · 2025/06/07(土) 04:19:49.26

>>954
その程度の処理なら、冗長で困ることなんかほとんどないよ
自分に理解できる形で書くのが、長い目で見れば一番保守性が高いんだから
ちゃんと動いてる物を直そうとして壊すことも多いから、そっとしとけ

**デフォルトの名無しさん** · 2025/06/07(土) 07:03:08.54

>>954
末尾の円マーク有無で毎回処理を分岐させてるのならBuildPathを使え

**デフォルトの名無しさん** · 2025/06/07(土) 09:36:28.54

>>954
その冗長なコードとやらを貼ってみれば何が悪いか指摘してもらえると思うぞ

**デフォルトの名無しさん** · 2025/06/07(土) 10:26:27.74

.netの文字列操作ライブラリとか見たらいたせりつくせりで贅沢過ぎるわ！って怒り出しそう

**デフォルトの名無しさん** · 2025/06/07(土) 12:33:58.98

タスクバーのアイコンを取得したくて、下記のサイトのC#をVBAに移植しても、Excelがハングアップする
C#ではちゃんと動く
なぜ？

Dim pUIAutomation As New CUIAutomation
Dim windowElementTray As IUIAutomationElement
Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hTaskBar)
↓

https://learn.microsoft.com/en-us/answers/questions/115440/how-to-find-taskbar-button-screen-rect-of-a-window

**デフォルトの名無しさん** · 2025/06/07(土) 13:25:32.25

https://qiita.com/Mrs_P/items/5c8070fd880b9deb284a
↑ここの人がVBAで似たようなことやってますね
GetReferenceElementという関数の中に >>961 と同等のコードが書かれているから
hTaskBarの値がおかしいんじゃないの？

これでブラウザの自動操縦できるのかぁ　便利そうだな

**デフォルトの名無しさん** · 2025/06/07(土) 13:32:49.76

>>962
このサイトも見た
hTaskBarの値は、C#版とVBA版で同じ値だったので、正しいと思う。

Chromeのウィンドウハンドルでやった場合は、ちゃんと動いた

**デフォルトの名無しさん** · 2025/06/07(土) 13:58:10.47

これで最後の行まで動いたよ

Dim hWndTray As LongPtr: hWndTray = FindWindow("Shell_TrayWnd", vbNullString)
Dim hWndRebar As LongPtr: hWndRebar = FindWindowEx(hWndTray, 0, "ReBarWindow32", vbNullString)
Dim hWndMSTaskSwWClass As LongPtr: hWndMSTaskSwWClass = FindWindowEx(hWndRebar, 0, "MSTaskSwWClass", vbNullString)
Dim hWndMSTaskListWClass As LongPtr: hWndMSTaskListWClass = FindWindowEx(hWndMSTaskSwWClass, 0, "MSTaskListWClass", vbNullString)

Dim pUIAutomation As New CUIAutomation
Dim windowElementTray As IUIAutomationElement
Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hWndMSTaskListWClass)
MsgBox "終わり"

**デフォルトの名無しさん** · 2025/06/07(土) 14:07:56.34

もうひとつの方もこれで動いた

Dim hWndTray As LongPtr: hWndTray = FindWindow("Shell_TrayWnd", vbNullString0)
Dim hWndTrayNotify As LongPtr: hWndTrayNotify = FindWindowEx(hWndTray, 0, "TrayNotifyWnd", vbNullString)
Dim hWndSysPager As LongPtr: hWndSysPager = FindWindowEx(hWndTrayNotify, 0, "SysPager", vbNullString)
Dim hWndToolbar As LongPtr: hWndToolbar = FindWindowEx(hWndSysPager, 0, "ToolbarWindow32", vbNullString)

Dim pUIAutomation As New CUIAutomation
Dim windowElementTray As IUIAutomationElement
Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hWndToolbar)
MsgBox "終わり"

**デフォルトの名無しさん** · 2025/06/07(土) 15:15:58.64

>>965
あ、
Windows 11だと動かないな…

>>964のタスクバーのボタンは動いたけど、
>>965のトレイアイコンは、最後の1行で、やっぱExcelごとハングアップで強制終了するわ
（Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hWndToolbar)）

C#版は、>>965のトレイアイコンもちゃんと動くんだけど…

**デフォルトの名無しさん** · 2025/06/07(土) 16:04:31.64

>>959
例えばファイルシステムで
フォルダ1の中から指定の文字列を含むフォルダを探して
見つかったフォルダのパスを取得して
さらにそのフォルダの中から指定の文字列を含むフォルダを探して
見つかったフォルダのパスを取得して
そのフォルダの中に指定のフォルダがあるか確認してなかった場合はフォルダを作成するコードです
2〜3回同じ様な事を繰り返しているので冗長な気がしてなりません

**デフォルトの名無しさん** · 2025/06/07(土) 16:09:10.87

>>967
それそのままAIに投げたら一瞬で書いてくれるよ

**947** · 2025/06/07(土) 16:28:51.74

>>948, 949, 950
ありがとうございます

マイクロソフトのサイトは機械翻訳がどうも…、と敬遠していましたが、参照してみます
それから洋書、かぁ…

**デフォルトの名無しさん** · 2025/06/07(土) 17:36:52.86

>>967
それを平で書いてるなら冗長
再帰処理でやるのがあるべき姿
まずは指定フォルダ下の全フォルダを出力する再帰処理書いてみ
（全てが再帰処理ではない。呼び出し元処理と再帰処理の2つ書くことになる。念の為）

**デフォルトの名無しさん** · 2025/06/07(土) 17:47:31.26

>>966
Windows11はタスクバーに使われてるクラスが変わってるらしいから関係あるかもよ
https://www.autohotkey.com/boards/viewtopic.php?style=19&t=108539
AHKにクラス名を調べるツールがついてたような

**デフォルトの名無しさん** · 2025/06/07(土) 17:55:49.45

>>967
こんなのかな
＞フォルダ1(Path1)の中から指定の文字列を含むフォルダ(Pattern1)を探して見つかったフォルダのパス(Path2)を取得する

Path2 = GetPatternPath(Path1, Pattern1) As String

＞さらにそのフォルダ(Path2)の中から指定の文字列(Pattern2)を含むフォルダを探して
＞見つかったフォルダのパス(Path3)を取得する

Path3 = FindPatternPath(Path2, Pattern2) As String

＞そのフォルダ(Path3)の中に指定のフォルダ(Pattern3)があるか確認してなかった場合はフォルダを作成するコードです

result = CheckPatternPath(Path3, Pattern3) As Boolean
If result Then
Call MakePatternPath(Path3, Pattern3)
End If
あとは関数の中身を書くだけ

**デフォルトの名無しさん** · 2025/06/07(土) 18:21:21.32

>>967
ShiteiNoMojiretsu = "指定の文字列"
Shitei = "指定"
Path = "C:\フォルダ1"
Path = Path & "\" & Dir(Path & "\*" & ShiteiNoMojiretsu & "*", vbDirectory)
Path = Path & "\" & Dir(Path & "\*" & ShiteiNoMojiretsu & "*", vbDirectory)
If Dir(Path & "\" & Shitei, vbDirectory) = "" Then
MkDir Path & "\" & Shitei
End If

**デフォルトの名無しさん** · 2025/06/07(土) 18:49:45.58

>>971
んー

でも、C#ではちゃんと動くので、VBA側の問題な気が…
クラスが変わってるのも知ってる。

**デフォルトの名無しさん** · 2025/06/07(土) 22:19:45.07

>>970
やっぱりそうですよね
再帰処理を頑張って覚えます

**デフォルトの名無しさん** · 2025/06/08(日) 02:30:07.18

>>975
そやね
たったこれだけでフォルダ階層どこまでも潜れるのかと感動すると思う
（かもしれないw）
フォルダ再帰ができたら各全ファイル名列挙も再帰処理の中に追加しとき
いつか使う時が来る

**デフォルトの名無しさん** · 2025/06/08(日) 03:49:16.50

こんなので偉そうにする馬鹿

**デフォルトの名無しさん** · 2025/06/08(日) 10:13:48.24

>>977
わざわざ「私バカです」って手を挙げて出てきてどうした

**897** · 2025/06/08(日) 10:59:09.81

>>976
昔だったら stack overflowとか心配してたけど今はあまり気にしなくて良さそうだね

**デフォルトの名無しさん** · 2025/06/08(日) 11:01:04.08

.netのAPIラッパー関数もソース見ると大抵泥臭い事やってんのよね