人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

下記のjavascriptのfileをエクセルVBAから立ち上げていますが、EXCEL VBAの中から実行したいと思ってるのですが、わかりません。やることは、VBAからホームページ内のパスワードを入力して、ページを進んでいくだけなのです。その最後の行きたいページをexcelVBAのコードの中で実行したいと思ってます。
出来ればEXCEL VBAのサンプルコードを教えてほしいです。
var IE = WScript.CreateObject("InternetExplorer.Application");
IE.Visible = true;
IE.Navigate("http://dms.aaanet/aaa/GetPubliLogin.do");
while(IE.busy) ;
while(IE.Document.readyState != "complete") ;
IE.Document.all('loginForm').username.value = "15555893";
IE.Document.all('loginForm').password.value = "02222";
IE.Document.all('loginForm').submit();
while(IE.busy) ;
while(IE.Document.readyState != "complete") ;
var modelName ="C777";
var modelTitle="777";
var nodeId="2";
function switchPublication(modelName,modelTitle, nodeId){
IE.Document.publicationForm.modelName.value = modelName;
IE.Document.publicationForm.modelTitle.value = modelTitle;
IE.Document.publicationForm.tocId.value = modelName;
IE.Document.publicationForm.nodeId.value = nodeId;
IE.Document.publicationForm.submit();
}
switchPublication('C777','777', '2');
while(IE.busy) ;
while(IE.Document.readyState != "complete") ;
IE.Navigate("http://dms.aaaa/AAL/ViewAsPDF.do?WSb=C877");


●質問者: shotomo
●カテゴリ:コンピュータ
✍キーワード:777 ALL application Excel IE
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● HALSPECIAL
●100ポイント ベストアンサー

未確認ですが、こちらでいかがでしょう。

ExcelVBAで利用できるようにコンバートしました。

Main 関数をコールしてください。


Option Explicit

Dim IE

Public Sub Main()
 Set IE = CreateObject("InternetExplorer.Application")
 IE.Visible = True
 IE.Navigate "http://dms.aaanet/aaa/GetPubliLogin.do"
 Do While IE.Busy
 DoEvents
 Loop
 Do While IE.Document.ReadyState <> "complete"
 DoEvents
 Loop
 IE.Document.loginForm.username.Value = "15555893"
 IE.Document.loginForm.password.Value = "02222"
 IE.Document.loginForm.Submit
 Do While IE.Busy
 DoEvents
 Loop
 Do While IE.Document.ReadyState <> "complete"
 DoEvents
 Loop
 Dim modelName, modelTitle, nodeId
 modelName ="C777"
 modelTitle="777"
 nodeId="2"

 Call switchPublication("C777","777", "2")
 Do While IE.Busy
 DoEvents
 Loop
 Do While IE.Document.ReadyState <> "complete"
 DoEvents
 Loop
 IE.Navigate "http://dms.aaaa/AAL/ViewAsPDF.do?WSb=C877"
End Sub

Private Function switchPublication(modelName,modelTitle, nodeId)
 IE.Document.publicationForm.modelName.Value = modelName
 IE.Document.publicationForm.modelTitle.Value = modelTitle
 IE.Document.publicationForm.tocId.Value = modelName
 IE.Document.publicationForm.nodeId.Value = nodeId
 IE.Document.publicationForm.Submit
End Function

◎質問者からの返答

完璧に思うとおりに動きました。ありがとうございます

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ