[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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関係ないし
110(5): (ﾜｯﾁｮｲ e761-Mi9Z) 2020/09/07(月)23:56 ID:UwONkXQv0(1) AAS
エクセル2010です。
上書き保存時にすべてのシートでA1セルを選択するようにしたいのですが、
Ctrl+S時とボタンのクリックイベントで挙動が違うことにハマってます。
1枚目シートにactiveXコントロールのボタンを配置し、VBAの構成は以下です。
1. シートモジュール : ボタンのクリックイベントにThisworkbook.saveだけを書いています。
2. ThisWorkbookモジュール : beforeSaveイベントで3を呼び出し。
3. 標準モジュール : 全シートのA1セルを選択するSubプロシージャ。ForEachでまわすだけ。
Ctrl+Sの際は2→3でうまくいきます。
ボタン押下の場合は、1→2→3と流れてはいるものの、なぜか各シートがactivateされなず、activeSheet.Range("A1").Selectが働きません。
1のクリックイベントから直接3を呼び出すのは、うまく行きます。
省2
111: (ﾄﾞｺｸﾞﾛ MM7b-aCGe) 2020/09/08(火)02:03 ID:weDKADyMM(1) AAS
>>110
for i= activeworkbook.worksheets.count to 1 step -1
apprication.goto activeworkbook.worksheets(i).range("a1")
next i
activeworkbook.save
スマホ打ちだから綴りミスはあるかも
112(1): (ｱｳｱｳｶｰ Sa9b-vRCQ) 2020/09/08(火)07:47 ID:vMdvrooDa(1/2) AAS
>>110
For eachで全シート回してるならActivateしなくても、
sh.Range("A1")で行けないか？
上下前次1-新書関写板覧索設栞歴
あと 890 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.019s