I have the following code:
[code]
Sub CommandButton1_Click() 'create a new window
Dim web As String
Dim AccountCol As Integer
Account_Col = 5
Switch_Col = 7
web = Sheets("sheet3").Range("B1").Value
DoBrowse1 web
End Sub
Sub DoBrowse1(url As String)
Dim TargetFrame As String
Set BTS = CreateObject("Internetexplorer.Application")
BTS.Visible = True
BTS.Navigate url
End Sub
[/code]
Which opens up a page, this page I can programically navigate and open
another page
[code]
Private Sub CommandButton3_Click()
Dim i_CurRow As Integer
i_CurRow = ActiveCell.Row
'ActiveSheet.Cells(Row, col_ANONYMOUSCALL).Value = "YES"
T_Account = ActiveSheet.Cells(i_CurRow, Account_Col).Value
'T_Account = Sheets("Main").Cells(i_CurRow, Account_Col).Value
T_Switch = ActiveSheet.Cells(i_CurRow, Switch_Col).Value
If Not BTS Is Nothing Then
whatpage (BTS)
End If
If Not BTS.Visible = True Then
BTS.Visible = True
End If
With BTS.document.BTSQueryBean 'document name = "BTS" form name =
"BTSQueryBean"
.btsswitch.Value = Trim(T_Switch)
.ACCTNO.Value = Trim(T_Account)
.billingsys(1).Click
.submit '.Click
End With
' calls BTS Detail screen
'waiting (40)
WaitReady
waiting (2)
spage = BTS.document.DocumentElement.outerHTML
CMTSValue = BTS.document.BTSDetailBean.CMTS.Value
AcctValue = BTS.document.BTSDetailBean.ACCTNO.Value
End Sub
[/code]
All is good to this point, now, my next button, goes to a child of the
above page, and here is where I lose control.... The child is NOT
using the handle of the parent (BTS) so, how can I get data to and
from it? And submit the apply or close buttons
[code]
Private Sub FeaturesLine1_Click()
With BTS.document.BTSDetailBean 'document name = "BTS" form name =
"BTSDetailBean"
.featid0.Click 'This launched the features screen, which I
cannot control!<<<<<<
End With
End Sub
[/code]
This now opens a new windows, no scroll balls, or ie menus (modeless?)
screen, almost like a popup, that has data I need to retrieve and then
possibly change and finally hit the "APPLY and then the "CLOSE"
button.
the HTML for the child page is available, but here are some of the key
points:
Here is the calling button press:
<input type="button" value="FEATURES" class="button" id="featid0"
onClick="launchFeatures('0', 'RTPKCABTPS0', 'S8770350472355221-1',
'0', 'CTXG_INDIVIDUAL', 'CHANGE', 'null');">
Here is the code that actually launches the child
[code]
function launchFeatures(a, b, c, i, catg, act, racfpilot)
{
var m,u;
var tn = document.BTSDetailBean.subservtn[i].value;
if ( tn == null || tn == "" )
{
alert ("Please enter subscriber telephone number")
return false;
}
u = "./feature.jsp?subidx=" + a + "&clli=" + b + "&subid=" + c +
"&subtn=" + tn + "&catg=" + catg + "&action=" + act +
"&racfpilotcode=" + racfpilot;
MM_openBrWindow(u,'locked','scrollbars=1,resizable=1');
return true;
}
[/code]
The child page's form name is
<form name="BTSFeatureBean" method="POST" action="/bts/jsp/
btsfeat.do">
Any ideas how I could do this?
Thanks
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 5,000 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
