Excel VBA 質問スレ Part74

■ このスレッドは過去ログ倉庫に格納されています
2021/12/20(月) 01:40:59.22ID:jnlr9GaR0
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part73
https://mevius.5ch.net/test/read.cgi/tech/1631485799/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
159デフォルトの名無しさん (ﾜｯﾁｮｲ eb68-425w)
垢版 |
2021/12/30(木) 00:21:53.32ID:BMltdAMp0
>>158
なんと！
特に無い
2021/12/30(木) 00:23:09.37ID:XrPmVdqE0
2013て言い方悪いけど中途半端と聞いた
2016こそ至高だと
2021/12/30(木) 01:17:13.85ID:Aosnucfp0
>>160
そうなの？

若い人は知らないかもしれないけどマルチプランやロータス123の時代から表計算ソフトを使ってて、正確なバージョン番号は忘れたけど Excel はずっと昔の2003とか2007くらいが使いやすかったな。その後バージョンアダルト重たくて使いにくくなっててできるだけバージョンアップはしないようにしてる。
数年前まで2010を使ってた。
2021/12/30(木) 07:04:56.73ID:xtSEOuqd0
エクセルは表計算ソフトと言いながらも表が苦手
シートをマス目で区切ってるだけで未だにDOS時代と変わらん
マス目サイズの異なる表を１シートに乗っけようとすると涙ぐましい努力と根気が必要
こんなソフトいつ放棄されてもおかしくないだろ
自由な表の管理ができるという意味ではmacのnumbersが気持ちいい
2021/12/30(木) 07:15:13.58ID:xtSEOuqd0
ロータス123とかを無理やりなぎ倒してWin上で天下をとっただけで使い勝手は褒められたもんじゃない
開発陣に何のポリシーも感じられない
これはワードも含めてオフィス全般に言えること
2021/12/30(木) 07:20:01.10ID:kiJsXJBS0
>>158
2013から2016になったときにVLOOKUP関数が最大約400倍高速化されたらしい
全然実感わかないけど
2021/12/30(木) 07:26:16.91ID:OeLQVmSyM
表を計算することが目的であって表を表示するのはその手段
目的と手段を勘違いするとそうなる
努力の方向性を間違ってるユーザーが結構多い
166デフォルトの名無しさん (ﾜｯﾁｮｲ eb68-425w)
垢版 |
2021/12/30(木) 07:32:21.83ID:BMltdAMp0
>>165
もっともらしいことを適当に言うのやめろｗ
2021/12/30(木) 07:51:52.64ID:8+ThTXSQ0
もうここのとこずっと365
一年に13000円くらい払うことになるけど
まぁひと月1000円ちょいと考えれば。
2021/12/30(木) 07:52:58.51ID:bYlmD/mgM
日本人の表好きは異常
何でもかんでも表の体裁にこだわる
過度にレイアウトに懲り過ぎる
2021/12/30(木) 07:59:51.25ID:NuGcpOOj0
>>167
バックアップ取りまくれば元取れる
何百GB分の動画とか写真がおすすめ。
2021/12/30(木) 09:18:56.59ID:XrPmVdqE0
表計算の範疇を超えた使い方するのも日本人くらいみたいね
外人がExcelで作ったゲームを見て「日本人はクレイジーなのか！」って
2021/12/30(木) 10:32:39.39ID:94fh5ino0
セルの塗りつぶしで絵を描いたりな
2021/12/30(木) 10:54:20.98ID:o85gWmnS0
ゲームといえば風来のシレンが好きな人いない？
マス目や限られた道具や知識を駆使して問題を切りぬけていくところがexcelに通ずるものがある。と思うんだが
2021/12/30(木) 11:15:01.92ID:JrNWRVQq0
Excelで遊べるローグライクなら作ってみた事がある
流石に1ターンの処理に時間が掛かり過ぎるから1フロアだけ作って投げたけど
2021/12/30(木) 13:17:02.67ID:jHCXLnIv0
死ぬほど遊んだ
2021/12/30(木) 13:43:15.61ID:XrPmVdqE0
しかし誰が最初にマクロでゲームなんか作ったんだろうね？
176デフォルトの名無しさん (ﾜｯﾁｮｲ 3fda-PVUk)
垢版 |
2021/12/30(木) 14:05:26.21ID:PuOOuhio0
死ぬまで遊べ
2021/12/30(木) 21:43:15.33ID:rcUPyALc0
>>172
共通点がありそうな気もするような良く判らんが
アスカ見参は裏白蛇3回くらいクリアするくらいハマったよ
2021/12/30(木) 21:49:07.87ID:o85gWmnS0
スレ汚してごめんね
でもVBA使ってるみんなの反応が知れてよかった
179デフォルトの名無しさん (ﾜｯﾁｮｲ eb68-425w)
垢版 |
2021/12/30(木) 21:58:06.13ID:BMltdAMp0
>>177
凄杉
2021/12/31(金) 00:05:17.95ID:lr5eoeiP0
職場でExcel関数とか使っててもっと便利に使いたいなということでVBAを勉強しようと思うんだけどどのくらいのスペックのpc購入すれば良い？
2021/12/31(金) 00:09:43.85ID:XJlvK1q+0
>>180
クソPCで十分動くけどSSDストレージ512GBメモリ16GBのノートPCでも買えば長く使えるよ。
182デフォルトの名無しさん (ﾜｯﾁｮｲ d768-1y8m)
垢版 |
2021/12/31(金) 00:12:10.39ID:8NNqkSwn0
>>180
vba自体はアホみたいに軽い
以下のような状態だと、良いpcを導入する意味はあるが・・・
基本的にはｖｂａを基準にPC購入はあまり意味がないな
・重いブックを軽くしたい
・ものすごい手間を軽くしたい
2021/12/31(金) 00:31:59.05ID:lr5eoeiP0
>>181
>>182
ありがとう
趣味程度にやってみようと思ってたから出しても7万位までのPCと思ってたんで。
メモリも8gくらいと思ってたけどやっぱ16g位で探してみよーかな
2021/12/31(金) 00:33:48.82ID:pUbm5yFz0
エクセルはDataTableが最初から用意されているようなもんだから楽なんだよね
これを他の言語でやろうとすると色々な設定か必要になるからお手軽にはできない
185デフォルトの名無しさん (ﾜｯﾁｮｲ 9a8e-Ii8s)
垢版 |
2021/12/31(金) 00:35:47.83ID:3bTQuPv+0
>>184
馬鹿のお前にはできないだけだろ
2021/12/31(金) 00:40:54.69ID:XJlvK1q+0
>>183
今この時だけで考えるなら8GBでもまあギリギリいいけど、
もう数年以内に陳腐化する時期になって来てるから少し高くても16GBが良いよ。
ノートPCだと最近はメモリが直接基板に実装されてて増設出来ないというのも増えた。

個人的にはゲーミングとかのPCの主流が32GBくらいになってきて、
今は16GBが一般的なPCの主流かなという感覚。
187デフォルトの名無しさん (ﾜｯﾁｮｲ 8b01-h6Ia)
垢版 |
2021/12/31(金) 00:50:05.63ID:2Zk/vij+0
ブラウザをOSにしたchromebookがあるのだから、ExcelをOSにしたExcelbookがあっても良いのでは？
2021/12/31(金) 00:54:24.83ID:lr5eoeiP0
>>186
久々にpc購入するので助言たすかります！
16gのノート探してくる！
2021/12/31(金) 00:56:59.16ID:pUbm5yFz0
何かの記事でエクセル方眼紙や文章作成はあかん、Wordでやれみたいなのを見たんだけど納得できん
エクセルがあればWordは要らんわ
2021/12/31(金) 01:03:20.57ID:pUbm5yFz0
>>182
セルの更新が噛んでいなければたいてい早いね
逆を言えばセルを大量に更新する作業は苦手、さらにそのセルを参照している他セルとかがあるとさらに遅くなる
2021/12/31(金) 02:56:55.14ID:9dsRZQDG0
ExcelやるならゲーミングPC買えって言われたけど、根拠がわからん
グラスや図形の表示強いとかか強力なGPU積んだゲーミングだけに
2021/12/31(金) 05:17:24.79ID:jAwdB3GX0
多くのセルに数式が入ってたら並列処理ができるマシンの方が計算スピードが速いということじゃないかな。
Excel に限らず数値計算をやるマシーンとしては並列処理を担当する GPU を乗せたゲームマシーンが適してるとはよく言われてるけどね。
2021/12/31(金) 05:42:28.72ID:UU9o5XoI0
>>192
EXCELって2007から数式とかはマルチスレッドに対応してるのね。知らんかったわ。
ならついでにVBAの方もマルチスレッドに対応して組めるようにしておいてくれれば良かったのに。
2021/12/31(金) 05:50:27.02ID:jAwdB3GX0
線型計算は インテルのCPU の中に並列処理の計算機能があったと思う。エクセルも VBA もそれを利用してると思う。
これを越えた並列処理のプログラミングは言語自身が並列処理機能を持ってないと駄目だったような気がする。Juliaとかみたいに。
2021/12/31(金) 06:07:26.57ID:sTYntvPC0
メモリだけやたら増やしてもリソースに制限があるからな
2021/12/31(金) 08:03:41.87ID:9dsRZQDG0
あんまりゲーミングノートでExcelやりたくないわな、意識高い系に思われる？？
でも性能抜群だから良さそうね
2021/12/31(金) 08:33:02.95ID:3Q2SwZ5h0
>>185
大晦日くらい子供じみた煽りやめたら
198デフォルトの名無しさん (ﾜｯﾁｮｲ d768-1y8m)
垢版 |
2021/12/31(金) 11:35:03.81ID:8NNqkSwn0
>>191>>196
グラフや画像を使いまくるならゲーミングPCもアリだが・・・
そもそもグラフそんなに使いまくらない上に、今試してみたけどそんなに重くない

＞意識高い
エイリアンウェアでも無い限り、誰もノートPCのガワなんて見てないから気にするな

個人的にオススメはsurfaceかASUSの2in1。
199デフォルトの名無しさん (ﾜｯﾁｮｲ d7e6-6g4p)
垢版 |
2021/12/31(金) 11:55:09.22ID:MYEwtbNd0
ExcelだけでCPUファン全開にしてみろ
200デフォルトの名無しさん (ﾜｯﾁｮｲ 8b01-h6Ia)
垢版 |
2021/12/31(金) 12:22:47.21ID:2Zk/vij+0
ExcelにCPUファンの回転数を制御する機能は無いので、SpeedFanのCOM版のようなソフトを呼び出すことになるのでは？
2021/12/31(金) 12:30:09.65ID:YvmYSF350
>>191
相談相手の考えだから中にはそういう人がいてもおかしくないんじゃね
10人に相談したら全員が同じスペックのPCをすすめるとでも？
202デフォルトの名無しさん (ﾜｯﾁｮｲ 8b01-h6Ia)
垢版 |
2021/12/31(金) 12:33:05.83ID:2Zk/vij+0
ハルカスの二階で今日まで全国の駅弁売ってるらしいけど。
203デフォルトの名無しさん (ﾜｯﾁｮｲ d768-1y8m)
垢版 |
2021/12/31(金) 12:47:47.40ID:8NNqkSwn0
>>202
なんで俺が天王寺に住んでる事知ってるの
2021/12/31(金) 13:04:43.84ID:TPLe0a5e0
>>200
そうじゃなくて
ファンが全開になるくらいのCPU使用率にExcelだけでしてみろ
じゃないの
205デフォルトの名無しさん (ﾜｯﾁｮｲ d768-1y8m)
垢版 |
2021/12/31(金) 13:11:46.46ID:8NNqkSwn0
A列全部に"a"と入れてホイールグリグリするとCPUもGPUも100%行くな
206デフォルトの名無しさん (ﾜｯﾁｮｲ 8b01-h6Ia)
垢版 |
2021/12/31(金) 13:24:32.70ID:2Zk/vij+0
天王寺って富豪が住むところじゃなかったっけ。
2021/12/31(金) 15:43:40.65ID:CE1IM8E70
>>193
> ならついでにVBAの方もマルチスレッドに対応して組めるようにしておいてくれれば良かったのに。
マルチスレッドでトラブルVBerが続出する未来しか見えない
208デフォルトの名無しさん (ﾜｯﾁｮｲ 8b01-h6Ia)
垢版 |
2021/12/31(金) 15:55:10.13ID:2Zk/vij+0
さっきハルカス行ってきたけど、ハルカスとミオの間の信号のとこでコロナの陰謀を演説してる女性達が居たわ。
コロナで頭がおかしくなっちゃったんだろね。
2021/12/31(金) 16:59:02.91ID:YvmYSF350
>>208
「コロナの陰謀」ってなんか映画のタイトルみたいだな
2021/12/31(金) 19:46:32.63ID:9dsRZQDG0
わかた
アザースかsurface買ってくる
2021/12/31(金) 19:50:48.59ID:9dsRZQDG0
つうか同志達は今日年越しExcelやるでしょ？
2021/12/31(金) 20:01:44.53ID:ZQlVedJW0
>>192
EXCELは数値計算にＧＰＵ使うのか？

たんにゲーミングＰＣが、そこそこの性能だってだけじゃね
213デフォルトの名無しさん (ﾜｯﾁｮｲ d768-1y8m)
垢版 |
2021/12/31(金) 21:14:15.54ID:8NNqkSwn0
>>211
質問あったらやるかなぁ

>>212
使わないよ
＞たんにゲーミングＰＣが、そこそこの性能だってだけじゃね
そうそう
ただ、グラボ代もったいないとは思うけど
214デフォルトの名無しさん (ﾜｯﾁｮｲ df10-VfR5)
垢版 |
2021/12/31(金) 21:17:51.43ID:Ev3FJm7o0
>>212
計算には使っていないぞ
描画だけ
ゲーミング機だってGPUも色々あるし
いつもの知ったかだろうな
2021/12/31(金) 21:52:34.38ID:9dsRZQDG0
年越しの瞬間に効果音が鳴るマクロ作ったりいろいろ遊べそうね
216デフォルトの名無しさん (ﾜｯﾁｮｲ 8b01-h6Ia)
垢版 |
2021/12/31(金) 21:58:02.47ID:2Zk/vij+0
あと二時間しかない。
しかしExcelなら楽勝で出来るでしょう。
217デフォルトの名無しさん (ﾜｯﾁｮｲ 8b01-h6Ia)
垢版 |
2021/12/31(金) 21:59:34.78ID:2Zk/vij+0
今日見たコロナ陰謀説の人たちは通行人の邪魔にならないようにしてたし、維新や共産党よりだいぶマナーが良いな。
218デフォルトの名無しさん (ﾜｯﾁｮｲ d768-1y8m)
垢版 |
2021/12/31(金) 22:07:44.53ID:8NNqkSwn0
>>215
一瞬で終わってしまった

Sub foo()
Do
If Now() > "2022/1/1 00:00:00" Then
Beep
Exit Sub
End If
Loop
End Sub
2021/12/31(金) 22:28:49.69ID:pUbm5yFz0
>>218
wavファイルでどうぞ
2021/12/31(金) 23:09:39.31ID:YvmYSF350
>>218
不等号は > じゃなくて >= だな
2022/01/01(土) 00:06:56.85ID:DizA0src0
あ、ホントだ
鳴らない仕様ね
つか開けましたおめでとう
2022/01/01(土) 00:07:03.49ID:DizA0src0
あ、ホントだ
鳴らない仕様ね
つか開けましたおめでとう
2022/01/01(土) 00:07:20.46ID:DizA0src0
あ、ホントだ
鳴らない仕様ね
つか開けましたおめでとう
2022/01/01(土) 01:06:32.10ID:P7MxTR/l0
>>213，214

EXCEL for 下層国民というバージョンにはないが普通のバージョンは2016以降GPUが使用できる。
オプション→詳細設定→ハードウェアグラフィックアクセラレータで項目で設定できる。
貧相なノートPCだとこの機能が足を引っ張るので、EXCEL for 下層国民バージョンでは初めからGPU機能を搭載していないらしい。
お前らのエクセルはEXCEL for 下層国民　に違いない。

>>191
数値計算向きのノートPCに関しては下のリンク先に詳しい。
結果的にゲーム用のマシンになるとのこと。
https://student-notepc.com/gpgpu.html#calculation
2022/01/01(土) 01:10:43.70ID:P7MxTR/l0
エクセルでのGPU利用については下のリンク先を見てください。
https://www.windows8-help.net/office/offce2016-gpushi/
2022/01/01(土) 01:27:29.55ID:KHDCojLG0
>>224
そのオプションは、あくまでも表示にGPUを使うかCPUでやるかの選択で
数値計算にGPUを使うようにはなってないだろって話なんだが

GPU積むだけですべてのソフトが勝手にすべての数値計算をGPUでするわけじゃないんだよ
Windowsに数値計算用のドライバなんてないから
227デフォルトの名無しさん (ﾜｯﾁｮｲ 4e8e-Ii8s)
垢版 |
2022/01/01(土) 01:48:41.35ID:fFMHRYWI0
>>224
馬鹿が恥の上塗りに来た
2022/01/01(土) 02:00:47.02ID:P7MxTR/l0
>>226
そうなのか。すまん。
213，214にも早めにあやまっとくわ。
メンゴ
229デフォルトの名無しさん (ﾜｯﾁｮｲ d768-1y8m)
垢版 |
2022/01/01(土) 08:47:41.52ID:XIwan5C70
GPGPUは機械学習ぐらいでしか使わないよ
設定も大変なのだ
2022/01/01(土) 09:11:06.27ID:+bE9Chjq0
みんな明けましておめでとう
2022/01/01(土) 09:31:17.86ID:DizA0src0
親切な人がいろいろ調べてくれて助かる
ここの住人は口は悪いが根は優しいのね。
どこかのExcel板と大違いね
てか開けましたおめでとう
2022/01/01(土) 18:50:55.82ID:WKGWygZgM
ガチのプログラマにはバカにされ、一般的なExcel使いには理解されず、かといって言うほどExcelのワークシートの機能に詳しいわけでもない、
微妙な立場で辛い思いをしている人達だからね
2022/01/01(土) 20:24:30.10ID:DizA0src0
マクロは独特で勉強すればするほど面白いのにねえ
まあワークシート関数はまた違った楽しさがありますな。
だいたいはどっちかに得意分野別れるみたいですね。
234デフォルトの名無しさん (ﾜｯﾁｮｲ 2e8e-6dX5)
垢版 |
2022/01/02(日) 00:02:48.18ID:irXp1R560
>>233
お前みたいな頭の悪い奴には理解できないだけだぞ
2022/01/02(日) 00:19:50.24ID:P5/NGbzA0
>>234
お客様？鏡はこちらでございます
2022/01/02(日) 02:38:22.72ID:8OXF2lmH0
>>234
はいはい、正月だから酒浸りしてるのですね
あまり人を見下した書き込みはやめた方がよろしいですよ。
237デフォルトの名無しさん (ﾜｯﾁｮｲ 2e8e-6dX5)
垢版 |
2022/01/02(日) 03:49:32.18ID:irXp1R560
悔しかったか？
238デフォルトの名無しさん (ﾜｯﾁｮｲ ad68-CMBx)
垢版 |
2022/01/02(日) 03:53:45.10ID:FrEqhrTc0
正月の深夜から煽りとか、すげー人生やな・・・
239デフォルトの名無しさん (ﾜｯﾁｮｲ ad68-CMBx)
垢版 |
2022/01/02(日) 03:57:56.02ID:FrEqhrTc0
システム間でデータを受け渡す時の、相互変換用のファイルについて相談したいです

「入力」シートに貼り付け
「出力」シートをcsvで保存
csvをインポート

という構成でよく作るんだけど、
オペレーターは削除や挿入をしてしまい、数式の参照がおかしくなる事がたまによくある
ここに「tmp」シートを入れて、全てのセルにindirectをかますというのは良くないだろうか
2022/01/02(日) 06:49:15.75ID:8OXF2lmH0
>>238
いやいや、５ちゃんは煽りあって喧嘩するのが常識と叩き込まれたから他スレで
2022/01/02(日) 08:00:02.64ID:us56tuAr0
宮D：
「日本には社会はなかったけど世間はあった」
「世間を意識することで、見ず知らずの他人も自分と同じように生活していると想像できた」
「ところが1960年代から始まる新住民問題で地域が崩壊、損得勘定で繋がった家庭も崩壊、今や会社も崩壊で、居場所も世間もなくなった」
2022/01/02(日) 08:31:16.52ID:i5Las0bb0
>>240
煽りや喧嘩はわかるけど>>234は煽りにすらなってない気が…
2022/01/02(日) 10:45:15.56ID:xHoQz7cXd
>>239
良い悪いの話をするなら、そもそもCSVからCSVへの変換にいちいちExcel通すのが間違い
適当なスクリプト言語を使えばいいだけだし、どうしてもVBAならVBAだけでやっちゃって人間が介入する余地を無くせばよい
逆に人間が介入しやすいようにExcelにしてるんなら変なことしてわかりにくくするのは本末転倒
諦めて普通に素直に作るべき
2022/01/02(日) 10:56:54.18ID:i5Las0bb0
>>239
オペレーターが何やってるのかわからんけどそれこそVBA使ってボタン１つで実行するようにできないのか？
2022/01/02(日) 11:40:52.11ID:P5/NGbzA0
>>239
して欲しい操作以外は出来ないようにすると良いです（入力の制約をしっかりする）
例えば入力に必要のないセルをすべてロックする、かつ入力を許容するセルには入力規則を適用する
他は入力フォームをモーダルで作ってそれ以外の入力は受け付けないとか
246デフォルトの名無しさん (ﾜｯﾁｮｲ ad68-CMBx)
垢版 |
2022/01/02(日) 12:15:24.12ID:FrEqhrTc0
>>243-245

ありがとうございます
・経費精算システム→会計ソフトへのデータ移動
・販売管理システム→会計ソフトへのデータ移動
を行っています

問題点は
・入力ミスが多すぎて目視確認が必要。会計ソフトで修正は手間＋見落としが多い
・経費精算システムは仮払設定ができない。
・販売管理システムは、商品ごとに行が分かれるので恐ろしい量になる（間違いではないんだけど）
※経費システムは部門だけじゃなく、勘定科目も違う。ざっくり言うと仮払精算が出来ない

このあたりをエクセルで置換＋チェックなどを行い、会計ソフトに取り込んでいる

ソフトを変更するのはNGです
2022/01/02(日) 13:00:21.32ID:P5/NGbzA0
>>246
経費精算、販売管理システムからデータを出力
→エクセルで入力データのチェック+仮払いのデータを追加
→csvで会計ソフトに渡すってことでいいのかな？

経費精算、販売管理システムがファイルを吐いてくれるならそれを直接読む
コピペしかできないならクリップボードのデータ(テキストデータと仮定して)を読み込んでワークシートに貼り付ける
これらをVBAでやる（とにかくオペにいじらせない）

エクセルをいじって貰うなら>>245のルールを守ったうえで入れて貰う
そんくらいしか思いつかない
248デフォルトの名無しさん (ﾜｯﾁｮｲ ad68-CMBx)
垢版 |
2022/01/02(日) 13:30:03.08ID:FrEqhrTc0
>>247
好き放題さわってもらう方が自由度が高くて良いと思ってたけど、そもそもそれがダメなのかな
難しいね
ありがとう、制限かける方法で考えてみます
2022/01/02(日) 18:17:30.23ID:RMMn37wZ0
好き放題さわれるってことはつまり壊せるってことだ

で、それのどこでＶＢＡが関係するんだ？
ちゃんとエラーチェックすればいいだけだと思うが
2022/01/02(日) 21:53:37.95ID:eY7Ft52F0
>>247
行の削除や挿入をvba側で拾って、cancelさせるか、数式等が壊れない様に処理すれば良いのではないでしょうか？
2022/01/03(月) 01:03:08.53ID:DsJuTMFo0
プログラマだとその手のユーザーが自由に操作できる点を定義する事がエラーケースを抽出するためにはじめにやらなきゃ行けない事なんですよね。
中間システムをWEBシステムで作って数式を触らせないのがいいかと思う
2022/01/03(月) 18:38:24.47ID:l18z+rM90
つかうならクエリでしょ
データの型もしっかり記述されるから生半可には壊れない
へたにVB使うならクエリだけで済ますほうが100倍まし
2022/01/03(月) 18:59:52.27ID:+Dpm76/RM
>>252のクエリて具体的には何を指してる？
2022/01/03(月) 19:14:48.50ID:0W6dPO/10
ガチガチに制限掛けるならExcelでやる意味が無い。
別に作った方が早いよ
2022/01/04(火) 17:58:13.61ID:mqLaSqQY0
[https://〜ナンチャラカンチャラ〜 連番」ってURLでDLできる.xlsファイルを
開始〜終了番号指定して一括DLするマクロ、ってググるレベルで作れるかな?
画像はよく聞くけど
256デフォルトの名無しさん (ﾜｯﾁｮｲ ad68-CMBx)
垢版 |
2022/01/04(火) 18:44:24.96ID:OK++oBjt0
>>255
画像もエクセルファイルも一緒だよ
ただダウンロードは若干クセがあってめんどくさい

数が少なければ
A1=HYPERLINK("https://dotup.org/uploda/dotup.org";&2688739+ROW()&".jpg")
下にオートフィルして、クリックしていくってやり方が早い
2022/01/04(火) 18:45:42.98ID:fZv3oJzEa
画像もテキストも同じファイルなんだぜ
258デフォルトの名無しさん (ﾜｯﾁｮｲ ad68-CMBx)
垢版 |
2022/01/04(火) 18:56:57.83ID:OK++oBjt0
VBAのダウンロードって失敗しやすいんだよなーUAかなにかで弾かれてるのかね
今回はURLDownloadToFileの戻り値が変な値になって失敗している

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub DownloadFile()
'// URL設定
surl_1 = "https://dotup.org/uploda/dotup.org";
surl_2 = ".jpg"
sstart = "2688740"
send = "2688742"
sDir = "C:\Users\81909\Downloads\"

'// ダウンロード
For no = sstart To send
sUrl = surl_1 & no & surl_2
'// キャッシュクリア
Call DeleteUrlCacheEntry(sUrl)
'// ダウンロード
ret = URLDownloadToFile(0, sUrl, sDir, 0, 0)
'// ダウンロード失敗時
If ret <> 0 Then
Debug.Print a_sUrl & "：ダウンロード失敗"
End If
'// 1秒スリープ
Call Sleep(1000)
Next
End Sub
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況