下記のjavascriptのfileをエクセルVBAから立ち上げていますが、EXCEL VBAの中から実行したいと思ってるのですが、わかりません。やることは、VBAからホームページ内のパスワードを入力して、ページを進んでいくだけなのです。その最後の行きたいページをexcelVBAのコードの中で実行したいと思ってます。

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

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