Excel VBA 質問スレ Part81

**デフォルトの名無しさん** · 2024/04/18(木) 14:03:38.03

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

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

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

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

**デフォルトの名無しさん** · 2024/09/18(水) 11:37:48.60

まだIEは使えるしEdgeやChromeも使える

**デフォルトの名無しさん** · 2024/09/18(水) 12:03:02.51

>>514
そのやりかたとは？

**デフォルトの名無しさん** · 2024/09/18(水) 14:03:12.68

Floorp

**デフォルトの名無しさん** · 2024/09/18(水) 16:32:27.89

>>511
Privateは1文字目じゃないのこれ

**デフォルトの名無しさん** · 2024/09/19(木) 20:18:28.74

>>511
だよね～

**デフォルトの名無しさん** · 2024/09/20(金) 22:36:42.12

まだマクロのスレが息しているとは驚き

**デフォルトの名無しさん** · 2024/09/21(土) 00:06:25.91

>>519
そろそろ就職して現実を見ろよ

**デフォルトの名無しさん** · 2024/09/22(日) 09:20:02.85

>>520
その前に、就職していない現実を見ろよ

**デフォルトの名無しさん** · 2024/09/29(日) 10:55:52.42

ププッw　効いてる効いてる

**デフォルトの名無しさん** · 2024/09/29(日) 10:59:10.16

VBAで業務効率化をしたいけどもうこれ以上アイデアが浮かばない
アイデアを浮かばせるのによいことってあるかな？

**デフォルトの名無しさん** · 2024/09/29(日) 11:22:06.13

アイデアを作る一番良い方法はインプットとアウトプットを増やすこと
ってなんかの本で読んだ

**デフォルトの名無しさん** · 2024/09/29(日) 16:26:37.39

仕事嫌だけど週末に思いついたはコードを試したい

**デフォルトの名無しさん** · 2024/09/29(日) 21:08:04.43

>>523
まずは手作業で全部やってみ？

**デフォルトの名無しさん** · 2024/09/30(月) 10:30:36.61

色んな情報を脳にインプットすることで選択の幅が広がる
それらを実際にアウトプットとして作ることで良い所や悪い所が経験として蓄積されるみたいな

**デフォルトの名無しさん** · 2024/10/01(火) 00:08:28.55

seleniumBASICをインストールしてヘッドレスモードでスクレイピングしてたんだけど
突然、ヘッドレスモードにならずにブラウザが表示されるようになった

chromeとchromedriverをアップデートしたのが原因なんだろうけど
今までアップデートしても何とも無かったのになんでだろう・・・
　
ブラウザが表示される以外では問題なくスクレイピング出来ています。
なぜだか分かりますか？

**デフォルトの名無しさん** · 2024/10/01(火) 04:27:07.05

>>528
ブラウザの仕様はしょっちゅう勝手に変わる

**デフォルトの名無しさん** · 2024/10/01(火) 06:33:46.48

ASISが仕様と諦めて地道に追従するしかない

**デフォルトの名無しさん** · 2024/10/01(火) 07:13:42.06

>>528
白いウィンドウが表示されるやつ？
オプションを　--headless=old　にしたら表示されなくなったよ

**デフォルトの名無しさん** · 2024/10/01(火) 11:08:22.05

Dim ary(2) As Long
ary(0) = 101
ary(1) = 102
ary(2) = 103
Dim dic As New Dictionary
dic.Add "a", ary
Debug.Print dic("a")(0) '①
dic("a")(0) = 101000 '②
Debug.Print dic("a")(0) '③

VBAって①はできるのに②はできないのな
①と③の結果が同じで101
chatGPTに聞いてみたけどしっかりは理解できんかったわ
参照できないんだってことは分かった
一旦valueの配列を取得してから、この配列の(0)に代入したあとにもう一度元の位置に配列ごと戻せということらしい

C#とjavascriptで同じ事やってみたけど普通にできるからVBAが異常なんかね

**デフォルトの名無しさん** · 2024/10/01(火) 11:31:03.00

>>531
うおおおおおおおおおお
モーレツに感動しました
マジでありがとう

ここ数日悩みまくって　"headless=new"　を試したけどダメだった

そうかぁ old　だったかのか・・・

**デフォルトの名無しさん** · 2024/10/01(火) 11:40:57.94

>>532
配列じゃなくてdicの値を取り出す関数だからね

**デフォルトの名無しさん** · 2024/10/01(火) 11:43:32.60

年取ったら超単純な機転が利かなくなっちゃうんだろうな、めげずに頑張れ

**デフォルトの名無しさん** · 2024/10/01(火) 15:03:02.71

>>534
gptもそんなこと言ってた
variant型変数取り出してるからどうのこうの
でもそれなら(0)ってつけたらエラー起きちゃうんじゃないの

Dim a As Variant
Debug.Print a(0)

たとえばこうやるとエラー起きるじゃんみたいな話に持って行ったんだけどうまくはぐらかされて撤退してきた

エラーが起きるなら仕様なんだなって分かるんだけどエラーでない
101000はどこに行ったのか聞いてみたけどそれもよくわからんかった

gptの話だと、結局本体ではなくてコピーに代入してるそうだ
そうなのかそうなんだって、わかったふり

**デフォルトの名無しさん** · 2024/10/01(火) 19:54:06.57

他の言語と違ってVBでは配列をコピー（代入）すると
中身も含めて丸ごとコピーされる
つまりdicへの格納、取出しのたびに複製された配列が作成される
複製の中身を書き換えても元のデータは変わらない

他の言語では参照のコピーになる事が多いね

**デフォルトの名無しさん** · 2024/10/01(火) 23:57:01.81

なので参照になるようにすればエエってこと

**デフォルトの名無しさん** · 2024/10/02(水) 10:28:02.48

>VBでは配列をコピー（代入）すると
>中身も含めて丸ごとコピーされる

いや他の言語でもそうだろω

**デフォルトの名無しさん** · 2024/10/02(水) 10:33:17.12

>>539
あなたは脳弱ですね

**デフォルトの名無しさん** · 2024/10/02(水) 10:41:52.26

ByValやByRefは使えないの？

**デフォルトの名無しさん** · 2024/10/02(水) 11:06:17.08

>>539
参照をコピーする言語の方が多いんじゃね

**デフォルトの名無しさん** · 2024/10/02(水) 13:02:33.22

VBAってちょっと小難しいことし始めるとはまる
ゴリゴリ書いてれば問題起きないんだけど

>>532の続きなんだけど、
結果としてできあがったDictionaryのvalue部分をそのまんまワークシートのRangeに代入しようというのが次の課題です。

dic.Itemsで取得できる配列が、ちょうどVariant型の2次元配列っぽい
てことは、これはそのままRangeにぶち込めばいけるんか？と思ってやってみたら、#N/Aが代入されたりとよくわからん
もしかして～と思ってWorksheetfunction.Transposeを二回かけたら、なんか成功した。
これも理由はよく分からんかったのだが、ありがとうございますTransposeさま

そもそも2回Transposeかけるとうまくいくってことがあるってのが理解できないのが俺のだめなところなんで勉強してきます

**デフォルトの名無しさん** · 2024/10/02(水) 14:54:23.03

あーわかった
dic.Itemsで取得できる配列は(1, 1)とかではアクセスできないやつだ
(1)(1)か
これが前の疑問の答えにも繋がりそう

**デフォルトの名無しさん** · 2024/10/03(木) 20:33:55.02

（・）（・）

**デフォルトの名無しさん** · 2024/10/06(日) 17:37:17.48

VBAを利用してURL(WEBにある)画像をはりたい

【状況】
あるシート(シート1とする)のA列に画像のURL(画像.jpｇ)だけが多くの行数に渡りはってある。
なおそのA列の中にはURLがない行もある(1行や2行URL無かったり)

【したいこと】
上と同じシート(シート１)のB列にA列のURLにアクセスしたときの画像をはりつけたい。
またURLがはってある終りの行になったら止まるようにしたい。
なお、URL元リンク参照だけだとリンク切れしたときに画像も表示されなくなるのは困るので、
画像を埋め込んだ形にしたい。
(URL元リンク画像が変更されたときはしかたない)

どなたか教えて頂けたら助かります。

OS：windows10
Excel2013

**デフォルトの名無しさん** · 2024/10/06(日) 22:29:50.86

ブラウザ何使ってるんだろ？

**デフォルトの名無しさん** · 2024/10/06(日) 23:24:40.36

>>546
HTMLにはいくつも画像があると思うけど？

**デフォルトの名無しさん** · 2024/10/07(月) 00:25:16.29

>>546
セルA1に画像のURLが書かれているとき、その画像をセルB1に表示するVBAコードは
Url = Cells(1, 1)
Cells(1, 2).InsertPictureInCell (Url)

あとは Cells の第1引数を i 等に変えて、Url = "" が何回か連続するまでDo～Loop等で回せばいい

が、VBAを使うまでもなく、IMAGE関数を使うほうが楽
B1セルに
=IMAGE(A1)
と書いて、セルの右下隅にカーソルを合わせ、黒い「＋」が出たらダブルクリック

**デフォルトの名無しさん** · 2024/10/07(月) 00:39:41.14

自レス
>>549はやっぱうまく動かんかも
Select使う形に変更
Cells(i, 2).Select
Selection.InsertPictureInCell (Cells(i, 1))

**デフォルトの名無しさん** · 2024/10/07(月) 07:28:10.74

>>548
何言ってんだURIは一意だろ

**デフォルトの名無しさん** · 2024/10/07(月) 08:11:41.52

>>548
htmlじゃなくてjpgのURLだぞ
質問がわかりにくいけど、そう読み取れる

**デフォルトの名無しさん** · 2024/10/07(月) 09:24:43.78

えっちな画像収集のVBAか？　画像のリンクを隠すサイトも多いからどうなんだ
つか、Excel2013でネット上のファイル収集　怖いもの知らずか

**デフォルトの名無しさん** · 2024/10/07(月) 18:57:33.84

普段はスケベな画像収集のためにVBA書いてるだけなんでしょ？

**デフォルトの名無しさん** · 2024/10/07(月) 19:48:37.22

>>546
シート1のA列にあるURLから画像を取得しB列に貼りつけ
Sub InsertImages()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim pic As Picture
Dim picURL As String

' シート1を設定
Set ws = ThisWorkbook.Sheets("シート1")

' A列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' A列の各行をループ
For i = 1 To lastRow
picURL = ws.Cells(i, 1).Value

' URLが空でない場合
If picURL <> "" Then
' 画像をB列に貼り付け
Set pic = ws.Pictures.Insert(picURL)
With pic
.Left = ws.Cells(i, 2).Left
.Top = ws.Cells(i, 2).Top
.Placement = xlMoveAndSize
End With
End If
Next i
End Sub

**デフォルトの名無しさん** · 2024/10/07(月) 19:56:22.41

>>546で書いた者なのだが
https://i.imgur.com/M4CtahS.png
とりあえずこれでなんとかいけそう
なんとかというかまぁ、いけるがgptに頼った自分にもやもやする

>>549
IMAGE関数ってEXCEL2024だか2023の最新版の機能なんじゃないの？
俺持ってるのEXCEL2013だからIMAGE関数が実装されてない
というかもともとIMAGE関数ってあった？いやしらんけど

>>553-554
スクレイピングかどうかは俺も良くわからない

**デフォルトの名無しさん** · 2024/10/07(月) 19:59:06.34

>>555
遅くなったがサンキュー

これを機会にマイクロソフトクエリーと、vbaというか関数込みをしっかりやりたい
gpt案外いい先生になる
コードに説明添えてとか質問したら答えてくれるし

**デフォルトの名無しさん** · 2024/10/07(月) 21:11:01.50

>>555
' URLが空でない場合

サンキューついでに思ったのだが、
このコメントって　URLが空で（はない）場合、つまりURLがある場合なのか、
URLが空っぽで無い場合、つまりURLがない場合なのか、
というかセルにないのかあるのか、
URL自体が存在ないのかあるのか、
わからん　if　<>　then　で読み取れるちゃとれるが

**デフォルトの名無しさん** · 2024/10/07(月) 21:44:05.09

こんなのサンプルプログラムレベルだろ
ChatGPTをありがたがる奴なんてこんなもん

**デフォルトの名無しさん** · 2024/10/07(月) 22:19:33.65

>>555
のは、リンク先の画像サイズがそのまま貼り付く
>>556
のは、セルの高さに合わせてリサイズされたものが貼り付く　共によきかな

**デフォルトの名無しさん** · 2024/10/08(火) 03:02:45.83

>>558
あの書き方はDBなどnullもあり得る場合にも対応できる判定方法
それを踏まえてああ書くように覚えとくといい

**デフォルトの名無しさん** · 2024/10/08(火) 03:27:35.63

GPTってファイルサーチのモジュール書いてと言ったら書いてくれるんかね？

**デフォルトの名無しさん** · 2024/10/08(火) 03:50:49.48

>>562
ネットの海に誰かの書いたサンプルがあれば探してきてくれる
なければ動かないめちゃめちゃなコードを出すか、何の役にも立たないアドバイスをくれるかどっちか

**デフォルトの名無しさん** · 2024/10/08(火) 07:27:56.80

>>563
何も知らないなら何も言わないほうが良いぞ
馬鹿がバレるから

**デフォルトの名無しさん** · 2024/10/08(火) 09:26:28.18

>>559
googleで検索しても該当する妥当なものがヒットしなかった
IMAGE関数という最新のExcel2024を用いた検索結果が冒頭にヒットした
まぁ販売する側は買わせたいのだろうけどね、生憎俺はExcel2013なんだ
その他検索ワードを遡ってみたりしてもうまい具合なのは出なかった
具体的なVBAコード、サンプルコードが出なかった
俺の検索ワードの入れ方が間違っていたのかもしれない
即答性を考えるとChatGPTが良かった
今更ながら実践として懐疑的な見方をしていたがいい具合にでたので結果的には満足だが自分の未熟さは痛感してる

**デフォルトの名無しさん** · 2024/10/08(火) 09:29:20.79

>>560-561
たしかにセルの高さに合わせてリサイズだね
最初ChatGPTでそのまま貼りつくがあったんだけど、
ChatGPTが吐いたコードをもう一度質問にいれてもっとよくできないかとか質問したら
リサイズとかいろいろ候補だしまくってきて、それが楽しかった
最初手打ちでぽちぽちやろうとしていたのだがその時はセルが大きすぎるから画像サイズがそのままでも
よかったんだよね。元の画像を勝手に縮小サイズにされて貼り付けられるのが怖かったけれど。
うまいことセルに合わせてくれるからそれはそれで結果オーライ
書き方についてはなるほどね、nullか。nullと聞いて思い出したのだが
今作ってる表をDB化というかマイクロソフトクエリーでいじりたいと思ってて、
その際空欄セルどうするか考えてたのよね。日付の場合の空欄はどうしようとか、色々

**デフォルトの名無しさん** · 2024/10/08(火) 09:58:30.42

考える前に手を動かせばよかったな

**デフォルトの名無しさん** · 2024/10/08(火) 10:22:56.17

chatGPTが凄いと思ったことは一度も無い

**デフォルトの名無しさん** · 2024/10/08(火) 10:43:31.59

俺は人と違う的なことをいいたがる思春期かよ

**デフォルトの名無しさん** · 2024/10/08(火) 12:11:10.81

40代の思春期

**デフォルトの名無しさん** · 2024/10/08(火) 12:41:26.30

クエリと null がどう関わって気に成るのか（ま、疑問を持つのはいいことだけど）
null IsNull Is Not Null ISBLANK（Accessでしか使えないのも混じってるけど、あれこれ試せばいい）
<>"" ="" とかもあったかな　トライ＆エラーはだいじ

**デフォルトの名無しさん** · 2024/10/08(火) 12:59:11.87

マニュアルをちゃんと読めば、構文が正しいかどうかは試さなくてもわかるんだ
でも読む手間より試す手間のが少ないからみんな試すんだ
でも長い目で見れば毎回試すよりちゃんと覚えた方が結果的に早道なんだ

**デフォルトの名無しさん** · 2024/10/08(火) 15:16:13.86

試行錯誤

**デフォルトの名無しさん** · 2024/10/08(火) 16:52:21.08

trial and error だとダメ出しを喰らった　なんてこった　トライアルアンドエラー　舌がもつれる

**デフォルトの名無しさん** · 2024/10/08(火) 19:16:43.88

トライアンドエラーは素人が使う言葉

**デフォルトの名無しさん** · 2024/10/08(火) 19:24:29.44

>>559
いま思ったんだけど、
こんなのサンプルプログダムだろって書く余裕はあれど
その答えをさくっと書かないってのはどうなのかとも思ってみた
なんだろう、質問コーナーみてて知ってるのに教えないでそれﾆﾔﾆﾔみてて
解決したのを面白く思わないみたいな感じ？
そういう大人（老害）、心も体もにはならないように俺頑張るよ

**デフォルトの名無しさん** · 2024/10/08(火) 19:36:31.98

キーボードで書いたんです

**デフォルトの名無しさん** · 2024/10/08(火) 19:53:26.81

そもそもなんでExcel VBAでやろうとしてんのかわからない

**デフォルトの名無しさん** · 2024/10/08(火) 19:55:54.79

>>576
お前みたいな馬鹿に教える理由がないから

**デフォルトの名無しさん** · 2024/10/08(火) 20:04:31.15

質問に答えることはしないくせに、
討論というかレスバというか議論にもならないただの暴言を書きたいだけってのが悲しいと思う
やっぱりそうならないように老害にはなりたくない
そもそも馬鹿に教える理由はないと思っていながらそれを書いている段階で矛盾している
どうでもいいならそもそも何も書かないし相手にもしない

**デフォルトの名無しさん** · 2024/10/08(火) 20:05:26.05

>>577
ちなみに寿司打全項目1位です
ピクタイピングも1位です
etyping上位です
速すぎてごめん

**デフォルトの名無しさん** · 2024/10/08(火) 20:10:47.55

自分の時間って限られてるからね
そりゃあどうでもいいものに答える時間があったら他に使うよね
俺はいつもそうしてる
そして親切に答えてくれた人には感謝も忘れない

自分の時間を持て余して無駄な暴論や暴言を書き殴れるって羨ましい
でもここって書きっぱなしの逃げっぱなしにできるからね
雁字搦めにして徹底的に束縛して殴り続けたいならここは貧相だよ
discordとかだと相手してあげなくもないけどね
でもちょっとした悪口くらいならどうせサーバー教えてもこっちが待つの無駄でしょ

**デフォルトの名無しさん** · 2024/10/08(火) 20:36:57.82

>>547
ブラウザはFirefox一筋です
画像検索結果の表示が他に比べて最も高速は今も譲らないと思うんですよ

>>548-551-552-553-554
後付けになるけれど
A列に何行も色々な画像の拡張子付きURLがずらずらと書いてある
B列の行にはA列の行にある画像を表示させた結果を埋め込む
なお埋め込むと書いたのはただ表示させるだけだとA列の画像URLがもしデッドリンクになった時に
B列で表示した画像も消えるかもと思ったから
一番の不安はその埋め込みできるかどうかだった
項目は数100万超えはしないが人力でやれなくはないけれど流石にとは思ったから
古いExcelのネット利用は怖いとあるけれど実際案外古すぎるExcelでも実用に耐える
なんなら2000くらいでも実用に耐えるむしろヘルプが充実してる
なおスケベ画像は他のクローリング使ってるからそれほどって感じ
今回は他の項目も必要だったからということ
新しいExcelの購入も考えたけれどVBAでなんとかなるだろうと
一瞬で閃かなかったのでというか閃く時間が勿体なかったので
とりあえず5chにさっと投稿してすぐグーグルで検索したが案の定最新の機能紹介で
上位は埋め尽くされていたし、なにやらよくわからない自称PC自信ニキやらネキの自慢話
含めたやりかた講座やスクロールすると教室紹介のサイトなどあって
無理そうと感じChatGPTで検索してみたわけ。実践でここまでできるのはよかった
なおじゃあ2000のヘルプとか他のヘルプもってるのにどうしてと思ったけど
こっちはさっさと画像眺めたいし他の作業したいのだよと
それだけですはい、あっ、エスパー真美さんみてますか？僕です将軍です。

**デフォルトの名無しさん** · 2024/10/08(火) 21:22:24.08

うわ触れたらアカン奴だ

**デフォルトの名無しさん** · 2024/10/08(火) 21:32:33.00

>>584
触れたらいけないかいけなくないかは本人の意思決定によるものだと思うけれど、
なにも役立つことをかかずに煽ったり悪口だったり他人を傷つけることしかできない人間は
むしろ何も書かないことより罪だと思うよ
それでも書かなくちゃいけないってことはどうしても自分の意見をぶつけたい人だってことだろうから
俺に対して何らかの思いがあるんだろうね
残念だけど俺には君に対する思いはそれだけの発言じゃなにひとつ伝わらないけれど

**デフォルトの名無しさん** · 2024/10/08(火) 23:32:43.55

孤独な老人という感じだな
無職確定

**デフォルトの名無しさん** · 2024/10/09(水) 00:04:35.96

馬鹿に馬鹿って指摘するとこうなる

**デフォルトの名無しさん** · 2024/10/09(水) 00:28:06.72

他のスレでも連投ちゃんよく見るけど同じ人なんかな…

**デフォルトの名無しさん** · 2024/10/09(水) 06:33:08.14

>>566
＞空欄セルどうするか考えてたのよね。日付の場合の空欄はどうしようとか、色々
空欄は基本的に空欄のままでいい
1900/1/1とか入れる手もあるが、空欄か1900年か判定が変わるくらいの話し
まあ、個人の作るものは厳密に考えなくても都合のいいように作ればいい

**デフォルトの名無しさん** · 2024/10/09(水) 07:49:19.41

Sub Test
Dim x As Integer
x = 1.9
Debug.Print x
End Sub
これexcelのvbeで実行すると2が出力されるんだけどどのAIも1が出力されるはずって言うしネットで見てもintegerは小数点以下切り捨てって言う。うちのexcelバグってのか？

**デフォルトの名無しさん** · 2024/10/09(水) 08:19:42.94

そういう微妙な点に頼らないコーティングを心がけるのがプロ

**デフォルトの名無しさん** · 2024/10/09(水) 08:47:34.26

>>590
AIが間違える、いい例だね
ヒントはこれ
実行する前にどうなるか予想してから動かしてみ

Sub Test2()
　　Dim x As Integer
　　x = 0.5: Debug.Print x
　　x = 1.5: Debug.Print x
　　x = 2.5: Debug.Print x
　　x = 3.5: Debug.Print x
End Sub

**デフォルトの名無しさん** · 2024/10/09(水) 11:51:48.33

sub test
set dic = createobject("scripting.dictionary")
set dic("水の呼吸") = createobject("scripting.dictionary")
dic("水の呼吸")("壱ノ型") = "水面斬り"
end sub

…こういうこと出来るの皆もう知ってたの？
めちゃくちゃ便利じゃないか連想配列…

**デフォルトの名無しさん** · 2024/10/09(水) 12:16:49.35

createobject使わずに参照設定した方がいいよ

**デフォルトの名無しさん** · 2024/10/09(水) 12:22:40.83

参照設定で３行目と同じ挙動を再現できるの？

**デフォルトの名無しさん** · 2024/10/09(水) 12:24:51.56

…普通にできたわ。ありがとう

**デフォルトの名無しさん** · 2024/10/09(水) 13:36:52.69

上の方の、画像URLから画像取り込みに関連してだけど
これを応用で、どっかのフォルダに溜め込んだファイル名を一括取得して画像を貼り付け　には使える
>>555 のだと、元画像サイズがでかいとめっさ時間掛かるし貼り付け後の整理が大変だし
>>556 のだと、行高さだけ事前に適宜合わせておかないと後で個別にリサイズが大変だけど

そもそも、ネット上の画像のURLリンクを大量に引っこ抜く事の方が大変で面倒なのでは？
元々、溜め込んだエロ画像のサムネ作りとか用途で思い付いたのかも知れない（おれはそうする

**デフォルトの名無しさん** · 2024/10/09(水) 14:18:14.24

馬鹿を召喚するな

**デフォルトの名無しさん** · 2024/10/09(水) 17:11:11.21

サイトによるけど、URLだけ抜き出すなんて大した手間じゃないし難しくもなんともない
むしろ、画像だけダウンロードしようとしても503エラーとかでアクセスできない場合がまれによくあるのが面倒

**デフォルトの名無しさん** · 2024/10/09(水) 18:16:34.84

なるほど、これか
ps://www.octoparse.jp/blog/bulk-download-images-from-links-top-5-bulk-image-downloaders
これとまったく同じことをしたかったってことか　Google Spreadsheet でも出来たんじゃん

で、この質問は、ここで相談する前にAccessスレッドでもしてて
>1つのレコードに顔写真128*128があって、あとはその人にまつわる出身校や名前生年月日みたいなの
という、ぁゃιぃ魂胆が書かれていたんだが、　>野球とかサッカーのメンバー表みたいなやつ　とか
言い訳してたけど、それにしても100万リンクもあるのか？　なんかぁゃιさが増すな
10万が1万だとしても、そんな画像が満載のサイトなんて、どっかの鯖に潜ってハッキングでもしてるのか　ぁゃιぃ

**デフォルトの名無しさん** · 2024/10/09(水) 18:35:24.72

>>600
FBやインスタのクローラーでも作ろうと目論んだんでしょ

**デフォルトの名無しさん** · 2024/10/09(水) 22:03:11.00

特定カテゴリーの名簿を作って売る業者か
今は最低10万レコードないと売り物にならないからな

**デフォルトの名無しさん** · 2024/10/10(木) 10:25:55.73

顔写真付きの個人情報？　業者のクセに2013？　ヤバさが否応なしに膨れ上がる
どっかの鯖から勝手に引っこ抜くことなんか今日日そう易々と出来ないだろうし、漏れたら委員会と本人にすぐ告知する義務がある
アクセスログに記録されて捕まってしまえ

**デフォルトの名無しさん** · 2024/10/10(木) 12:08:35.60

>>597
R18も確かに一部含まれているが
大量の画像URLリンクを抜くことは問題なくこなせた
面倒で大変というか時間的に置換処理とか効率よくしないとガバガバ時間吸われる

で、エクセルで画像抽出関連を調べるとフォルダにある画像を貼りつけるとかはヒットする
俺のようにURLぶっこ抜いて、物故抜いた画像元のURLとか消されてじゃ困るんでマッハで保存もしておきたい、
こんな考えが根底にある場合の想定の質問はあまり見かけなかった
というよりGPTもそうだが最近win10に現れてきたコパイロットにも同じ質問してみたが案外いける

だが、コパイロット現れた瞬間
「おまえを消す方法」
は忘れずに質問しておおいた。
コルタナさんと同じだね。

**デフォルトの名無しさん** · 2024/10/10(木) 12:13:53.05

>>600
Accessスレッドでレスしてたのはご名答
もっとも件数でAccessは却下となったが
それとoctoparseってたしかスクレイピングのやつよな
データスクレイピングで検索すると高頻度のトップで出現するやつ
いろんなものガバガバインすトゥールするでやんすしたくないでやんすだったのでスルーしてた
が、参考になるな

ああ、レコードに顔写真128*128もご名答
書いたけれやきうや国民的球蹴じゃないよ

**デフォルトの名無しさん** · 2024/10/10(木) 13:21:24.74

書かせれば書かせるほど、時間軸がズレた人の様子だが、大震災前の世界線からタイムリープしたひとかな？
あれから世の中ゴロっと変わってるんだけど、知らずに勝手なことしてると又塀の向こうへ逆戻りだぞ？
ドラマや映画じゃ、出る時に刑務官から「二度と戻って来るなよ」とか激励されてるだろうに
良い子のみんなはこの人の真似しちゃダメだからな

**デフォルトの名無しさん** · 2024/10/10(木) 18:10:24.66

こいつ、VBAを知らないワープロが弄れることが自慢だった例の無能爺だろ
いつも解決方法自体が馬鹿による馬鹿な発想だったアホ

**デフォルトの名無しさん** · 2024/10/10(木) 19:13:42.09

>>607
まぁ何事も1位ならなきゃ胸を張れないわね
えっと、あなたに何かご自慢なものありますか
単発IDはくやしいのう

**デフォルトの名無しさん** · 2024/10/10(木) 20:09:35.79

どうせこのスレに来ているヤツなんてじじいばっかなんだからみんな仲良くやれよ

**デフォルトの名無しさん** · 2024/10/11(金) 06:58:08.81

>>597
面倒ってわけでもない
連番でだいたい規律よく整ってる
連番じゃない場合はそれぞれのurlごと落としてそれぞれのurlから部分抽出したらいい
その下あたりにのレスで画像リンク切れでエラー出た場合が面倒とあるけど俺もそれが気になってたけど
俺がgptと相談して書いてもらったコードは修正を数回重ねたものなんだけどその中にurlにエラーとかあればすっ飛ばすってのが
あるからすっ飛ばして次の画像取得するようになってる（はず）

>>607
というかもう一度書くけど単発IDはくやしいのう
弁明の一つも出来ないのか
discord案内したるでｗ

**デフォルトの名無しさん** · 2024/10/11(金) 08:50:00.78

そんなムキに成って構うってことは、図星だったってことじゃないか
しばらく鳴りを潜めていたと思ったらつまんない楽しみ見付けちゃって小躍りしてるってことか
個人情報保護法めっさ厳しく成ってんだけど、懲役１年と罰金100万どっちがいい？　法人でやってたら1億だけど

ま、今時画像ファイルに連番振ってるようなサイトは、20年前から放置しっ放しなレトロサイトぐらいだろうけど
最新の情報載せてて連番振ってるようなサイトだとそもそもリンクが辿れない気がするし

**デフォルトの名無しさん** · 2024/10/11(金) 10:42:31.49

>>611
具体的にどことなんて話してないからあなたの推測でしか書けないわけだけど、
すげー的外れてるかも
俺の場合は機械的に煽られようが何されようが淡々と答えてるだけだからなぁ
そこに感情を入れる意味がないし
汚い言葉を使うならゴミの1秒と俺のそれとは価値が違うンだわと
だから文句をどうしても言いたいならもっと言わせてやるし、
場所の提供だってしてあげるって話なんだけど飲まないよなぁ、どうしてか
ここでいわゆる老害となって邪魔するだけに没頭する存在と化すのもまた自由ともいえる

**デフォルトの名無しさん** · 2024/10/11(金) 12:58:23.34

長文ばっかでみんな熱いなあ