[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
10(1): (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/30(日)23:59 ID:RQLT4uuu0(2/2) AAS
>>7
宣言と初期化を一度に書きたくなる気持ちはわかるけど、マルチステートメントはやめた方がいい
11(1): (ﾄﾞｺｸﾞﾛ MMca-ftwo) 2020/08/31(月)00:06 ID:SE//WJVaM(1) AAS
誰に言われるまでもなく上に全部まとめて宣言しているわ
違うプロシージャにそのままコピペで流用して使わないのは消すだけ
12(2): (ﾜｯﾁｮｲ c13d-7m6G) 2020/08/31(月)00:13 ID:TQg4kwht0(1) AAS
>>7
Cellsの前にはワークシート名書いといた方が絶対にいいよ
CodeNameでいいから前に書いときな
13(3): (ﾜｯﾁｮｲ 45cc-pyQU) 2020/08/31(月)19:07 ID:Lt7FggAF0(1/2) AAS
Ｂ列に"2020/8/1"のように日付が入っていて
Ｂ列に"発行日"&和暦を入力したいのですが、年・月・日がそれぞれ１桁の場合は頭に０が入ってしまします。
１桁の場合は、０の代わりに半角スペースにしたいのですがどう書けばいいですか
Dim r As Long
For r = 1 To Cells(Rows.Count,1).End(xlUp).Row
Cells(r,2).Value = Format(CDate(Cells(r,1)), "ggge年m月d日")
Next r
14: (ｱｳｱｳｳｰ Sa85-7m6G) 2020/08/31(月)19:10 ID:ZuoShitIa(1) AAS
>>13
Month関数使えば判定できるとか
15: (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/31(月)19:11 ID:0S1gXD8ua(1) AAS
>>10
>>12
助言ありがとうございます。
16(1): (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/31(月)20:25 ID:Zj98ZIJ+0(1) AAS
>>13
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(r, 2).Value = Replace(Replace(Format(CDate(Cells(r, 1)), "ggge年mm月dd日"), "年0", "年 "), "月0", "月 ")
Next r
17: (ﾜｯﾁｮｲ 45cc-pyQU) [13] 2020/08/31(月)21:02 ID:Lt7FggAF0(2/2) AAS
>>16
ありがとうございます
18(2): (ﾗｸｯﾍﾟﾍﾟ MM66-i8JQ) 2020/09/01(火)16:02 ID:IEy7mEwuM(1) AAS
vba実行時
実行時エラー2147467259（80004005）エラーを特定できません
が出ます。
半月前は出ませんでした。
どうすれば良いでしょうか。
具体的に申しますと
pdfをテキストにコンバートする関数に
入った直後に出ます。
Dim objAcroApp As New Acrobat.AcroApp
Dim id As Long
省3
19(1): (ｱｳｱｳｸｰ MM11-1Npq) 2020/09/01(火)19:54 ID:GHp5MfoEM(1) AAS
小計シートのA列に日付があります
1.メニューシートでリストボックスを設置して、そこに小計シートのダブりを省いた日付を入れて選択できるようにしたいです
２.メニューシートの実行ボタンを押すと選択した日付の行全てを結果シートに出力したいです
どのような関数を使えば１、２を実現できるのでしょうか？
20(5): (ﾜｯﾁｮｲ 4d10-t21d) 2020/09/01(火)20:49 ID:4J5+lU0z0(1/2) AAS
神経衰弱を作っています
Image1~52を並べて全てのImageにクリックされた時の処理を記述しているのですがImageがクリックされた時の処理をひとつにまとめる方法はないでしょうか？
21: (ﾜｯﾁｮｲ 61da-1etN) 2020/09/01(火)21:43 ID:rkSCdRtt0(1/2) AAS
>>20
1つにまとめて、どこをクリックされたかは座標で特定するとか。
22(1): (ﾜｯﾁｮｲ 61da-1etN) 2020/09/01(火)21:46 ID:rkSCdRtt0(2/2) AAS
>>18
vbsでも同じエラー出る?
23: (ﾄﾞｺｸﾞﾛ MMca-yRqa) 2020/09/01(火)21:59 ID:o1zup8QpM(1) AAS
>>20
Imagename = Application.Caller
i = Mid(Imagename, 6)
あとは、Select Caseで割り振る
24: (ﾜｯﾁｮｲ 0d7c-JMbW) 2020/09/01(火)22:12 ID:0zlN/jAw0(1) AAS
>>20
マクロ登録に引数を付けるかApplication.Callerを使う
25: (ﾜｯﾁｮｲ 4d10-t21d) 2020/09/01(火)22:24 ID:4J5+lU0z0(2/2) AAS
Application.callerよさそうですね
使ってみます
ありがとうございました
26: (ﾜｯﾁｮｲ 27da-yCsQ) 2020/09/02(水)02:29 ID:wtN1DZWS0(1/2) AAS
>>19
一気に答えがで関数があると思うな
27: (ﾜｯﾁｮｲ 27da-yCsQ) 2020/09/02(水)02:29 ID:wtN1DZWS0(2/2) AAS
る
28: (ﾜｯﾁｮｲ 5f2f-q/EU) 2020/09/02(水)04:35 ID:A3FRNSa90(1) AAS
>>20
一度、VBA コントロール配列 あたりでググってみると良いかもしれない
29: (ｽﾌﾟﾌﾟ Sd7f-2VA6) 2020/09/02(水)06:20 ID:PYA1799od(1) AAS
>>20
クラス作ってWithEventsおすすめ。
30(2): (ﾜｯﾁｮｲ e710-t/Jd) 2020/09/02(水)20:49 ID:hWT8nCmb0(1) AAS
神経衰弱を作っています
カードを2枚裏返して2枚の数字が同じだった
Image1.visible = falseで2枚を非表示にしています
ゲーム途中でコマンドボタンを押すと1から13までのランダムな数字の枚数だけ裏面のカードを表にしたいのですが今のコードだと既に非表示になっているカードまで表にする対象になってしまっていて13という数字を引いても5枚しかめくれないみたいな状態になってしまいます
どうすれば既に非表示になっているカードは除いて表面にする処理ができるようになるでしょうか？
ゲーム開始直後の状態であればちゃんと引いた数字分表面にすることができています
31: (ｽﾌｯ Sd7f-7sgX) 2020/09/02(水)20:58 ID:RVYxtb8Vd(1) AAS
非表示の時は表示しなければいいのでは…
32(1): (ﾜｯﾁｮｲ 5f1f-W64q) 2020/09/02(水)21:06 ID:wVSDLDLi0(1) AAS
For i = Lbound(arr) to ubound(arr)
next i
配列の中 ファイル名*書込文字。
(0)001*abc (1)001*bca (2)001*dca (3)002*fed の様な配列の処理を
(0)で001.xlsを開いて文字書き込み
(1)開いてあるから文字書き込み
(2)同様
(3)001閉じる002開く文字書き込み
こんな感じに開いてたら閉じる。違うファイルなら閉じて新たに開くってどうしたら
いいですか？
33(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/02(水)21:08 ID:0x5o6h4cd(1/2) AAS
>>32
その処理のどの部分で躓いてんの？
34(1): (ﾄﾞｺｸﾞﾛ MM1f-th+2) 2020/09/02(水)21:43 ID:M5ACMng3M(1) AAS
>>30
If Worksheets(シート名).Shapes("Image" & カード番号).Visible = False Then
35(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/02(水)22:11 ID:0x5o6h4cd(2/2) AAS
>>34
それだと非表示にしたカートまで表示される
36: (ｱｳｱｳｶｰ Sa9b-vRCQ) 2020/09/02(水)22:44 ID:7eaUdZ9ha(1) AAS
>>30
表裏の切り替えできてるなら裏かつvisibleだけ処理すりゃいいと思う
37(1): (ﾄﾞｺｸﾞﾛ MM1f-aCGe) 2020/09/02(水)23:26 ID:CEKOaVwIM(1) AAS
>>35
じゃあ、trueに変えればいいじゃん
38(1): (ﾜｯﾁｮｲ 7f63-3NJ+) 2020/09/02(水)23:43 ID:4SR2iB8C0(1/2) AAS
>>22
sはこれでエラーが出ませんでしたが
これでテストになっているのか疑問です。。(acrobatを操作しているように見えない
Sub ConvertFile()
Dim objAcroApp
Dim objAcroAVDoc
Dim objAcroPDDoc
Dim id
Dim js
Dim SaveName
省5
39: (ﾜｯﾁｮｲ 7f63-3NJ+) 2020/09/02(水)23:44 ID:4SR2iB8C0(2/2) AAS
sはこれでエラーが出ませんでしたが
↓
vbsは・・・
です。失礼しました。
40(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/02(水)23:59 ID:86SCKcxdd(1) AAS
>>37
カードの非表示状態を管理するなりしないと単純にvisibleだけ見ても意味ないよ
41(1): (ｽﾌﾟｯｯ Sdff-W64q) 2020/09/03(木)07:25 ID:VXBXo8cBd(1) AAS
>>33
次のファイルが同一ならそのままで、違うファイルなら閉じて開くの処理の仕方が分かりません。
42: (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P) 2020/09/03(木)09:49 ID:8vHUVo2kM(1) AAS
>>40
visibleプロパティで管理してるんだから問題ないだろ
13回選んで4回裏が出たら17回選べばいいんだよ
43: (ﾜｯﾁｮｲ 5f80-uomc) 2020/09/03(木)10:06 ID:wpeUBEOu0(1) AAS
>>41
ファイル名保持して、ファイル名が同一ならそのまま、違ったら閉じて開くだけ？isbookopen使うとか？
44: (ﾜｯﾁｮｲ c7da-XrX+) 2020/09/03(木)20:23 ID:xDfSE2i10(1/2) AAS
>>38
CreateObject("AcroExch.App")
CreateObject("AcroExch.PDDoc")
しなきゃダメなんじゃ・・。
そういう問題ではない?
45: (ﾜｯﾁｮｲ c7da-XrX+) 2020/09/03(木)20:28 ID:xDfSE2i10(2/2) AAS
あと、1回だけ成功したのなら、
馬鹿馬鹿しいと思うかも知れないけど、
DoeventsかSleepを入れてみるとか。
46(2): (ﾗｸｯﾍﾟﾍﾟ MM8f-qH39) 2020/09/04(金)12:46 ID:lx1E7kKYM(1/2) AAS
csvをある列でフィルタし
結果を別のブックに貼り付け
csvとして保存したところ
日付＋時刻（ゼロ時）の列すべて
5桁の数字になります
どうしたら日付＋時刻のままで
いてくれますか
47(1): (ﾜｯﾁｮｲ e77c-ALHH) 2020/09/04(金)14:35 ID:cB2Mz28T0(1) AAS
文字列として貼る
48(1): (ﾜｯﾁｮｲ 7f8e-+abr) 2020/09/04(金)16:31 ID:9qR3rveJ0(1) AAS
>>46
VBAの話しか？
49: (ﾗｸｯﾍﾟﾍﾟ MM8f-qH39) 2020/09/04(金)17:16 ID:lx1E7kKYM(2/2) AAS
>>48
はぃ、vbaでそういう処理を書きました
50(2): (ｱｳｱｳｸｰ MMbb-DxLX) 2020/09/04(金)19:53 ID:F8mRPL3VM(1) AAS
一定間隔でマクロ実行する方法はなんとなくわかるのですが、不規則な間隔（5秒〜90秒）でマクロ実行したいのですが
どんなやり方がありますか？
51(1): (ﾜｯﾁｮｲ c7da-XrX+) 2020/09/04(金)20:18 ID:1AlCas5O0(1/3) AAS
>>46
日付が5桁の数字って、44078とかだろうけど、
多分フィルタもCSVも関係ない。
値貼り付けしちゃってる。
52: (ﾜｯﾁｮｲ c7da-XrX+) 2020/09/04(金)20:24 ID:1AlCas5O0(2/3) AAS
>>50
Rnd使うのが一般的なんだろうけど、アホな方法を挙げると、
誰かが作った不規則をパク
53: (ﾜｯﾁｮｲ c7da-XrX+) 2020/09/04(金)20:26 ID:1AlCas5O0(3/3) AAS
ってくるとか。
例えばライブカメラの画像をDLして使うとか。
54: (ﾜｯﾁｮｲ 27ce-n8ne) 2020/09/04(金)22:27 ID:awq2GZ8I0(1) AAS
>>50
マクロの最後にApplication.OnTimeを書く
現在時刻に乱数で秒数を足す
55: (ﾜｯﾁｮｲ e710-t/Jd) 2020/09/04(金)23:53 ID:3ZUt+s6n0(1) AAS
モジュール1で定義した配列をモジュール2で使うにはどうすればいいですか？
モジュール1でdimではなくpublicで宣言すればいいのでしょうか？
56: (ｽﾌｯ Sd7f-7sgX) 2020/09/04(金)23:56 ID:LK01+huQd(1) AAS
なんでそれをやってみないの
57(2): (ﾜｯﾁｮｲ c763-3NJ+) 2020/09/05(土)00:15 ID:oZJVOAAi0(1) AAS
>>51
すべてご推察のとおりです。ありがとうございます。
xlPasteValuesで張り付けてます。
xlPasteAllだと年が月日の後になってしまいます（5/31/2020 0:00）
>>47さんのおっしゃる
「文字列として」貼り付ける設定を発見できません。
""で囲めば文字列として貼り付けられるのでしょうか。
58: (ﾜｯﾁｮｲ 7f8e-+abr) 2020/09/05(土)00:15 ID:wG6iKMy+0(1/2) AAS
最近また馬鹿が出てきた
59: (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)00:20 ID:dEfSwWqXd(1) AAS
>>57
セルの書式設定
60(1): (ﾜｯﾁｮｲ 5f2f-3NJ+) 2020/09/05(土)07:07 ID:8ZVzqJQh0(1) AAS
CSVで保存したら書式通りで保存されたっけ？
61: (ﾜｯﾁｮｲ 27ce-n8ne) 2020/09/05(土)08:05 ID:aR6FsABo0(1) AAS
>>60
される
62(2): (ｵｯﾍﾟｹ Srbb-XehP) 2020/09/05(土)10:12 ID:LyoNVqbOr(1) AAS
A1に3、B1に100といれ、実行すると、
3から100行までを非表示にするマクロお願いします
63(2): (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/05(土)13:47 ID:CLMpHe/Q0(1/3) AAS
基本技術の試験勉強してるのですが、
外部ﾘﾝｸ[html]:www.fe-siken.com
この過去問の設問3のマクロの文章の和訳というか、各行がどんな処理をしているのか日本語で説明できる方いませんか
あと、変数iなんですが、なぜiなんでしょう
よろしくお願いいたします
64(3): (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)14:03 ID:4XqPsYsKd(1) AAS
ループカウンタ用の変数名はとりあえずiにでもしとこうっていう昔からの名残
細かく言うと整数を表すIntegerのi
i、j、k〜nまで順によく使われる
65: (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/05(土)14:08 ID:CLMpHe/Q0(2/3) AAS
>>64
ありがとうございます
特にこだわる深い意味は無いのですね
助かります
66(2): 63 (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/05(土)14:19 ID:CLMpHe/Q0(3/3) AAS
何度もレスしてすいません。
問題の文章とVBAのマクロの文章を照らし合わせて回答をみると何となく答えがわかる気がしてきたのですが、
相対(a2,work_line,3)
がなぜ来店状況ワークシートのセルd列のことになるのか分かりません。
3列目なのでcだと思ったのですが…
67: (ｻｻｸｯﾃﾛ Spbb-Yyeh) 2020/09/05(土)14:51 ID:OBeOSrHnp(1) AAS
>>64
indexかと思っていたんだが
68(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)15:12 ID:JRHWh/h7d(1) AAS
>>66
列番号ではなくA列から相対的に数えて何個右の列かってことだろう
69: (ｱｳｱｳｳｰ Sa8b-vi+Z) 2020/09/05(土)15:15 ID:jnQOfSyba(1) AAS
>>66
問題見てもないけど、相対って書いてあるからＢ列から始めてるんじゃ？
と思ったけどレス見ると3次元配列っぽいしよくわからん
70(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)15:16 ID:YqeHmb95d(1/2) AAS
相対(A2,work_line)も同じ考え方だぞ？
71: (ﾜｯﾁｮｲ 7fdd-uomc) 2020/09/05(土)15:19 ID:Xd3OIwcX0(1) AAS
>>63
fortran起源説
72(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)15:20 ID:YqeHmb95d(2/2) AAS
vbaに直すとrange("A2").offset(work_line,3)
73: 63 (ｵｯﾍﾟｹ Srbb-zmOT) 2020/09/05(土)16:21 ID:zirZG8//r(1) AAS
>>68
>>72
ありがとうございます！！
理解しました！
74(3): 63 (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/05(土)16:23 ID:ZUfl2WLX0(1/2) AAS
>>70
すいません
そもそもそれもよく分かってなかったのです。
ちなみに良かったらどういう意味が教えて欲しいです。
聞いてばかりで申し訳ありません。
75: (ｵｯﾍﾟｹ Srbb-O+NZ) 2020/09/05(土)16:25 ID:STsU3nz1r(1) AAS
>>64
インデックスじゃないの？
76: (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)16:34 ID:BMRcPhN/d(1) AAS
>>74
列がわかったなら行もわかるはずだが…
77: (ﾜｯﾁｮｲ 7f8e-+abr) 2020/09/05(土)17:24 ID:wG6iKMy+0(2/2) AAS
>>74
そろそろ消えろ
78(2): (ﾄﾞｺｸﾞﾛ MM1f-aCGe) 2020/09/05(土)17:30 ID:k1PkCOGDM(1) AAS
>>74
相対(a2,行,列)
0の場合は省略可なので
相対(a2,行)とか相対(a2,,列)でもいい
79: (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)17:54 ID:HmyJ6FBVd(1) AAS
>>78
それはvbaのoffsetの構文であって設問の問題文とは関係ないな
80: (ﾜｯﾁｮｲ 27e5-EsR/) 2020/09/05(土)18:10 ID:BBnzOe5t0(1) AAS
>>62
の質問内容がひどすぎて
誰もくいつかないなｗ
81: (ｱｳｱｳｴｰ Sa1f-16Fo) 2020/09/05(土)18:23 ID:eBP4WmWUa(1) AAS
お金が発生するわけでもないし
82: 63 (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/05(土)18:58 ID:ZUfl2WLX0(2/2) AAS
>>78
ありがとうございます。
とても助かりました。
83: (ﾜｯﾁｮｲ bff7-biH0) 2020/09/05(土)20:42 ID:XhaSpdgL0(1) AAS
>>62
Range(Rows(Range("A1").Value), Rows(Range("B1").Value)).Rows.Hidden = True
84(1): (ﾜｯﾁｮｲ c7da-XrX+) 2020/09/06(日)09:47 ID:cKQMszzk0(1/2) AAS
>>57
値で貼り付けるなら、後から
.NumberFormatLocal = "yyyy/m/d h:mm;@"
85(1): (ﾜｯﾁｮｲ c7da-XrX+) 2020/09/06(日)09:49 ID:cKQMszzk0(2/2) AAS
>>63
答えは簡単だが、質問が難しすぎる。
86: 63 (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/06(日)14:01 ID:spMqG8Fw0(1/3) AAS
>>85
上手く質問できなくて申し訳ありません。
全体的な単語の一つ一つの意味が知りたかったのです。
お手隙ならばで構わないのですが、
外部ﾘﾝｸ[html]:www.fe-siken.com
この問題の設問3の重みパラメータというのがどう作用して出力Zの値になるのか教えて頂けないでしょうか。
87: 63 (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/06(日)14:02 ID:spMqG8Fw0(2/3) AAS
あ、すみません。問題よく読んでませんでした。
これについてはレス直後理解しました。
ごめんなさい（ ;ᯅ; ）
88(2): 63 (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/06(日)14:27 ID:spMqG8Fw0(3/3) AAS
外部ﾘﾝｸ[html]:www.fe-siken.com
この設問1の答えなんですが、この文でどうして結合とか保護者の氏名と住所を抽出するのですか？
89: (ﾜｯﾁｮｲ 2763-3NJ+) 2020/09/06(日)14:33 ID:PpfBKGYq0(1) AAS
>>84
これで出来ました
ありがとうありがとうありがとううううううううーー
90(1): (ﾜｯﾁｮｲ 7f8e-+abr) 2020/09/06(日)18:43 ID:Mql9n0EK0(1) AAS
>>88
死ね
91(1): (ﾜｯﾁｮｲ 4701-n8ne) 2020/09/07(月)05:30 ID:OoqPbQfP0(1) AAS
>>90
お前が死ね
ゴミ山猿の屑野郎
92: (ﾜﾝﾄﾝｷﾝ MMab-AmFM) 2020/09/07(月)12:55 ID:ZbJzmFKoM(1) AAS
>>91
内容も読まずに書くなよクズ。SQLのことだろうが。
93(1): (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/07(月)18:18 ID:R5ozSk7c0(1) AAS
ここで質問したらダメだったみたいですね
該当スレとかあるのでしょうか
94: (ｽﾌﾟｯｯ Sd7f-Lyqo) 2020/09/07(月)18:26 ID:aZP2Fcscd(1) AAS
>>93
2chｽﾚ:welfare
95: (ｱｳｱｳｴｰ Sa1f-16Fo) 2020/09/07(月)18:43 ID:K46ocmR8a(1) AAS
>>88
これをどこで聞けばいいのかもわからなかったらFE受かるの難しいよ…
96: (ﾃﾃﾝﾃﾝﾃﾝ MM8f-Ccsn) 2020/09/07(月)20:07 ID:Yu9E5X6OM(1/3) AAS
VBA勉強しはじめて、ようやくOutlook連携とかzip圧縮とかやり始めたんだけど
Excelそのものの操作に関する情報と比べて、参考に出来る情報の質も量もガクッと落ちた気がする
やっぱ話題のpythonに切替えたほうが悩まずやれるのだろうか
97: (ﾃﾃﾝﾃﾝﾃﾝ MM8f-Ccsn) 2020/09/07(月)20:09 ID:Yu9E5X6OM(2/3) AAS
質も量も、っていうのはノンプログラマーの自分が探せる範囲って意味です
98: (ﾜｯﾁｮｲ e7e6-dQ4P) 2020/09/07(月)20:22 ID:sgrgY4Mk0(1/2) AAS
zip.exe叩けばええやろ
99: (ﾜｯﾁｮｲ 5f6d-4jJb) 2020/09/07(月)20:51 ID:/DR3/4oV0(1) AAS
目の前に答えが書いてあっても理解できない、答えだと気付けない
これが「馬鹿には無理」の意味
100: (ﾃﾃﾝﾃﾝﾃﾝ MM8f-Ccsn) 2020/09/07(月)21:00 ID:Yu9E5X6OM(3/3) AAS
半年ROMって勉強します押忍押忍押忍
101: (ｵｲｺﾗﾐﾈｵ MM4f-kGCs) 2020/09/07(月)21:22 ID:JIC+p5t3M(1) AAS
何をしたいかによるけど、Windowsの操作の自動化っていう範疇ならPowerShellおすすめ
Comオブジェクトも使えるよ
102(1): (ｱｳｱｳｴｰ Sa1f-yOpk) 2020/09/07(月)21:38 ID:J1GBImUha(1) AAS
なにがおかしいの？
Sub func()
Dim url As String: url = "外部ﾘﾝｸ:e-hentai.org
Dim buffer As String: buffer = ""
Dim objLinks As Object
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.navigate (url)
Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
省14
103(1): (ﾜｯﾁｮｲ bff7-BGL1) 2020/09/07(月)22:46 ID:qahfABoQ0(1) AAS
IEはもう無くなるよ
104: (ﾜｯﾁｮｲ 27ce-n8ne) 2020/09/07(月)22:49 ID:744b2nM10(1/3) AAS
>>102
Dim objLinks As String
105(2): (ﾜｯﾁｮｲ bfc9-XrX+) 2020/09/07(月)22:54 ID:VQNIMFGd0(1/2) AAS
>>103
IEの代替え何使ったらいいの？
106(1): (ﾜｯﾁｮｲ 27ce-n8ne) 2020/09/07(月)23:07 ID:744b2nM10(2/3) AAS
>>105
データをダウンロードするだけならブラウザを使わずに直接ネットアクセスした方が早くて簡単
色んな方法があるけどXMLHTTPとかWinHttpRequestとか調べてみ
107(1): (ﾜｯﾁｮｲ bfc9-XrX+) 2020/09/07(月)23:17 ID:VQNIMFGd0(2/2) AAS
>>106
ありがとうございます
'JavaScriptを実行しFormを送る処理
objIE.Navigate "JavaScript:doAction('/文字列')"
みたいなことしないとアクセスできないサイトのデータが取得したいのですが
他に方法ありますか？
108: (ﾜｯﾁｮｲ e7e6-n8ne) 2020/09/07(月)23:22 ID:sgrgY4Mk0(2/2) AAS
JavaScriptを読んで何やってるか調べろ
109: (ﾜｯﾁｮｲ 27ce-n8ne) 2020/09/07(月)23:49 ID:744b2nM10(3/3) AAS
>>107
Form送信は単純なHTTPアクセスで代替できるケースが多いから、これもブラウザを使う必要はない
てか、WEBの構造はVBA関係ないし
上下前次1-新書関写板覧索設栞歴
あと 893 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.037s