Connect to intranet
 

Hi
I am using code to log in our intranet
That works perfectly, but trouble is: I must insert my password manually.
How can I use vba to insert password automaticcaly.
I use code below
Sub TEST_UpDate()
Dim strFolderName As String
Dim Workbook As Workbooks


strFolderName = "Z:\Test"

On Error GoTo Err_Handler

Dim strFileName
With Application.FileSearch
..NewSearch
..LookIn = strFolderName
..Filename = ".CSV"
..SearchSubFolders = True
..Execute SortBy:=msoSortBySize

..LookIn = strFolderName
..Filename = ".CSV"
..SearchSubFolders = True
If .Execute(msoSortByLastModified, msoSortOrderDescending) 0 Then
strFileName = .FoundFiles(1)

Application.Workbooks.Open strFileName


End If
End With
Exit_Sub:
Exit Sub
Err_Handler:
Resume Exit_Sub
End Sub

Connect to intranet
 

What do you mean "intranet"? Is it a website? And you have to log in
to access it? Doesn't your co. have network shares that can be mapped
to local drives? Help us understand.


--JP


On Mar 19, 10:37*am, Jaan wrote:
Hi
I am using code to log in our intranet
That works perfectly, but trouble is: I must insert my password manually.
How can I use vba to insert password automaticcaly.
I use code below
Sub TEST_UpDate()
Dim strFolderName As String
Dim Workbook As Workbooks

strFolderName = "Z:\Test"

On Error GoTo Err_Handler

Dim strFileName
With Application.FileSearch
.NewSearch
.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
.Execute SortBy:=msoSortBySize

.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
If .Execute(msoSortByLastModified, msoSortOrderDescending) 0 Then
strFileName = .FoundFiles(1)

Application.Workbooks.Open strFileName

End If
End With
Exit_Sub:
Exit Sub
Err_Handler:
Resume Exit_Sub
End Sub

Connect to intranet
 

Hi JP
Sorry for my unfinished definition
Yes we have shared network drive and the "Z" is it and I have access to log
in to it
I hope you understand what I mean and sorry for my english.Its not my daily
language


"JP" kirjutas:

What do you mean "intranet"? Is it a website? And you have to log in
to access it? Doesn't your co. have network shares that can be mapped
to local drives? Help us understand.


--JP


On Mar 19, 10:37 am, Jaan wrote:
Hi
I am using code to log in our intranet
That works perfectly, but trouble is: I must insert my password manually.
How can I use vba to insert password automaticcaly.
I use code below
Sub TEST_UpDate()
Dim strFolderName As String
Dim Workbook As Workbooks

strFolderName = "Z:\Test"

On Error GoTo Err_Handler

Dim strFileName
With Application.FileSearch
.NewSearch
.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
.Execute SortBy:=msoSortBySize

.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
If .Execute(msoSortByLastModified, msoSortOrderDescending) 0 Then
strFileName = .FoundFiles(1)

Application.Workbooks.Open strFileName

End If
End With
Exit_Sub:
Exit Sub
Err_Handler:
Resume Exit_Sub
End Sub

Connect to intranet
 

Not a problem Jaan. But I'm confused -- your company makes you log in
to access internal documents? You work there!

Sorry I can't help any further.

--JP



On Mar 19, 4:28*pm, Jaan wrote:
Hi JP
Sorry for my unfinished definition
Yes we have shared network drive and the "Z" is it and I have access to log
in to it
I hope you understand what I mean and sorry for my english.Its not my daily
language

"JP" kirjutas:



What do you mean "intranet"? Is it a website? And you have to log in
to access it? Doesn't your co. have network shares that can be mapped
to local drives? Help us understand.

--JP

On Mar 19, 10:37 am, Jaan wrote:
Hi
I am using code to log in our intranet
That works perfectly, but trouble is: I must insert my password manually.
How can I use vba to insert password automaticcaly.
I use code below
Sub TEST_UpDate()
Dim strFolderName As String
Dim Workbook As Workbooks

strFolderName = "Z:\Test"

On Error GoTo Err_Handler

Dim strFileName
With Application.FileSearch
.NewSearch
.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
.Execute SortBy:=msoSortBySize

.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
If .Execute(msoSortByLastModified, msoSortOrderDescending) 0 Then
strFileName = .FoundFiles(1)

Application.Workbooks.Open strFileName

End If
End With
Exit_Sub:
Exit Sub
Err_Handler:
Resume Exit_Sub
End Sub- Hide quoted text -

- Show quoted text -

Connect to intranet
 

Hi again
Thanks JP for your responde. I hope some solution must be.

I have discussed with our IT man and he told, that "Z:" is mapped network
drive.
To enter there I have username and password
Are this issue will kind of change my problem

Regards




"JP" kirjutas:

Not a problem Jaan. But I'm confused -- your company makes you log in
to access internal documents? You work there!

Sorry I can't help any further.

--JP



On Mar 19, 4:28 pm, Jaan wrote:
Hi JP
Sorry for my unfinished definition
Yes we have shared network drive and the "Z" is it and I have access to log
in to it
I hope you understand what I mean and sorry for my english.Its not my daily
language

"JP" kirjutas:



What do you mean "intranet"? Is it a website? And you have to log in
to access it? Doesn't your co. have network shares that can be mapped
to local drives? Help us understand.

--JP

On Mar 19, 10:37 am, Jaan wrote:
Hi
I am using code to log in our intranet
That works perfectly, but trouble is: I must insert my password manually.
How can I use vba to insert password automaticcaly.
I use code below
Sub TEST_UpDate()
Dim strFolderName As String
Dim Workbook As Workbooks

strFolderName = "Z:\Test"

On Error GoTo Err_Handler

Dim strFileName
With Application.FileSearch
.NewSearch
.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
.Execute SortBy:=msoSortBySize

.LookIn = strFolderName
.Filename = ".CSV"
.SearchSubFolders = True
If .Execute(msoSortByLastModified, msoSortOrderDescending) 0 Then
strFileName = .FoundFiles(1)

Application.Workbooks.Open strFileName

End If
End With
Exit_Sub:
Exit Sub
Err_Handler:
Resume Exit_Sub
End Sub- Hide quoted text -

- Show quoted text -