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 <J...@discussions.microsoft.com> 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 <J...@discussions.microsoft.com> 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 -
>
>
|
Similar Threads
