Excel VBA 質問スレ Part83

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

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

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

※前スレ
Excel VBA 質問スレ Part82
https://mevius.5ch.net/test/read.cgi/tech/1737657075/1

**デフォルトの名無しさん** · 2025/08/01(金) 16:09:22.52

>>521
再度試しましたが発生しました
エラーメッセージは正確には
ファイル'C:\Users\User\Documents\ファイルパス\請求書\PDF/7E1A4F10'にアクセスできません（7E1A4F10は毎回別の文字列になります）です
昨日からの変更点はSSDが壊れたため、D:/をC:/に変更しました

**デフォルトの名無しさん** · 2025/08/01(金) 17:15:54.06

ぼけっ！と叫びたくなるな

**デフォルトの名無しさん** · 2025/08/01(金) 17:36:20.41

D:/じゃなくてD:\にしなくちゃな

**デフォルトの名無しさん** · 2025/08/01(金) 17:47:11.41

>>523
そこの文字列、PDFの次は本当にスラッシュなの？
だとしたら、スラッシュはファイル名に使えない文字だからエラーが出て当然なんだけど

ごまかさずにエラーの出たソースコードちゃんと貼って

**デフォルトの名無しさん** · 2025/08/01(金) 18:38:36.40

すいません、/は¥です
コピペしたら変わってた

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

流石に変わらんだろw

**デフォルトの名無しさん** · 2025/08/01(金) 18:41:07.46

ファイルシステムが壊れたかハードウェア障害なんじゃね
フォーマットしてOSから再インストールだな

**デフォルトの名無しさん** · 2025/08/01(金) 18:50:34.81

エラーメッセージの通りだろ
┐(´д｀)┌ﾔﾚﾔﾚ

**デフォルトの名無しさん** · 2025/08/01(金) 19:10:41.68

初心者だから見落としている事に気づいていない　ってことなんだろうな

**デフォルトの名無しさん** · 2025/08/01(金) 20:49:06.67

あれ？また低年収がこんな内容でドヤ顔の上から目線じゃん
¥と/の関係性もわからない時点で使用者がトラブルの打ち上げしても僕の処理は綺麗ですと言い張ってそう

**デフォルトの名無しさん** · 2025/08/01(金) 20:52:36.63

初心者が～って年収500万もなさそうな底辺が嬉々としててもね…
作ったVBAを不慣れな人が使うことも想定できないまさに底辺

**デフォルトの名無しさん** · 2025/08/01(金) 21:13:00.15

>>523
ActiveWorkbook.SaveAs
Filename:="C:\Users\User\Documents\ファイルパス\請求書" & " " & Format(Date,
"yyyymmdd") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

請求書フォルダ配下のPDFフォルダを指定してないけどそんなエラーが出る？
保存先が変わってない？

**デフォルトの名無しさん** · 2025/08/01(金) 21:14:40.85

>>520
シートはコードネームで指定した方がいいと思う
テーブルを使いましょう

**デフォルトの名無しさん** · 2025/08/01(金) 21:38:32.14

"PDF" が消えている

**デフォルトの名無しさん** · 2025/08/01(金) 22:10:03.29

ユーザが違うオチとか

**デフォルトの名無しさん** · 2025/08/01(金) 22:28:18.18

>>534
D:→C:～Documents¥に変えたくらいしか心当たりないんです
>>535
ごめんなさい

**デフォルトの名無しさん** · 2025/08/01(金) 23:27:01.60

>>538
だからエラーメッセージの通りだろ

**デフォルトの名無しさん** · 2025/08/01(金) 23:59:43.71

保存先のフォルダーがないんじゃないの？

**デフォルトの名無しさん** · 2025/08/02(土) 00:24:04.05

例によって馬鹿が質問し有象無象の馬鹿が湧き出る流れ

**デフォルトの名無しさん** · 2025/08/02(土) 00:56:41.31

>>520
そもそもなんでファイルフォーマットを指定しているのに
& “.xlsx”
を書いているのですか？
それとactiveworkbook.saveas じゃなくて
thisworkbook.saveasね

**デフォルトの名無しさん** · 2025/08/02(土) 07:48:06.29

SSDだったDドライブに\Users\User\Documents\が有ったとは思えないんだが
バックアップ先だったとかでフルアドレス入れてたかも知らん(無駄に)
で、それまではそれで動作してたけど、Dが壊れたとかで単純にDをCに変えただけだとしたら
アクセス権限が与えられていない可能性もある
普通にエクスプローラー開いて、それぞれのフォルダを段階追ってひとつずつ開いてみて
問題無ければ最後はそのExcelファイル開いてエラー発生しないかどうか(マクロ使わずに手動で開くという意味)
何か別にアドインとかが組み込まれててそれが原因だったってのもあるけど、それは次のステップでの検証
　ブラウザ次第とかで入力時は￥にしてたのに書き込んだらスラッシュに変わってしまってるなんてのは
　よくあること(↑の￥は敢えて全角で書いてみた)

**デフォルトの名無しさん** · 2025/08/02(土) 08:17:04.68

分かってないならスクショなりをそのまま貼れば良いのに

**デフォルトの名無しさん** · 2025/08/02(土) 09:12:26.17

ファイル名に空白はいってるのか
ファイル名囲まんとだめなやつじゃね

**デフォルトの名無しさん** · 2025/08/02(土) 10:00:02.65

>>520
Windowsの更新などで、たまにVBAが影響を受けて、マクロが動かなくなるときがある。
特にワークシート名などのオブジェクトをスクリプト内で日本語(2バイト文字)で指定すると、
うまく行かなくなったりした。

まず気になるのは、シート名の"記"を"Notes"あたりにしてやってみるとか？

ファイル名での日本語混じりフルパス指定は、多分影響はないとは思うけど、
「アクセスできません」
の原因がそれだったら、そのパスをワークシートのどこかに名前定義で貼り付けて、
その名前をVBA内でRange()参照するとか

知らんけど。

**デフォルトの名無しさん** · 2025/08/02(土) 10:23:23.13

>>546
ThisWorkbookならコードネームの方が安定すると思います
あと個人でしか使用しないマクロ、ブックならいっそシートのインデックス番号で指定した方が安定するかもしれませんね

**デフォルトの名無しさん** · 2025/08/02(土) 10:51:23.59

パスを公開用に書き換えるぐらいなら前半の関係ない所を消せよ
もし新規ブックで保存の1行だけにしてエラーが起きるならそれを貼れ
ちなみにマクロの記録で保存文の正解はExcelが書いてくれる
AIより確実だ

**デフォルトの名無しさん** · 2025/08/02(土) 10:55:31.35

AIをほとんど使ったことないやつ
「AIより確実だ」ワロタ
底辺職で知らずに適当に言ってるのおもろすぎ

**デフォルトの名無しさん** · 2025/08/02(土) 12:50:36.42

>>548
マクロの記録はじゃ記録できない操作もあるけどね

**デフォルトの名無しさん** · 2025/08/02(土) 13:38:37.58

>>549
AI盲信するバカなやつw

**デフォルトの名無しさん** · 2025/08/02(土) 15:33:56.33

質問だが、
Excelでウェブページの表のデータ（テキスト）を取得したいが、
どうすればええの？

**デフォルトの名無しさん** · 2025/08/02(土) 16:04:17.37

>>552
今時はAIを使ったスクレイピングのSaaSが色々あるから、そういうのを使えば一瞬でできる

**デフォルトの名無しさん** · 2025/08/02(土) 16:22:40.55

>>552
ブラウザからExcelなら普通にコピペできるぞ
表を選択、コピーしてワークシートに貼り付けるだけ
色やフォントが邪魔ならセルを右クリして「貼り付けのオプション」から「貼り付け先の書式に合わせる」を選ぶだけ

**デフォルトの名無しさん** · 2025/08/02(土) 16:36:11.47

新しめのサイトだと、その表内選択すら拒絶してる(ドラッグしても選択状態に成らない)のも
稀によくある
｢ケッ！おまえのデータなんか要らねえよっ！｣と、捨て台詞吐いて渋々次のサイトを漁りに行く

**デフォルトの名無しさん** · 2025/08/02(土) 16:58:35.92

>>552
Power Automate Desktopでなんとかできるかもしれない
取得したい表をブラウザで開いた状態にする
ブラウザ操作ですでに開いているブラウザにインスタンスする
webデータ抽出 > webページからデータを抽出する
ブラウザに画面を戻すと右クリックで設定できる様になる
成功したらあとはエクセルに貼り付けるのを考えてください

**デフォルトの名無しさん** · 2025/08/02(土) 17:12:25.56

>>553
いや、自動でやりたいって話。
たくさんあるので。

**デフォルトの名無しさん** · 2025/08/02(土) 17:13:49.69

>>556
そのMicrosoft Powerなんちゃらってやつ、気になってるわ
でも、Excelに手で貼るんじゃなく、VBAでプログラム的に計算処理して、
セルに表示する感じ。

**デフォルトの名無しさん** · 2025/08/02(土) 17:15:25.84

表をテキストやHTMLだかで取得できるならpowershellでやったっていい

**デフォルトの名無しさん** · 2025/08/02(土) 18:07:55.80

取得したいウエブページがたくさんあるのなら、スクレイピングを使って完全自動化するけど
数が少ないのならウエブのテキストコピーだけは手動でもありなんじゃね

**デフォルトの名無しさん** · 2025/08/02(土) 18:12:45.94

>>558
私も狙い通りや完璧にほど遠いので教えられる事は非常に少ないですが
iframeがある場合は必ず指定して
bodyやhtmlも特定できる様に指定しておいた方がいいかもしれないです
全く同じ要素の物が複数ある場合はordinalで0から始まるインデックスで指定
特にテーブルや表ならこれかもしれない
テーブルのタグはtdやtrとか

**デフォルトの名無しさん** · 2025/08/02(土) 18:22:15.39

>>561
実は、
今までは、iMacrosってやつと、JavaScriptとかを使ってやってたけど、
iMacrosが開発終了で動かなくなった

あんまり無名のソフトは使わないほうがいいですね…

**デフォルトの名無しさん** · 2025/08/02(土) 18:33:30.70

>>552
Webスクレイピングはこの辺を使ってやってる
CreateObject("MSXML2.ServerXMLHTTP")
CreateObject("WinHttp.WinHttpRequest.5.1")

**デフォルトの名無しさん** · 2025/08/02(土) 18:34:59.68

>>557
もちろん自動でできるよ

**デフォルトの名無しさん** · 2025/08/02(土) 18:36:59.11

>>543-548
ありがとう、PC会社で土日弄れないから週明けシート名変更から順に試してみます

**デフォルトの名無しさん** · 2025/08/02(土) 18:37:41.95

Manifest V3問題かな
昔のブラウザを使えばいい

**デフォルトの名無しさん** · 2025/08/02(土) 18:45:33.16

>>565
二度と来るな

**デフォルトの名無しさん** · 2025/08/02(土) 18:46:38.24

>>563
ほう

それ使って、なんとかできそうだね

**デフォルトの名無しさん** · 2025/08/02(土) 18:50:26.55

powerqueryもwebページからでーた取得できるよ

**デフォルトの名無しさん** · 2025/08/02(土) 19:11:58.74

>>569
そう、それ
Microsoft Powe Queryってやつ
それでできそうだね

**デフォルトの名無しさん** · 2025/08/02(土) 19:12:47.04

>>570
あとはSeleniumBasicだか？
Copilotが教えてくれたわ

**デフォルトの名無しさん** · 2025/08/02(土) 20:04:32.06

>>551
コードは人が検証できるんだから盲信もクソもないだろ
あってるかどうか追ってから使うだけ

**デフォルトの名無しさん** · 2025/08/02(土) 20:33:46.91

>>571
SeleniumBasicは業務での使用だと導入のハードルが高いから、まず最初は使わない方向で検討した方がいい
JavascriptとかCSSとか使って動的に生成されたページだとWinHttpやXMLHttpじゃ取得できないから、その時になってから考えればいい

**デフォルトの名無しさん** · 2025/08/02(土) 23:03:47.38

VBA関係ないんだけど便乗質問
テキストじゃなくて画像になってる表を取り込む方法ない？
フリーのOCRサービスをいくつか試してみたけど、認識率が低すぎてまったく使い物にならなかった

たとえば、こんなやつ
https://i.imgur.com/6Y1wHtu.png

**デフォルトの名無しさん** · 2025/08/02(土) 23:20:31.57

>>574
死ね

**デフォルトの名無しさん** · 2025/08/02(土) 23:21:26.24

>>574
ChatGPTはパーフェクトに認識してくれた

**デフォルトの名無しさん** · 2025/08/03(日) 00:20:48.61

画像のテキスト化はChatGPTにその画像を貼って「csvに変換」て命令するだけ

**デフォルトの名無しさん** · 2025/08/03(日) 01:46:04.43

>>572
日本語読めないバカなやつw

**デフォルトの名無しさん** · 2025/08/03(日) 07:22:39.43

将棋の9x9の盤面を
Excelの9x9のセルに取り込む方法はありませんか?
4-5年前の段階ではそういうフリーのOCRアプリを試してみたけど、認識率が低すぎてまったく使い物にならなかった。

たとえば、こんなやつ
https://kifulog.shogi.or.jp/.service/smartphone/thumb/photos/uncategorized/2025/07/30/250730_082.gif

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

>>579
スレタイ読んで出直せ
>>574みたいなクズに答えると次から次へとこういうクズが出てくる

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

>>579
そんなことをする必要がない
棋譜DBで探せ

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

>>580
アホ
人生においてどんなことでもなんらかのことは関係している
本件ならなおさら

**デフォルトの名無しさん** · 2025/08/03(日) 10:09:27.93

>>581
ハゲ
わたしのしたいのは詰将棋本からデータを取りだし自分だけのアプリを作りそれで利用することだ

**デフォルトの名無しさん** · 2025/08/03(日) 10:48:12.93

ム板は変なのがいついたな

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

４～５年も出来ない出来ないって愚痴ってる時間で手動で取り込んだら終わってたのにな

**デフォルトの名無しさん** · 2025/08/03(日) 13:02:27.38

>>582
ならもっも関係の深いスレ探してそっちで書け

**デフォルトの名無しさん** · 2025/08/03(日) 13:12:07.92

>>573
なんとか、
VBAからSeleniumで、chromeでページを開くまでできたわ
組み込みに苦戦した

あとは、表のデータを取得できるか…？

**デフォルトの名無しさん** · 2025/08/03(日) 13:31:22.64

>>587
ページのソースが取得出来たら、そのままワークシートにコピペするだけで自動的にhtmlタグを解釈して各セルにデータを入れてくれる

**デフォルトの名無しさん** · 2025/08/03(日) 14:35:22.29

>>586
ここのスレが関係あるじゃないか
Excelはセルだし将棋盤の升目もセルだ

**デフォルトの名無しさん** · 2025/08/03(日) 15:10:58.77

>>589
関係の有無じゃなく関連の強さの話をしている

**デフォルトの名無しさん** · 2025/08/03(日) 15:30:28.08

>>590
ここのスレが関連あるじゃないか糞
Excelはセルだし将棋盤の升目もセルだ

**デフォルトの名無しさん** · 2025/08/03(日) 15:56:24.14

>>591
なら将棋スレで訊け

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

将棋は文系なんだろうか
sfenとか局面の棋譜データはあるのに盤面とのやり取りは>>>579みたいな画像をいまだに使ってるっぽい
その辺ごにょごにょすれば莫大なお金になりそうだがはて

**デフォルトの名無しさん** · 2025/08/03(日) 17:18:18.76

>>592
だが断ります
>>593
そりゃ99.99%の一般人は579みたいな画像しか理解できないからでしょ
ところでごにょごにょとはなんですか?

**デフォルトの名無しさん** · 2025/08/03(日) 17:20:11.60

わたしがたくらんでる莫大なお金は
詰め将棋をAI的に生成させて
「詰将棋・問題数無限問!アプリ」を適正価格で大量に売り出すことだ

**デフォルトの名無しさん** · 2025/08/03(日) 17:40:57.05

詰将棋を自動生成するだけのプログラムならたしかもうあるんじゃなかったっけ。
手順の芸術性、棋力向上への有用性、解き味の良さなど、何らかの特徴でフィルタリングできる技術があるなら売れるかもしれないが、そうでないとあまりニーズがないんじゃない？

**デフォルトの名無しさん** · 2025/08/03(日) 19:55:58.55

.AutoFilterで指定の日付に一致で挑戦していますがdate型で一致を試みても一致しないのですね
DateSerial(指定の日付)ではダメで、
Format(DateSerial(指定の日付), "セル.Text") でないとダメなんですね
こうなるとセルの表示形式をvbaで指定して表示形式を完全一致させるしかなさそうですね。

**デフォルトの名無しさん** · 2025/08/03(日) 20:05:09.92

やっと会社のOfficeが365版になったけどすごいね、追加された関数
配列系の関数がかなり強化されたから普通にワークシート関数でpandasっぽい操作が色々できて快適

**デフォルトの名無しさん** · 2025/08/03(日) 20:10:32.84

>>598
パンダ🐼ズってなんですか？🤔
Power Queryでよくないでしょうか？

**デフォルトの名無しさん** · 2025/08/03(日) 20:25:55.74

>>597
できた
Range("A1:A32").AutoFilter field:=1, Criteria1:=">=" & DateSerial(2025, 8, 3), Criteria2:="<=" & DateSerial(2025, 8, 3)
※A2～A32：2025/8/1～2025/8/31

**デフォルトの名無しさん** · 2025/08/03(日) 20:34:53.53

>>598
てか、
普通にVBAでPython使えればいいのに…

**デフォルトの名無しさん** · 2025/08/03(日) 20:46:44.86

>>600
そうなんです
指定日に一致は.Text（画面上の表示）に合わせないといけないのに、
以上以下、
より大きいより小さいはできるんです
だからどうしてもdate型でやろうと思うなら、
DateSerial(2025, 8, 3) "=<" “>=”DateSerial(2025, 8, 3)
みたいにCriteria1とCriteria2を駆使しなければならない
だったらセルの表示形式も一時的でいいから一意に固定してそれでformat(date型,”指定した書式”)でCriteria1だけにフィルターした方が確実だと思うのです

**デフォルトの名無しさん** · 2025/08/03(日) 21:11:15.05

>>598
ACCESS使えるならお勧め
まあ何をDBでやると都合いいのか、からだが

**デフォルトの名無しさん** · 2025/08/03(日) 22:36:46.93

フィルターをするのもわソートをする事も一苦労な上に不正確というのがVBAの致命的な欠陥であり、ExcelがExcelたる由縁ではないでしょうか

**デフォルトの名無しさん** · 2025/08/03(日) 22:59:57.32

>>604
Execlは表計算ソフトだからソートという機能は重要ではなかった

フィルタも仕様を大きく変えたので、VBAがついてこれないだけ。

**デフォルトの名無しさん** · 2025/08/03(日) 23:00:50.98

>>604
Excelシートをテーブルに見立ててSQLで操作できるんだよ？

**デフォルトの名無しさん** · 2025/08/03(日) 23:30:27.42

VPageBreaks(1).Dragoff xlToRight,1

**デフォルトの名無しさん** · 2025/08/04(月) 06:52:45.16

テーブルのAutoFilterの絞り込みを解除するにはws.ShowAllDataではなくてtbl.AutoFilter.ShowAllDataだったのね

**デフォルトの名無しさん** · 2025/08/04(月) 07:58:56.26

>>603
Accessは次の2027でディスコン、後継はExcelのモダン機能使えって話だからな
今からAccess使い始めるメリットは僅少

**デフォルトの名無しさん** · 2025/08/04(月) 12:16:02.82

>>609
情弱w

**デフォルトの名無しさん** · 2025/08/04(月) 13:02:17.40

>>610
？

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

そして時は動き出す

**デフォルトの名無しさん** · 2025/08/06(水) 19:01:16.26

と思ったがやっぱり止める

**デフォルトの名無しさん** · 2025/08/06(水) 19:03:13.54

普通にExcelを使用するならまず使わないAddress関数も、VBAならセルの指定やセルの範囲指定に使えるとやっと気づいて感動を覚えた。

**デフォルトの名無しさん** · 2025/08/06(水) 19:28:37.58

馬鹿自慢ですか？

**デフォルトの名無しさん** · 2025/08/06(水) 19:51:44.79

>>587
なんとか、Seleniumでテーブルのデータ取れた
うれしい

**デフォルトの名無しさん** · 2025/08/06(水) 19:57:00.96

>>616
Power Automate Desctop使おう泣

**デフォルトの名無しさん** · 2025/08/06(水) 20:54:00.65

VBAのRangeと関数のINDIRECTはほぼ似た様なものだったんだ

**デフォルトの名無しさん** · 2025/08/06(水) 20:55:15.43

>>614
ADDRESS関数はワークシートで使うならINDIRECT関数と組み合わせると便利だよ

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

ワークシートのセルに=D1:F10を入力します。
=を消します
あ〜ら不思議
Range()に使える文字列になります震え声
知らなかった

**デフォルトの名無しさん** · 2025/08/06(水) 22:10:53.86

>>619
以前は揮発性関数を使っていると、クローズする時
変更してなくても「変更を保存しますか？」と聞かれてウザかったけど、最近はそうならなくなったね

**デフォルトの名無しさん** · 2025/08/06(水) 23:12:12.97

>>621
あれ糞うざいよな
もう地球に隕石落ちて滅びれば？って思うほどイラつくよ

**デフォルトの名無しさん** · 2025/08/06(水) 23:32:51.54

>>621
よくそんなことに気づきましたね…
そんなことばかりで、最近はもう、ちょっとした違和感は無視する習慣がついてしまって
いけないことですが