Excel VBA 質問スレ Part55

**デフォルトの名無しさん** · 2018/07/22(日) 14:13:18.78

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

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

**デフォルトの名無しさん** · 2018/08/04(土) 23:27:52.91

ref使えばいいってなるわな

**デフォルトの名無しさん** · 2018/08/05(日) 00:06:17.04

>>203
知るかボケ

**デフォルトの名無しさん** · 2018/08/05(日) 00:32:29.81

>>202
ここは何のスレだかわかっているか？低脳

**デフォルトの名無しさん** · 2018/08/05(日) 01:06:08.74

>>184
例えば、40人を、5グループ8人毎

min(最大平均点 - 最小平均点)
min(最大標準偏差 - 最小標準偏差)

こういう問題は、Ruby のアルゴリズムの問題だろ。
combination, permutation とか

こんな問題は、一筋縄ではいかない。
ものすごい組み合わせ爆発が起こるから、vba なら、何日も掛かる

**デフォルトの名無しさん** · 2018/08/05(日) 01:14:27.29

そんなん言語関係ないやん、アルゴリズムの問題だろ

Rubyの関数で短時間で解ける問題なら、VBAでも数倍ぐらいの時間で同じ結果は出せる

**207** · 2018/08/05(日) 01:17:12.67

>48人を、1グループあたり8人の6グループ

グループA は、48*47*46*45* 44*43*42*41 / 8!
グループB は、40*39*38*37* 36*35*34*33 / 8!
...
グループF は、8! / 8! = 1

ここから、A～F のグループ名を変えるだけで、
同一になるものを省くから、6! で割る

**207** · 2018/08/05(日) 01:22:35.24

48人分のデータを作って「プログラミングのお題スレ」にでも書き込んでみ。
誰か解けるか、計算時間が掛かりすぎて解けないか

こういうのはプログラミングコンテストの問題だから、
vba で解くような問題ではない！

**デフォルトの名無しさん** · 2018/08/05(日) 01:28:53.98

だからソルバー使えって
数理計画法とか大学でやらなかったのか？

**デフォルトの名無しさん** · 2018/08/05(日) 02:38:17.19

夏休みの宿題は自分でやれ

**デフォルトの名無しさん** · 2018/08/05(日) 08:28:04.96

>>200
その通りだよね
それにJoinなんて例に出た短い配列にしか通用しないし

**デフォルトの名無しさん** · 2018/08/05(日) 08:47:11.10

>>203
戻り値を使わないという回避策なんじゃないの?

そもそも何が気持ち悪いのか分からない。
プログラミング経験無ければReturn 0よりVBAの方が感覚的にぴったり来るわ。
気持ち悪いという人はa=a+1を気持ち悪いと思う人?

関数名に代入する?
関数名じゃない。
関数そのものに代入してるというか、関数そのものを定義しているんでしょ。
俺は初めて見た時にすんなり頭に入ったね。

**デフォルトの名無しさん** · 2018/08/05(日) 09:53:33.07

何故関数名に代入するのが気持ち悪く感じるのかというと、後に述べるような危険性を無視しているからだと思う。

1.戻り値を関数名に代入しなければならない。
プロシャージャ中に何度も関数名が出てくるため、関数名を変更した時に変え忘れてエラーになることがある。
例えばhoge()全体をコピーして挙動の異なるhoge2を作ったとき、hoge2の中のhoge=***はコンパイルエラーにならないめ、テストするまでエラーを発見できない。
※コピペ直後に「完全に一一致」でプロシージャ内置換すれば良いのは分かっているが、そういう問題ではない。

対処法としては、関数の最初にDim Retしておき、文中ではRetに戻り値を代入、End Sub直前に関数名にRetを代入する。

2.戻り値を設定していないのにExit Subできてしまう。
せっかく1の対処法実施しても途中でExit Subされたら意味がない。
せめてExit Sub 戻り値という書き方ができればよかったのだが。

対処法としてはExit Subを禁止して、そもそもExitが必要ない書き方に変えるかEnd Function直前までワープするGoToを使用する。

よって、関数を定義するときの推奨テンプレ
Function hoge() As Variant
Dim Ret As Variant
'-----
'処理
'Exit Subは禁止。GoTo ExitSubを使うこと

'-----
ExitSub:
hoge = Ret
End Function

もちろん異論は認める。

**デフォルトの名無しさん** · 2018/08/05(日) 09:56:54.93

>>214
a=a+1
これのどこら辺が気持ち悪くなる部分なの？

**デフォルトの名無しさん** · 2018/08/05(日) 10:15:24.82

>>192
いやCとかでも
if(foo() == 0){
　return 1;
} else {
　return 0;
}
とか書くアホはいる

**デフォルトの名無しさん** · 2018/08/05(日) 10:15:26.66

>>216
さてはまじめに数学やってなかったな？

**デフォルトの名無しさん** · 2018/08/05(日) 10:19:10.37

>>215
> 対処法としては、関数の最初にDim Retしておき、文中ではRetに戻り値を代入、End Sub直前に関数名にRetを代入する。
手間を増やしてバグの確率上げるとか最悪の対処法だな w
そもそも2.の対処ができるなら書き換える個所は1箇所になるからこんなアホな対処法は意味がない

**デフォルトの名無しさん** · 2018/08/05(日) 10:20:36.92

>>216
数学の等式としては成り立たん云々だろ
どうでもいいからスルーしとけ

**デフォルトの名無しさん** · 2018/08/05(日) 10:27:17.45

決め事だからどうでもいいけど代入が=なのに名前付き引数に渡すときは:=なのが統一感なくて気持ち悪い

**デフォルトの名無しさん** · 2018/08/05(日) 10:37:44.10

If文とか
冗長になっても数年後に見ても簡単に分かるようにしとく事も大事だと思うけど

**デフォルトの名無しさん** · 2018/08/05(日) 10:58:15.16

>>215
エラー処理がめんどくさくなりそう

**デフォルトの名無しさん** · 2018/08/05(日) 11:02:08.70

>>219
関数名は普通の変数と同等には扱えないからRetを使うのが必須な場面はある。
だから別に悪手ではない

**デフォルトの名無しさん** · 2018/08/05(日) 11:10:34.73

>>221
= だと式と区別がつかないから

**デフォルトの名無しさん** · 2018/08/05(日) 11:12:01.18

>>224
> 関数名は普通の変数と同等には扱えないからRetを使うのが必須な場面はある。
そういう場合はそうすればいいだけ
そういう前提がない場合にまでそうする奴は単なるバカ

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

>>219
バグの確率が上がる状況ってどんな時？具体例を上げてくれ。
＞そもそも2.の対処ができるなら書き換える個所は1箇所になるからこんなアホな対処法は意味がない
2の対処によって関数名に代入するのを1回にしてるんだが。どういう意味？

>>223
エラー対処を組み込んでも特に違和感ないと思うのだけど、どういう時？

Function hoge() As Variant
Dim Ret As Variant
'-----
On Error GoTo err1
Ret = 1 + "a"
If True Then GoTo ExitSub
'-----
GoTo ExitSub
err1:
Debug.Print Err.Number & Err.Description
Resume Next
ExitSub:
hoge = Ret
End Function

そもそもこの書き方って、自然と起こりうるものでコーディングルールとして定めるか臨機応変に使うかって話だと思うのだけどどうなん。

**デフォルトの名無しさん** · 2018/08/05(日) 11:31:30.01

変数宣言強制にしてれば関数名変えた時、戻り値返すための関数名も変更しないとエラーになるんじゃないの？

**デフォルトの名無しさん** · 2018/08/05(日) 11:42:23.57

>>227
ごめん、なにか勘違いしてた
別にややこしくなかったね

**デフォルトの名無しさん** · 2018/08/05(日) 12:01:55.81

>>226

Retを使うという方法について>>219が
> 手間を増やしてバグの確率上げるとか最悪の対処法だな w
と言い出したことから出ている話だが、
「手間が増える」とか「バグの確率上げる」という主張自体に根拠が無いよね。
>>224に書いた理由によりRetを使う方法は皆が習熟してるわけだから。

だからあんたの言う
>そういう前提がない場合にまでそうする奴は単なるバカ
も根拠薄弱。

**デフォルトの名無しさん** · 2018/08/05(日) 12:06:39.32

>>228
関数名変えるだけなら、コンパイルエラー出るから問題ないよ。
ただあまりたくさん使ってると次々とコンパイルエラー出てイラっとするだけで・・・。

**デフォルトの名無しさん** · 2018/08/05(日) 12:11:44.20

>>227
> バグの確率が上がる状況ってどんな時？具体例を上げてくれ。
記述量が増えればバグは増える、常識
> 2の対処によって関数名に代入するのを1回にしてるんだが。どういう意味？
だからそれなら1.の対処の意味がない
無駄なGoto増えるだけ
>>228の言うように関数名の変更忘れてたらOption Explicitでその関数に入る時にエラーになる

**デフォルトの名無しさん** · 2018/08/05(日) 12:13:45.38

>>230
>> そういう前提がない場合にまでそうする奴は単なるバカ
> も根拠薄弱。
必要もないのにコード量増やす奴はバカ
って書かないとわからんの？ w

**デフォルトの名無しさん** · 2018/08/05(日) 12:22:01.77

> ※コピペ直後に「完全に一一致」でプロシージャ内置換すれば良いのは分かっているが、そういう問題ではない。

> ただあまりたくさん使ってると次々とコンパイルエラー出てイラっとするだけで・・・。

わかってるけどやりたくない
でもいらつくとかちょっと病院に行った方がいいレベル

**デフォルトの名無しさん** · 2018/08/05(日) 12:32:44.13

>>233
最初の>>215の段階からRetが有効に使える場合のことしか書いてないよ

その前提を無視して>>219が変なこと言うから悪い
つまり>>219と>>226と>>233が悪い

**デフォルトの名無しさん** · 2018/08/05(日) 12:39:05.42

>>232
>記述量が増えればバグは増える、常識
そういう考え方もよく分かるよ。
だが途中で関数名代入を多様するのと、コーディングルールで途中でExitするというテンプレを定めるのとでは、バグの発生率は前者のほうが高いと自分は評価している。
実際この運用でうまく行ってるし意味がないなんてことはない。

そもそもは関数名代入が気持ち悪いと感じる原因と、自分がやってる対処法を上げて有用な異論がないか知りたかっただけだし。

**デフォルトの名無しさん** · 2018/08/05(日) 12:46:59.88

記述量が増えるったって Dim ret と最後の代入の2行だけじゃん。
途中の「関数名 = ～」という代入の記述を減らせるんだったら大した害悪じゃない。
最初からそういう話をしているのにね。

**デフォルトの名無しさん** · 2018/08/05(日) 12:58:38.58

>>190
平均はできた、けど標準偏差はわからない
https://paiza.io/projects/rCXyBIojlQ87fN8Gkr2n5g

**デフォルトの名無しさん** · 2018/08/05(日) 13:00:05.97

>>238
ヒープ使って合計の少ないものに足してます

**デフォルトの名無しさん** · 2018/08/05(日) 13:30:42.82

行き違いがあるんじゃない？
コーディングルールとして決められていれば、多少記述が増えてもそんなもん何の問題もない
コーディングルールがない状態でいきなり>>227みたいな記述が出てくれば、ボンクラは意味がわからずに戸惑うだろう

**デフォルトの名無しさん** · 2018/08/05(日) 13:51:42.51

な？
たかが返り値を返すだけの話なのに
グローバルにするだのRetに一時保存するだのExit Sub禁止するだの
名前を変えるときは注意深く使ってるとこ全部変えるだの
謎のオレオレルールが一気に湧き出してきた
これが関数名に代入方式の弊害だよ

VBAに染まってない一般的なプログラマなら
「関数名に戻り値代入ってなんかキモくね？」「せやなぁなんでreturn文ないんやろねぇ」
こう一瞬で同意を得られるはずなんだがVBAワールドだとこうなってしまう
まるで異世界に迷い込んだような感覚

**デフォルトの名無しさん** · 2018/08/05(日) 13:57:46.59

VB.netもreturnなんだな

**デフォルトの名無しさん** · 2018/08/05(日) 14:22:10.24

>>235
> 最初の>>215の段階からRetが有効に使える場合のことしか書いてないよ
>>215が有効とか思ってるのはお前らだけ

>>236
> 実際この運用でうまく行ってるし意味がないなんてことはない。
お前らは勝手にやってればいい。

>>237
> 途中の「関数名 = ～」という代入の記述を減らせるんだったら大した害悪じゃない。
記述は減ってない
関数名を変更した時の変更量が減るだけ
しかも本人が書いてる通り
> ※コピペ直後に「完全に一一致」でプロシージャ内置換すれば良い
だけなのに、何故はそれはやりたくないらしい w

**デフォルトの名無しさん** · 2018/08/05(日) 15:39:03.72

そもそも、仮に何度も関数名?に代入したとしてもその関数が長く無ければ混乱することも無い。
長い関数はそもそもダメるわけで最初から混乱することは無い。

関数を100行程度にするってのは常識だろ。

**デフォルトの名無しさん** · 2018/08/05(日) 16:14:10.59

100は長すぎだろ

**デフォルトの名無しさん** · 2018/08/05(日) 16:31:24.96

>>245
そうか?
Cプログラミング診断室の人が許容される限界は100行までと言ってたからそれに準じたまでだが。
それに、だったらお前さんは短い関数で混乱してたということ?

**デフォルトの名無しさん** · 2018/08/05(日) 16:32:17.90

書き間違えでしょwww
俺は最長でも60行くらいだ。

それはともかく、関数名は最終的な答えを代入するためのものであって、
途中の値なんか決して代入したくないよって理由じゃないの？
少なくとも俺はそうだ。

**デフォルトの名無しさん** · 2018/08/05(日) 16:33:09.91

書き間違えじゃないのかよ

**デフォルトの名無しさん** · 2018/08/05(日) 16:39:11.36

returnのある言語から入ってきたから違和感を感じるのかも知れないがreturnよりは自然だろ。

そもそも俺は関数名?に代入するということを習ったことが無い。
最初にFunctionプロシージャを見て全てを理解した。
自然に理解出来た。

**デフォルトの名無しさん** · 2018/08/05(日) 16:53:49.71

>>246,245
限界が100行なのであって、普段は50行とかに抑えるべきだと言いたかったんだと思う。
それを100行程度が常識だと勘違いしただけじゃないかな？

**デフォルトの名無しさん** · 2018/08/05(日) 17:02:35.19

> 関数を100行程度にするってのは常識だろ。
って言うのを限界と言うのは苦しいだろ w

**デフォルトの名無しさん** · 2018/08/05(日) 17:40:35.93

ちょっと待ってほしい
他の言語なら50行で書ける関数もVBAだと100行に膨れ上がるから仕方ないのではないだろうか

**デフォルトの名無しさん** · 2018/08/05(日) 18:38:48.57

Cプログラミング診断室の人がVBAに言及するのか？
VBAを使ってはいけない原理主義者の人は相変わらずこじつけがスゴイなw

**デフォルトの名無しさん** · 2018/08/05(日) 19:19:38.85

なんじゃそりゃ。
どんな言語でも短くすべきなのは常識だろ。

50行だろうが100行だろうが関数名?代入しても混乱しないだろ。

**デフォルトの名無しさん** · 2018/08/05(日) 19:21:07.38

>>251
何だ?
10行じゃマズい何かがあるとでも思ってるのか?

それはさすがにプログラミング知らなすぎ。

**デフォルトの名無しさん** · 2018/08/05(日) 19:23:39.26

手続き型だとそこまで細分化してもかえってわかりにくいけどな

**デフォルトの名無しさん** · 2018/08/05(日) 19:31:00.06

>>255
プログラミングの前に日本語の勉強しなよ…

**デフォルトの名無しさん** · 2018/08/05(日) 20:48:23.33

質問です
他のBookから元bookの"テーブル1"を参照するになやんで
Range(myBook.Name & "!テーブル1")
としましたがもうちょっといい方法はないのでしょうか
’
Sub 元WBのテーブル範囲を名前から参照したい()
Dim myBook As Workbook
Set myBook = ActiveWorkbook
Debug.Print Range("テーブル1").Address
'
Dim TempWB As Workbook
Set TempWB = Workbooks.Add

Debug.Print Range(myBook.Name & "!テーブル1").Address　　’これ

End Sub

**デフォルトの名無しさん** · 2018/08/05(日) 20:48:50.34

他の言語ならともかくvbaなんてスクリプトなんだから多少行が増えても普通でしょ

**デフォルトの名無しさん** · 2018/08/05(日) 21:46:30.28

Workbook.worksheet.listobject("テーブル名")とか

**デフォルトの名無しさん** · 2018/08/06(月) 18:40:21.72

基本vbaは良くも悪くもやっつけ仕事片付ける用途だからなぁ
いっそ他人が読んだりメンテしたりすることを全く考慮しないのも手っていう記事見たことがあるけど
極論とはいえ、適材適所って意味ではそれも手だなとおもた

**デフォルトの名無しさん** · 2018/08/06(月) 21:02:33.88

vbaは使い捨てのマクロとかしょっちゅうだしね
他の言語とはかなり正確が異なる

**デフォルトの名無しさん** · 2018/08/06(月) 21:57:34.50

・誰かが質問をする
　↓
・とりあえず誰かが質問にダメ出しをする
　↓
・そのうち誰かが回答する
　↓
・俺の方が上と違う人が別の回答をする
　↓
・どちらの回答も的外れなためにダメ出し合戦が始まる
　↓
・不利になってきた方がそもそもVBA自体が糞と論点をそらす
　↓
・とことん荒れる
　↓
・各自「やっぱり俺の知識が至上だったな」と思い矛を収める

・質問者「で、俺の質問は…」

**デフォルトの名無しさん** · 2018/08/06(月) 22:05:07.55

・変なキチガイが唐突に持論を展開する

**デフォルトの名無しさん** · 2018/08/06(月) 22:09:50.77

>>261
自分しか使わない書き捨てツールと社内に配布して他の人に使ってもらうツールじゃ組み方は違うわな
別にVBAに限った話じゃないけど

**デフォルトの名無しさん** · 2018/08/07(火) 01:29:58.65

質問に対してこんな感じでいいんじゃね～って教えるのと、
仕事で残すコードでも組み方は全然違ったりする

**デフォルトの名無しさん** · 2018/08/07(火) 12:27:46.44

変数を宣言したら直ぐに初期化するように、と解説サイトにはよく書かれているのですが、
ループカウンタも初期化する必要があるのでしょうか

**デフォルトの名無しさん** · 2018/08/07(火) 12:50:25.25

vbaレベルならいらないんじゃねて思うけどね
グローバルとかオブジェクト変数はやるけどそれ以外はして無いわ

**デフォルトの名無しさん** · 2018/08/07(火) 12:58:23.99

>>267
VBAの変数には既定値というのがちゃんと定義されているので、初期化は必ずしも必要ない
VBAの仕様を知らない人にコードを見せる可能性があるなら初期化してもいいけど、
俺個人の考えでは、宣言と初期値の代入は分けて書くべき

質問の文脈から判断して、ループカウンタとはFor文で使うカウンタ変数のことだろうけど、これは初期化しなくていい
しかし「ループカウンタ」はもっと広い概念を表すので、初期化が必要なケースも多々存在する

**デフォルトの名無しさん** · 2018/08/07(火) 15:43:33.88

>>267
VBAではそもそも初期化できない。

**デフォルトの名無しさん** · 2018/08/07(火) 18:35:06.29

ありがとうございます。
特に初期値は設定せずにそのまま使うことにします。

ところで、VBAを触り始めてから他のプログラミング言語にも興味が出てきました。
使い勝手や習得時間を省みて、VBAを習得している者にとって一番コスパがいい言語は何でしょうか。
やはりVB.NETでしょうか。

スレチでしたら無視してください。

**デフォルトの名無しさん** · 2018/08/07(火) 19:02:13.91

なんかの言語をひとつ習得できる人なら何でもいいよ
言語別の利用者数、給与、分野、いろいろ調べてみ

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

>>271言語よりIDEの開発環境が充実してる方が覚えやすい
VisualStudioがおススメ
C#の方が圧倒的にサンプルも多いし解説Webページも多いので良いのでは

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

>>271
VB.NETとC#のコードを見比べて自分が分かりやすいと思った方かな
または、こっちの方が好きだと思える方

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

それにC#ならAndroidアプリも作れるしiOSアプリも作れる

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

>>271
日常的な小手先の処理したいならPythonやNode.jsみたいなスクリプト言語
がっつりアプリ作りたいなら最近流行りのGoやSwiftやkotlin

**デフォルトの名無しさん** · 2018/08/07(火) 21:13:08.98

20代までならC#ぐらいは覚えておいたら転職で役に立つかも知れない

**デフォルトの名無しさん** · 2018/08/07(火) 21:33:21.73

仕事で社内サイトの検索結果を数十ページ出して
その中から必要なデータをExcelに貼り付けるVBAをCreateObject(" InternetExplorer.Application"を使って作ったのだけど
社内ネットワークが重すぎて1ページあたり1分以上、つまり20ページあると20分以上というものすごい時間がかかります。
これ各ページの平行作業かなにかで、どんなにページ数があっても1分強くらいですます方法はないのですか？

**デフォルトの名無しさん** · 2018/08/07(火) 21:44:50.55

ちなみに今は
1ページ開いて、そのページを完全に読み取ったら(●ここに時間がかかっている。30秒～60秒くらいか)、IEオブジェクトを利用してGetIdByIDなどでデータを読み込み、そのページを閉じ、
それをページ数だけ繰り返しています。

**デフォルトの名無しさん** · 2018/08/07(火) 21:58:48.99

無いです
シス管に糞サイトが遅いぞって文句言いましょう

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

いや、あるのでは？
他言語ではマルチスレッドというやつかな？

**デフォルトの名無しさん** · 2018/08/07(火) 22:07:46.26

IEオブジェクトを配列にしてWEBページの同時読み込みに挑戦してみたことあるけど、なぜかVBAではうまくいかなかった
これはいまだに理由がよくわからん

**デフォルトの名無しさん** · 2018/08/07(火) 22:52:34.26

VBScriptで処理を書いて
マルチプロセスでやってみるのはどうだろう

ネットワークが遅いのが原因だとすると
変わらないかもしれないけど

2/3 ~ 1/2 くらいは期待できるんじゃないかな

社内DBに直結してデータぶっこ抜けないかな

**デフォルトの名無しさん** · 2018/08/07(火) 23:01:00.74

>>246
マーティン・ファウラーはメソッド平均6行ぐらいだってさ
俺もC#やJavaを使うときはだいたいそれと同じぐらいに自然と落ち着く
VBAは冗長で書きにくいから10行〜20行ぐらいになっても我慢するけどね(どうせすぐ破棄するってのもあるが)

100行ってのはおそらくだが速度最適化のために可読性保守性を無視したコードならそれぐらいまでOKってことではないかな
C言語は何よりもまず速度みたいなところがあるからね

**デフォルトの名無しさん** · 2018/08/07(火) 23:10:51.13

>>284
俺もC#では平均だと6，7行くらいだな
Javaも最近やってないがそんくらいだったと思う

**デフォルトの名無しさん** · 2018/08/07(火) 23:14:03.05

>>281
エスパーすると社内サイトの検索処理がダメダメで異様に時間食ってると思うのでクライアントでいくら頑張っても無理

**デフォルトの名無しさん** · 2018/08/07(火) 23:19:30.40

ネットワーク越しの処理ってVBA異常に遅かった記憶があるなぁ

**デフォルトの名無しさん** · 2018/08/07(火) 23:44:33.38

6,7行とか本当？
明らかに保守よりも作成する頻度の方が高いから、結構雑になる
下はディレクトリの一覧ファイル作るマクロ。確か5.6回しか使っていない
※数万ファイルのファイル名を一覧にしたかったらしい

Sub main()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
strPath = InputBox("調べたいフォルダを絶対パスで入力してください。", "ファイル一覧", "c:\")
Cells(3, 2) = " "
Range("A3", ActiveCell.SpecialCells(xlLastCell)).ClearContents
Range("A3").Select
i = 3
FileDisp strPath, i
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

**デフォルトの名無しさん** · 2018/08/07(火) 23:44:40.74

Private Sub FileDisp(strPath, i)
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFolder(strPath)
'folder
Cells(i, 2) = objFs.GetBaseName(objFld.Name)
Cells(i, 3) = objFld.ParentFolder.Path
Cells(i, 4) = Int(objFld.Size / 1024)
Cells(i, 5) = "folder"
Cells(i, 6) = objFld.DateCreated
Cells(i, 7) = objFld.DateLastAccessed
Cells(i, 8) = objFld.DateLastModified
i = i + 1

For Each objFl In objFld.Files
Cells(i, 2) = objFs.GetBaseName(objFl.Path)
Cells(i, 3) = objFl.ParentFolder.Path
Cells(i, 4) = Int(objFl.Size / 1024)
Cells(i, 5) = objFl.Type
Cells(i, 6) = objFl.DateCreated
Cells(i, 7) = objFl.DateLastAccessed
Cells(i, 8) = objFl.DateLastModified
i = i + 1
Next
For Each objSub In objFld.SubFolders
FileDisp objSub.Path, i
Next
End Sub

**デフォルトの名無しさん** · 2018/08/07(火) 23:46:49.50

この辺は配列に入れようかと思ったけどもういいやってなった
使い捨てじゃなければもう少し綺麗にまとめたいんだけど、
そんな暇は、ない

Cells(i, 2) = objFs.GetBaseName(objFld.Name)
Cells(i, 3) = objFld.ParentFolder.Path
Cells(i, 4) = ・・・

**デフォルトの名無しさん** · 2018/08/08(水) 00:43:07.64

扱うプログラミング言語によるエンジニアの年収差「Go」が1位に　2018年8月7日
　・スタンバイが「プログラミング言語別年収ランキング2018」を発表した
　・1位に輝いたのは、さまざまな分野で利用されている「Go」
　・年収中央値は600万円で、10位の「C言語」と比べて75万円高いという
　http://image.news.livedoor.com/newsimage/stf/2/e/2e6a5_1524_19def02164a84861254ba51be419f53e.jpeg
http://news.livedoor.com/article/detail/15125851/

Goってなんやねん…
って言うてたらアカンのんか…

**デフォルトの名無しさん** · 2018/08/08(水) 02:42:12.63

ポケモンだろ

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

>>282
複数のIE インスタンスがあっても、1つしか実体化されていないとか？
それか、それらが共有化されているとか？

すべてのインスタンスを、別々に実体化したか？

**デフォルトの名無しさん** · 2018/08/08(水) 05:59:42.24

>>293
インスタンスとは実体化されてるそのもののことだと思うけど。どういうこと？

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

カップヌードルにお湯を入れます、これがインスタンス化です
カップヌードルにお湯を注いでいたとしても、それが同じカップヌードル
だったらできあがるカップヌードルは1つだけですよね、そういうことです

**デフォルトの名無しさん** · 2018/08/08(水) 08:10:17.80

>>279
InternetExplorer.Applicationは遅い。
ページにもよるけどMSXML2.XMLhttpとかhtmlflle使った方が全然速い。
ページにもよるのは遷移後にJavaScriptなどでページ内容が変わる場合等は対応出来ない場合があるから。

**デフォルトの名無しさん** · 2018/08/08(水) 09:27:23.26

Webアプリを作って取得したデータをエクセルで読み込めば早いのでは？

**デフォルトの名無しさん** · 2018/08/08(水) 11:19:22.65

社内サイトなら>>283の言うとおりDBを直接アクセスするのが正解なんだが、
「そういう想定で作ってません」てパターンもありそう。

**デフォルトの名無しさん** · 2018/08/08(水) 12:44:02.26

一般社員用クライアント - WEBサーバ - DBサーバ - 管理者用クライアント
WEB経由じゃないと、DBには直接アクセスできないってケースもよくある

**デフォルトの名無しさん** · 2018/08/08(水) 13:19:28.34

以前データをCSVに書き出す社内Webがクソすぎて
解析したらページ内のパラメータjoinしてSQL文作ってPOSTで投げて取得してただけだったので
XmlHTTPで直接取るようにしたことあるわ

**デフォルトの名無しさん** · 2018/08/08(水) 19:07:51.20

>>299
つまらんことするよなあ

**デフォルトの名無しさん** · 2018/08/08(水) 19:14:31.05

DBに無制限で直接アクセスってヤバくね？

**デフォルトの名無しさん** · 2018/08/08(水) 20:01:33.99

無制限のアクセスはやばいけど

このテーブルだけ許可しますとか
SELECTだけ許可しますとか
このIPからだけ許可しますとか
できるっしょ