Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Operning Intranet page | Excel Programming | |||
Hyperlinkingto an Intranet | Excel Programming | |||
Javascripting over an Intranet | Excel Programming | |||
VBA project in Intranet | Excel Programming | |||
Using add-in through intranet | Excel Programming |