Excel総合相談所 62 - 暇つぶし2ch

Excel総合相談所 62 at BSOFT

140:名無しさん＠そうだ選挙にいこう
07/11/21 20:05:18
>>131
これで一応希望の動作はできるから、あとは自分の作ったブックに合わせてカスタマイズしてね。
VBAは「いいえ」になってるけど、ブラウザの操作はVBAを使わないと無理だから、がんばって勉強してね。

Sub Kuroneko_check()

' IEオブジェクトのインスタンス化
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True ' ブラウザを開く

' クロネコのサイトに飛ぶ
objIE.Navigate "URLﾘﾝｸ(toi.kuronekoyamato.co.jp)
Do While objIE.Busy = True 'ページが表示されるまで待つ
DoEvents
Loop

' 伝票番号をセルA1から取得してフォームにセット
objIE.document.all.number01.Value = Range("A1").Value

' テスト用仮データをセット (動作確認用)
objIE.document.all.number01.Value = "1111-2222-9993"

' 問い合わせボタンをクリック
objIE.document.all.sch.Click

End Sub

次ページ

続きを表示

1を表示