Excel VBA 質問スレ Part57

**デフォルトの名無しさん** · 2018/09/10(月) 21:42:39.57

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

※前スレ
Excel VBA 質問スレ Part56
http://mevius.5ch.net/test/read.cgi/tech/1534976724/

**デフォルトの名無しさん** · 2018/10/03(水) 23:54:17.02

↓ｺｺに操作手順がおいた
http://fast-uploader.com/file/7094133678468/

[SQLの編集]ﾀﾌﾞに編集の仕方が載ってる（denpyouを例にしてるが、編集の仕方は他も同じ）
※ vbaじゃないからな、ｺｰﾄﾞはない
※ ちなみにﾃﾞｰﾀとﾃﾞｰﾀの抽出結果を出力するﾌﾞｯｸは別でも問題ない

新規に自分で作成したい場合は
>>437 ←　ｺﾚ
を参考にしなさい

**デフォルトの名無しさん** · 2018/10/04(木) 00:51:18.54

半角先生口は悪いけど割と優しいからすき

**デフォルトの名無しさん** · 2018/10/04(木) 00:55:39.43

VBAの実行環境をDockerizeする方法を教えてください

**デフォルトの名無しさん** · 2018/10/04(木) 07:43:14.54

>>536
used range使えば？最終行取得でググれ

**デフォルトの名無しさん** · 2018/10/04(木) 09:11:12.18

UsedRangeはプロパティに変更が加えられたセルを全てカウントアップするから物凄く癖がある
うっかり列範囲全体に書式設定なんかしてると最終行は1,048,576行目なんてことになるので注意

**デフォルトの名無しさん** · 2018/10/04(木) 12:04:05.58

>>541
列に対しての書式設定ならそんな風にはならない。
貼り付けするとそうなる危険性はあるけど、今のエクセルは警告出るし、実行に時間かかるし、めちゃくちゃ重たくなるから、マクロ以前にブック修復すべき案件

**デフォルトの名無しさん** · 2018/10/04(木) 13:15:55.34

Do loop関数でウェブ上の変数を取り込んでセルに表示したいんですが、セルA1に最新の変数を表示し、一つ過去のは真下セルに移動する
これを繰り返して変数をA列に積み上げいくようにしたいんですが、どうすればよいでしょうか

**デフォルトの名無しさん** · 2018/10/04(木) 13:37:33.14

挿入でできました　失礼しました

**デフォルトの名無しさん** · 2018/10/04(木) 14:40:06.72

Selenium Webdriverについて質問です。

①chromeを起動
②あるwebサイトのユーザーページにログイン
③ユーザーページ上で作業
という操作を自動化しようとしています。
①、②は良いのですが③が複雑なため、その部分のコードで試行錯誤しております。
しかしコードを修正するたびに①から行っているため時間がかかっております。
①②で起動したブラウザを利用して、③から別のsubプロシージャにして、③だけ実行して検証したいのですがどのようにすればよいのでしょうか。
下が①②のコードです。

sub 1()
Dim driver As New SeleniumWrapper.WebDriver
driver.Start "chrome", "https://aaa.com/login?";
driver.get ("/")
driver.findElementByName("UserID").SendKeys ("yamada")
driver.findElementByName("pass_word").SendKeys ("1234")

**デフォルトの名無しさん** · 2018/10/04(木) 17:50:31.63

Private driver As SeleniumWrapper.WebDriver

Sub Init()
①
②
End Sub

Sub Work()
driver.get(ユーザーページ)
③
End Sub

他のスクリプト言語に変えたほうが楽ですよ

**デフォルトの名無しさん** · 2018/10/04(木) 18:15:13.64

>>546
ありがとうございます。
やってみたのですが、getメソッドでSystem.NullReferenceExceptionというエラーが出ます.....

他のスクリプト言語というとRubyということになるのでしょうか？

**デフォルトの名無しさん** · 2018/10/04(木) 18:36:18.81

>>547
driverを初期化してないからだと思うぞ。

**デフォルトの名無しさん** · 2018/10/04(木) 18:46:00.60

>>548
大変申し訳ないのですが詳しく説明して頂けないでしょうか....
勉強不足ですみません

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

>>549
Private driver As SeleniumWrapper.WebDriver　←モジュール領域（各プロシージャの更に上位）でdriverを定義。ただし初期化していない。

Sub Init()　←Initプロシージャを実行する時にdriverを初期化し①・②を実行する必要がある
Set driver = New SeleniumWrapper.WebDriver　←ココ
①
②
End Sub

Sub Work()　←Initプロシージャを実行してからWorkプロシージャを実行すると、色々（③）を実行してくれる
driver.get(ユーザーページ)
③
End Sub

念のため言っとくと俺は>>546じゃないがついでに解説しただけで、
>>545が求めているものがこれで満たせるのかまでは関知しない。

**デフォルトの名無しさん** · 2018/10/04(木) 19:25:04.84

質問いいですか？
VBAでコールバックを行うとき
クラスが対象の場合はCallByNameで行う事が出来ますが
標準モジュールの場合、どうするんでしたっけ？
確かAPIを使った様な気がしたんですが
どのAPIを使ってどうするのか
忘れてしまいました。

**デフォルトの名無しさん** · 2018/10/04(木) 19:32:08.96

>>551
忘れたけど ariawase を見れば出てくるんじゃね

**デフォルトの名無しさん** · 2018/10/04(木) 20:46:51.81

>>550
とても丁寧にありがとうございます。追加質問させてほしいです。
A:　今回「driver」はオブジェクト変数となるため、定義の際はnew演算子を使用する。またはsetで格納する必要がある。ということで良いのでしょうか？

B:　>>550で「ただし初期化していない」とありますが、あるサイトで「vbaでは変数宣言したときに初期化が行われる」という記述を見ました。
これは、setで格納されてないから初期化すらされてない　という意味でしょうか。

C:　プロシージャが実行されるごとに初期化されればよいならば、private変数の定義をやめて、①～②、③それぞれでDim driver As New SeleniumWrapper.WebDriver　と定義すればエラーは出ないと思ったのですが、
やはり③のgetメソッドのところで「System.NullReferenceException」エラーが出てしまいました。何故なのでしょうか・・・

長文ですみません　どうか宜しくお願いいたします。

**デフォルトの名無しさん** · 2018/10/04(木) 22:18:56.04

>>553
A: あってる
B: だいたいあってる
C: まずコードが動くことを確認してから弄れ。>>546の意図が汲めないならすっぱり諦めて別の方法を考えろ。
流石にこれ以上は自分で調べろ。

追伸
B: とりあえず「値型は宣言と同時に初期化される、オブジェクト型はNewやSetをしてからでないと使えない」と思っとけ
C: 要はWebDriverの「使い回し」がしたいという質問に答えたのが>>546
　　・モジュールレベルで宣言すれば、各プロシージャ内から変数「driver」を通じて同じ実体（インスタンスという）にアクセスできる
　　・Initでモジュールレベル変数「driver」を初期化したりStartなどのメソッドを実行すれば、Workでdriverにアクセスした時にその続きのアレコレができる
　　・逆にInitで初期化やStartその他を実行したにもかかわらずWorkで新たな変数「driver」を宣言したらInitで行った処理が水泡に帰する
　　・またInit内で新たな変数「driver」を宣言し初期化等をした場合も、Init終了と同時に実体が消えて無くなる
仕事中なんであれこれ端折って書いたので間違ってる部分もあるかもしれんが、「インスタンス」とか「スコープ」とかでググって調べてみてくれ。

**デフォルトの名無しさん** · 2018/10/04(木) 22:32:59.61

>>554
本当に丁寧にありがとうございます。
伝えるのを忘れていましたが、言われた通りにコードを記述しうまくいきました。それを踏まえてのCでした。
インスタンス、スコープで調べてみます。ありがとうございました。

**デフォルトの名無しさん** · 2018/10/05(金) 12:52:55.81

「選択したセルの値を-1する」のに下記のようなプログラムを書いた。
Dim cell As Range
For Each cell In Selection
cell.Value = cell - 1
Next
これはOK。

「セルの値がブランクまたは0のとき、ブランクにする」を追加して、
Dim cell As Range
For Each cell In Selection
If cell.Value <> 0 Then
cell.Value = cell - 1
Else
Next
としたら「Nextに対応するForがありません」と怒られてしまいました。
どこがいけないのでしょうか？

**デフォルトの名無しさん** · 2018/10/05(金) 12:58:15.96

if文が閉じてないから

**デフォルトの名無しさん** · 2018/10/05(金) 16:28:56.84

>>556
お前の知能に障害がある

**デフォルトの名無しさん** · 2018/10/05(金) 16:54:22.89

>>556
インデントが適当だからそういうミスに気がつかない

**デフォルトの名無しさん** · 2018/10/05(金) 17:24:22.25

else nextとか書く馬鹿にインデントもなにもねーよ

**デフォルトの名無しさん** · 2018/10/05(金) 17:30:08.09

適当ならいいじゃないか

**デフォルトの名無しさん** · 2018/10/05(金) 18:25:40.30

Ifは基本一行で済ませるか、If...Then句を書いた後にすぐ改行して同じインデントレベルでEnd If 句を入れる癖をつけろ

**デフォルトの名無しさん** · 2018/10/05(金) 21:10:17.32

>>448
レベルアップするたびにポイントをVBAにばかり振り分けてきたんだよきっとｗ

**デフォルトの名無しさん** · 2018/10/05(金) 21:14:01.44

>>556
根本はエクセルのエラーメッセージが明らかに間違っているから混乱する
けどプログラムの世界って大体そんなもんと諦める必要がある

で、対処法としては
>>559
が正解
インデントが適切なら楽勝で気づける問題

>>562は最悪。開発が超遅くなる

**デフォルトの名無しさん** · 2018/10/05(金) 22:05:56.09

質問です。

テキストファイルの中身をセルに出力する処理をやっているのですが、一部のテキストファイルの文字が正常に出力されません。（縦線 " | "のみが出力される）
ただし、判定によってセルの色を変えているのですが、その機能は生きているので、読み込み自体はできているみたいです。
また、全部のファイルで不具合があるわけではなく、特定のファイルの特定のレコードにのみ起こるっぽいです…

補足すると、テキストファイル自体はメインフレームの伝送機能で送ってます。これが原因に関係あるのかはわかりませんが…

詳細聞かれたらお答えしますので、解決にご協力頂ければと思います。

**デフォルトの名無しさん** · 2018/10/05(金) 22:07:25.21

565です。
本題を載せ忘れていました。
原因、改善方法がわかる方いましたら、ご返答願います。

**デフォルトの名無しさん** · 2018/10/05(金) 22:15:30.06

俺はインデントもしっかりでEnd Ifも先に書く派だな、他の言語での閉じ括弧みたいなもんだし

**デフォルトの名無しさん** · 2018/10/05(金) 22:17:06.45

>>565
その特定のレコードを教えて

**デフォルトの名無しさん** · 2018/10/05(金) 22:27:19.79

>>564
俺はブロックを先に区切らずにダラダラ書いていく方が効率悪いように見えるんだけど、End Ifを先に書かない方が速度上がるの？
本当だったらそうしてみようかな

**デフォルトの名無しさん** · 2018/10/05(金) 22:27:20.22

>>565
コンピュータのベンダーや年式が違えば文字コード字形の割り当てが違うことも多い

手順
・テキストファイルの文字エンコード、記述形式を正確に把握する
・化けた部分前後数行のみのテストデータを作る
・ウォッチウィンドウを活用して原因を探る

**デフォルトの名無しさん** · 2018/10/05(金) 22:30:53.32

>>568
INPUTはJCL（COBOLアプリを動かすためのスクリプト言語）をテキストファイルに落としたものです。

特定のレコードなのですが、テキストファイルを確認しても、他の出力されているレコードと見た目は全く変わりません。（スペース、データの末尾にも問題なし）
にも関わらず決まったレコードのみに不具合が発生します。

マクロが手元にないため画像は載せられませんが、
JCLについては、画像検索して出てきたものとほぼ同じですので参照頂ければと思います。

**デフォルトの名無しさん** · 2018/10/05(金) 22:37:26.08

>>570
やはり文字コードがきな臭いですかね
shift-jis になる仕様のはずなのと、他レコードは大丈夫なため問題ないと判断していたのですが、
vba上でも文字コードを明示してあげる必要がありそうですね

**デフォルトの名無しさん** · 2018/10/05(金) 22:59:15.65

メインフレームなぁ・・・最後に触ったの20年近く前で、びっくりするほど覚えてねぇ。

ちょっと気になるんだが、正常に出力されない時に表示される縦線は、
元のテキストファイルにデータとかデリミタとして含まれている文字なのか？
それとも変換できなかった文字が縦線に置き換わっているのか？

**デフォルトの名無しさん** · 2018/10/05(金) 23:11:22.13

>>556
なんかコピペしたときにend ifが抜けてた

**デフォルトの名無しさん** · 2018/10/05(金) 23:23:40.27

>>573
縦線はデリミタではなく、元のレコードにも存在しない文字です。
処理としては、テキストファイルのレコードをそのままセルに出力するだけなのですが…
読み込んだ時点では問題なく、出力したときに縦線に置き換わってる感じですねー

**デフォルトの名無しさん** · 2018/10/05(金) 23:39:05.08

>>574
馬鹿は死ねよ

**デフォルトの名無しさん** · 2018/10/05(金) 23:53:59.29

>>575
ファイルからレコードを読み込んだら、イミディエイトウィンドウにも出力しておく
データをセルに書き込んだあと、もう一度セルから読み出して縦線になってたら中断するようなコードを書く
中断したらイミディエイトウィンドウの内容を確認

どこで化けたか、1つずつ追跡するしかないです
意外なところでミスをしていたり、仕様だったり、落とし穴があるもんです

**デフォルトの名無しさん** · 2018/10/06(土) 00:57:54.07

>>575
1.入力するテキストファイルに「ろくでもない見えない文字」が含まれている（たとえば制御文字）
　→普通のテキストエディタでは見えないことが多いのでバイナリエディタで確認する
2.テキストファイルのレコードを読み取りセルに出力する処理のどこかに問題がある
　→特定のレコードで発生するということは、特定の文字列のパターンか、特定のレコード数でのみ発生している可能性もある
こんな月並みなことしか考えつかないな。
個人的には、文字化けだったとしたら全部縦線に置き換わるのはおかしいと思うが（化けた文字が一切見受けられず縦線だけってのが妙に気になる）

**デフォルトの名無しさん** · 2018/10/06(土) 04:51:40.31

とりあえず、どんなコードで読み取って表示してるか出さんと話にならんわ

**デフォルトの名無しさん** · 2018/10/06(土) 07:12:44.67

実はテキストファイルのエンコードがutf8とかだったりして

**デフォルトの名無しさん** · 2018/10/06(土) 07:49:00.01

メインフレームだからEBCDICだろ変換前はEBCDICの変換は面倒い

**デフォルトの名無しさん** · 2018/10/06(土) 07:55:07.00

EOTとかVTの類の制御文字な気がする

**デフォルトの名無しさん** · 2018/10/06(土) 13:50:07.16

>>561
SHIFT-JISのはずって言ってるし、ホスト側に大抵変換ツールあるだろ

文字コードや制御文字の可能性よりプログラムのバグの方が確率高い気がするなぁ
まあコード出せばどっちの問題かはだいたい判別できるはず
化けるデータのダンプでもいいけどな

**デフォルトの名無しさん** · 2018/10/07(日) 13:12:34.96

色々と意見ありがとうございます。
コードが掲示できなくて申し訳ないですが、
文字コードについてはホストの変換機能があるはずなので、プログラム上のバグとみてデバックしてみます。

**デフォルトの名無しさん** · 2018/10/07(日) 15:35:18.94

>>567
>>569
正解。

でも、頭の使い方を知らない人にとっては理解し難いんだろう。
頭を使う作業と単純作業を分けるのが自然になってる人はEndIfを先に書く。
他にもEndWithやNextも先に書くな。

Ifまで書いて条件をどこからかコピペするのに気付いた時はIf a Then...EndIfまで書いてからaと差し替えるとか。
あるいはaの差し替えは中身書いた後の時もあるな。

**デフォルトの名無しさん** · 2018/10/07(日) 15:38:24.87

>>577
文字化けはイミディエイトでは分からない場合も多い。
こういう時はデバック用にバイナリで出力するものを作っとくべきだね。

**デフォルトの名無しさん** · 2018/10/07(日) 15:38:37.38

そしてaの差し替えを忘れると

**デフォルトの名無しさん** · 2018/10/07(日) 16:40:59.78

VBA「済まんのう、ワシのインテリセンスが貧弱なばっかりに・・・」

**デフォルトの名無しさん** · 2018/10/07(日) 17:11:47.87

>>587
二ワトリか?

**デフォルトの名無しさん** · 2018/10/07(日) 19:18:32.78

>>585
閉じタグみたいな単純作業を人間がやるのは馬鹿らしいと気付いて別の言語に移行するのが大正解

**デフォルトの名無しさん** · 2018/10/07(日) 21:50:24.98

で、pythonみたいな欠陥言語では空文という概念すらない
ｲﾝﾁｷな制御文で空文を回避する必要がある

つまり、cが言語として一番単純で簡単

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

しかし少し待って欲しい
C言語が扱うのはDelegateじゃなくて
ポインタだから不慣れな人が使うのは結構危険

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

コードの作成ができる方がいらっしゃいましたら、助けていただきたいです。

https:～～/～～～/～～.pdf
で終わるURLが1000件以上あり、業務でそのすべてを印刷しなければならないのですが、
１つ１つIEで印刷していくのが大変面倒で、VBAで一気に印刷することができないか
調べたのですが、.pdfで終わるファイルをwebから自動で印刷するのは不可能なようでした。

そこで、その1000件以上あるpdfファイルを一気にローカルに保存できないかと考えております。

具体的には、
A列にひたすらURLを貼り、マクロを起動するとローカルの任意のファイルにPDFが保存されていくようなVBAが組めないかと考えております。
(一気に印刷することができれば、尚よいのですが)

どなたかコードを組んでいただけないでしょうか。

お手数ですが、よろしくお願い致します。

**デフォルトの名無しさん** · 2018/10/08(月) 11:21:42.19

curl, wget で、ファイルをダウンロードできる

**デフォルトの名無しさん** · 2018/10/08(月) 12:38:16.57

ダウンロードやら印刷やらはPowershellならそれぞれ1コマンドで出来るんだけどね
VBAだとそこそこ面倒な気がする

**デフォルトの名無しさん** · 2018/10/08(月) 12:47:36.35

両面2upで印刷とかだとpowershellでも大変じゃないの

**デフォルトの名無しさん** · 2018/10/08(月) 12:59:10.13

>>593
難しいだのなんだの言われてたけど、テキトーにやってたら簡単にできて拍子抜け
http://fast-uploader.com/start/7094526398997/

Book1.zip
を
Book1.xlsm
にリネームしてくれ

A列はファイル名
B列はURL
C列はokかNGか。アテになるかどうかはシランので、落とした後のファイル数はなどは確認したほうが良い

コードの編集は適当にやってくれ
今はテスト用に3つだけにしている
あと保存するファイル名は被らないようにかなり適当に作っている。適当に変えてくれ

で、pdf印刷はこの辺に任せるといいと思う
https://dekiru.net/article/1745/

あと、参考にしたサイト
https://tonari-it.com/excel-vba-windowsapi-urldownloadtofile/

特に何の関係もない、無害なサンプルpdfが置いてあったサイト
http://www.shikisensha.com/pdfs.html

**デフォルトの名無しさん** · 2018/10/08(月) 13:00:47.95

>>593
powershellスレで聞いた方がいいよ
一括ダウンロードも印刷もけっこう簡単にできる
VBAでもできるけどちょっと面倒だから

**デフォルトの名無しさん** · 2018/10/08(月) 13:16:18.75

そこまで簡単にできるならもうここで書いてしまって良いんじゃない？

**デフォルトの名無しさん** · 2018/10/08(月) 13:21:06.52

クレクレに割く労力など微塵もない

**デフォルトの名無しさん** · 2018/10/08(月) 13:21:21.13

>>593
そんなのjdownloader2とか
webブラウザのアドオン使えよｗ

**デフォルトの名無しさん** · 2018/10/08(月) 13:36:20.93

>>600
あれ、そうか
PowerShellあんまり知らないから見てみたかった

**デフォルトの名無しさん** · 2018/10/08(月) 15:25:31.11

>>593
死ねよ

**デフォルトの名無しさん** · 2018/10/08(月) 15:55:52.70

>>601
拡張機能探すのあんまり得意じゃないわ
結局作ったほうが早い

>>603
ざっこｗ

**デフォルトの名無しさん** · 2018/10/08(月) 18:30:52.01

>>597
URLDownloadToFile というAPIがあることをいま知った。
これまで都度 MSXML2.XMLHTTP を作って .Open "GET" していた。
API一発ならその方がスマートだしプログラムをそれベースに書き換えようかと思ったけど、
IDとパスワードを渡さなきゃならない場合は使えないのかな？

**デフォルトの名無しさん** · 2018/10/09(火) 01:51:39.58

N列に時刻データが入っている
但し一部の行はブランク

時刻データは"00：10：00"のように時・分・秒が指定されている
表上は"00：10"つまり「時・分」のみを表示

この時刻データの分の1桁目が9の時のみ1分繰り上げて0にしたい
つまり
"00：19：00"→"00：20：00"
"00：59：00"→"01：00：00"
になるようにしたい

セルは複数セルを不連続で選択し、ブランクはパスして
分の1桁が「9」の場合のみ1分繰り上げするにはどうすれば良いでしょうか？

**デフォルトの名無しさん** · 2018/10/09(火) 03:48:33.30

>>606
秒はどうするの？19分30秒だったら20分00秒にするってこと？

とりま、基本的な処理は分を10で割った余りを求めて、9だったら1を足す
それを選択された全セルに対して繰り返す

**デフォルトの名無しさん** · 2018/10/09(火) 07:12:30.74

>>606
O1=N1+IF(MOD(MINUTE(N1),10)=9,TIME(0,1,0),0)

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

>>565-586
Ruby で、そのテキストの該当部分を表示して、確かめる。
他の言語でもよい

>>606
いったん時刻に変換して、1分足してから、また元の形式へ戻す。
つまり、表示形式 → 時刻 → 表示形式

**609** · 2018/10/09(火) 10:04:43.66

>>565-586
制御文字の可能性があるから、文字列をバイナリで見る

文字コードや、UTF-8 ならBOM の有無

セルに入力した時に、特別な意味を持つ文字が入っているとか？
シングル・ダブルクォーテーションなど？

**デフォルトの名無しさん** · 2018/10/09(火) 16:25:52.94

会社で社内Webのform類のsubmitボタンを押して出てくるデータベースのデータが抽出されるシステムがあります。
(まあ、このようなシステムはどこにもあると思いますが。)
これ、どうにかして大元のデータベースのデータを丸ごとExcelにインポートする方法ってないですか？
Webのソースを見れば、データベースのサーバのアドレスが書いてあって、それをVBAで取り込む、みたいなのをイメージしているのですが
技術的には可能ですよね？

**デフォルトの名無しさん** · 2018/10/09(火) 16:53:10.93

技術的には可能だがお前には不可能
イメージが見当違いだ

**デフォルトの名無しさん** · 2018/10/09(火) 16:58:57.67

WEBサーバ自体をハックできるなら。
大抵PHPか.Net実装でソースからは見えない

**デフォルトの名無しさん** · 2018/10/09(火) 16:59:23.34

あまりわたしを怒らせないほうがいいぞ
わたしは怒ったら怖いんだぞ

**デフォルトの名無しさん** · 2018/10/09(火) 17:21:21.07

コンプライアンス違反で懲戒解雇＆賠償請求訴訟起こされたいのなら、止める義理はない

**デフォルトの名無しさん** · 2018/10/09(火) 17:57:17.02

>>611
会社のシステムなら上司に相談しろよ
社内規定に違反すると最悪解雇もあるからな

**デフォルトの名無しさん** · 2018/10/09(火) 18:10:23.08

>>611
怒らせたくはないけどまともなシステムならクライアントから見えるところにデービーのアドレスは書かれてないよ

**デフォルトの名無しさん** · 2018/10/09(火) 18:17:11.24

クライアント↔Webサーバ↔DBサーバ
ブラウザがやり取りするのはWebサーバ
その先にはアクセス出来ないのが普通

**デフォルトの名無しさん** · 2018/10/09(火) 18:18:22.93

普通に上司経由でシステムの所管部署に相談してAPIを共有してもらった方が安全だろ
自作コードでサーバーを直接叩くのはいろんな意味で危険

**デフォルトの名無しさん** · 2018/10/09(火) 19:14:35.52

焦っとるなプロさんwおまえらプロさんのコードも十分すぎる程危険なんやがw

**デフォルトの名無しさん** · 2018/10/09(火) 19:46:02.37

>>611
出発点から「自分で勝手に何かする」というのが間違い。
他の人も言うとおり、まずは自社で管理してるDBなら管理部署に、ベンダのシステムであればそのベンダに、やりたいことを伝えて対応してもらう。
対応してもらうのが無理なら、管理部署やベンダにAPI等を利用してツールを作成して良いか確認を取る。
もしOKなら、API等を利用してツールを自作する。完成したら必ず管理部署やベンタにツールを見てもらう。

勝手にベンダのAPIを利用してSQL発行ツール自作してクビ寸前まで行ったことがある人を知ってる。
大幅減俸で落ち着いたらしいけど今はもういないから実際のところどうだったのかは知らんが。

**606** · 2018/10/09(火) 20:01:04.99

>>607-609
ども！

ワークシート上なら"00：59：00"＋"00：01：00"→"01：00：00"みたいに単純に繰り上げが出来るので
マクロで同じような計算が出来ないかと考えたんだけど（>>609さんのコメがそうかな？）
具体的な手順が思い当たらなかったので、原始的なやり方で作ってみました

strTime = Format(cell.Value, "hh:nn:ss")でセルの時刻を文字列に読み込み
時（strH）・分（strM）・秒（strS）を切り分け、分の1桁目が9の時だけ

intH = val（strH）、intM＝val（strM）で数値化した値から
sumM = ntH*60 + intM + 1　
intH = int(sumM/60)、intM = sumM - intH *60 を計算し

これを時刻に直してセルに戻す、という手順で出来ました

**デフォルトの名無しさん** · 2018/10/09(火) 21:10:44.20

先週文字化けの件で質問をした者です。
あれから例のマクロをデバッグし、無事原因がわかりました。
文字コード云々ではなく、単純なロジックミスという落ちでした…。
お騒がせをしましたが、ご助言くださった方々ありがとうございました。

**デフォルトの名無しさん** · 2018/10/09(火) 21:29:16.80

オートフィルターをかけた状態の表を配列に取り込むには、Copy Pasteで一旦どこかに貼るしかないのかな？

**デフォルトの名無しさん** · 2018/10/09(火) 21:52:35.13

>>623
クローズ報告ありがとさん、燻りそうだったのでクローズ連絡は助かる

**デフォルトの名無しさん** · 2018/10/09(火) 22:00:23.20

>>623
やっぱそっちだったか。解決したようで良かったわ。

**デフォルトの名無しさん** · 2018/10/09(火) 22:45:02.58

>>624
ヒントはF5、表示セルのみ

**デフォルトの名無しさん** · 2018/10/09(火) 23:06:53.75

>>616
>>621
信じられない。
なぜツール作っただけで解雇とか減給とか？
チームは違うけどチームの作業効率をはるかに高めることをするという非常にほめられることをするというのに。
別に会社になんの不利益も与えない。

**デフォルトの名無しさん** · 2018/10/09(火) 23:19:05.15

>>628
普通にある
＞非常にほめられることをする
ほめられない

ってか考えが浅すぎるから本当に気をつけろ

**デフォルトの名無しさん** · 2018/10/09(火) 23:44:23.50

>>628
問題は色々あるが、まずは許諾を得ずに勝手に構造を解析するということ。つまりリバースエンジニアリング。
次にシステム上想定していない勝手なSQLをこれまたシステム上想定していない勝手な方向から流すということ。

「会社のために」の枕詞を取り払えばこういうことになる。その枕詞が付いていたとしてもリスク管理の観点から非常に危ない。
特に、決められた手続き決められたデータが抽出できる環境がありながら全データ抽出したいとか、クラッキング以外の何ものでもない。
自分で勝手に作ったSQL発行ツールが原因でサーバに異常な負荷をかけてしまったら責任が取れるのか？
そのツールが悪意のある第三者に見られあるいは持ち出され、悪用されたら責任を取れるのか？

自分の会社に対する誠意を完全に証明できる自信があるとか、完全無欠に誰にもどこにも迷惑をかけないツールを作成できる自信があるとかなら、なおのこと手順を踏むべきだ。
黙ってやろうとすること自体が会社を納得させる自信のなさと会社への不誠実さの顕れだ。

**デフォルトの名無しさん** · 2018/10/09(火) 23:59:21.37

大げさなやつらだな
普通に「ODBCでアクセスしたいからID発行してプリーズ」って管理部署に頼め

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

お前らビビりすぎだろ
外からDBアクセスできるなら
トランケートされても文句言えねえわ

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

真面目か

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

作成依頼です。

エクセルのＡ１セルに入力されている住所をgoogleearthで開きたいのです。
マクロでgoogleearthを立ち上げるとこまではshell関数で作ったのですが，そ
の先をどうすればよいのかさっぱりわかりません。
googleearth左上の検索のところにA１セルの住所を自動で入力して検索ボタンを押す，
というマクロを教えて頂けないでしょうか。

よろしくお願いします。

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

お前らが甘やかすからこういう全部作ってくれ馬鹿が調子に乗る

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

>>634
しね
よろしくお願いします