VBA script to open link in new tab of currently opened IE

[TriFith]

Hello everyone,
I would need to open a link from form by a button, but I was able to successfully open only new IE window.
I would need to open new tab in currently opened IE window (that is because there is already logged in a user in ERP system - if new window is opened user has to log in again -> time consuming and not comfortable to do often)



currently used code:

Private Sub OpenJde_Click()
Dim Link As String
Dim LResponse As Integer


If (IsNull(JdeWo) Or JdeWo = "") Then
LRresponse = MsgBox("JDE WO není není vyplneno!", vbOKOnly, "Info")
Else
Link = "http://jde.fanuc.local/jde/ShortcutLauncher?OID=P90CD002_W90CD002B_M852T001&FormDSTmpl=|2|3|4|5|&FormDSData=|" & JdeWo & "|||&FormDSData=|6037701|||"


Set browser = CreateObject("InternetExplorer.Application")
   browser.Navigate (Link)
   browser.StatusBar = True
   browser.Toolbar = True
   browser.Visible = True
   browser.Resizable = True
   browser.AddressBar = False
   
End If


End Sub

any ideas to reach my goal?

Thanks for all advices!

[Homegrownandy]

http://www.ozgrid.com/forum/showthread.php?t=174692

Might Help.

[TriFith]

Hi, thank you for reply.
I have tried enumeration method and I have failed - I have to admit I am really beginner in VBA so maybe somewhere I am doing mistake...
My code is:

Enum BrowserNavConstants    navOpenInNewWindow = 0
End Enum




Public Sub OpenJde_Click()
Dim Link As String
Dim LResponse As Integer


If (IsNull(JdeWo) Or JdeWo = "") Then
LRresponse = MsgBox("JDE WO není není vyplneno!", vbOKOnly, "Info")
Else
Link = "http://jde.fanuc.local/jde/ShortcutLauncher?OID=P90CD002_W90CD002B_M852T001&FormDSTmpl=|2|3|4|5|&FormDSData=|" & JdeWo & "|||&FormDSData=|6037701|||"
testtext.Value = Link


Set browser = CreateObject("InternetExplorer.Application")
browser.Navigate (Link), BrowserNavConstants.navOpenInNewTab
browser.StatusBar = True
browser.Toolbar = True
browser.Visible = True
browser.Resizable = True
browser.AddressBar = False
   
End If


End Sub

Tihs code results in error call: Method or data member not found...


Also I have tried to use second hint with sub method used for opening IE...
Unfortunatelly once I have added OPTION EXPLICIT statement onto start of code, I am getting errors "Variable not defined".

May I ask you to try it and send me code as a hint?

Thank you a lot

[TriFith]

Hello guys,
closing threat however it was not solved completely...
I have created new feature in web based ERP interface that can handle login session for new windows of IE...

[TriFith]

Hello guys,
closing threat however it was not solved completely...
I have created new feature in web based ERP interface that can handle login session for new windows of IE...

I had to reopen this threat a ask you for help once more. My modifications made problems on other side, so I had to remove them.
So I have to get back to find solution in access database...

Can someone advice please? Basicly I need only open link in currently opened instance of IE, to keep login session.

Thank you.

[davegri]

Dim browser as object

Also, I never, NEVER code without Option Explicit.
It will point out syntax errors in your code and even highlight them! All syntax errors MUST be fixed in order to have cogent reliable code.

[davegri]

Please don't PM me or anyone else in response to posts about solutions. The purpose of this forum is to publicly make solutions available to all.
In response to your PM, this is what I was suggesting:

Public Sub OpenJde_Click()
Dim Link As String
Dim LResponse As Integer
Dim Browser as Object

If (IsNull(JdeWo) Or JdeWo = "") Then
LRresponse = MsgBox("JDE WO není není vyplneno!", vbOKOnly, "Info")
Else
Link = "http://jde.fanuc.local/jde/ShortcutLauncher?OID=P90CD002_W90CD002B_M852T001&FormDSTmpl=|2|3|4|5|&FormDSData=|" & JdeWo & "|||&FormDSData=|6037701|||"
testtext.Value = Link

As for Option Explicit, it should be the second line at the top of each module:

Option Compare Database
Option Explicit

[jwhite]

If you use application.followhyperlink("http://domain.com") it will open a new tab within the current browser window. Have you tried that?

Edit: Oops, didn't see first you are using VBScript?

[TriFith]

Please don't PM me or anyone else in response to posts about solutions. The purpose of this forum is to publicly make solutions available to all.
In response to your PM, this is what I was suggesting:

Public Sub OpenJde_Click()
Dim Link As String
Dim LResponse As Integer
Dim Browser as Object

If (IsNull(JdeWo) Or JdeWo = "") Then
LRresponse = MsgBox("JDE WO není není vyplneno!", vbOKOnly, "Info")
Else
Link = "http://jde.fanuc.local/jde/ShortcutLauncher?OID=P90CD002_W90CD002B_M852T001&FormDSTmpl=|2|3|4|5|&FormDSData=|" & JdeWo & "|||&FormDSData=|6037701|||"
testtext.Value = Link

As for Option Explicit, it should be the second line at the top of each module:

Option Compare Database
Option Explicit

Thanks for reply,
but your suggestion is still opening new window of IE with no active login session...
Any other ideas?

[davegri]

Link = "http://jde.fanuc.local/jde/ShortcutLauncher?OID=P90CD002_W90CD002B_M852T001&FormDSTmpl=|2|3|4|5|&FormDSData=|" & JdeWo & "|||&FormDSData=|6037701|||"

Any other ideas?

Sorry, No. There's no way for me to verify a local hyperlink.

[TriFith]

Link = "http://jde.fanuc.local/jde/ShortcutLauncher?OID=P90CD002_W90CD002B_M852T001&FormDSTmpl=|2|3|4|5|&FormDSData=|" & JdeWo & "|||&FormDSData=|6037701|||"

Sorry, No. There's no way for me to verify a local hyperlink.

Understood,
but you can change the adress for whatever you want.
google, if you want, or any other. Functionality will be same -> I´ve already tested with other target...