Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy .xls betwen local disk and https:// location
I'm trying to find a way to copy files back and forth between my local disk
and a https:// network location that requires ID an password. After some research through this forum I was able to find some pieces of code that allowed me to save a file to the network via "Save As". The problem is that I'd like to keep the same time stamp between the local file and its copy in the network... I've tried FileCopy, Copyfile, etc... nothing seems to work when I try to copy the file instead of doing "Save As". Any suggestions? Beow you'll find the code I have so far: Sub test2() Dim source As String Dim destination As String Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = False .Navigate "https://myprotectedsite.com/" Do Until .ReadyState = 4 DoEvents Loop Set ipf = .Document.all.Item("_ctl1:email") If ipf Is Nothing Then GoTo skiplogin: ipf.Value = " Set ipf = .Document.all.Item("_ctl1:password") ipf.Value = "mypwd" Set ipf = .Document.all.Item("_ctl1:SigninBtn") Do Until .ReadyState = 4 DoEvents Loop ipf.Click Do Until .ReadyState = 4 DoEvents Loop End With skiplogin: source = "C:\Mylocalfolder\test.xls" destination = "https://myprotectedsite.com/test.xls" FileCopy source, destination ' - Run time error 52 - Bad file name or number ie.Quit End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy .xls betwen local disk and https:// location
Hi, I don't think you can do a copy or filecopy to a http server. FTP maybe. Windows does have a "web folders" add-on. I think it was an Office add-on. You would need to be accessing the web server as a remote drive. John "avardaneg" wrote in message ... I'm trying to find a way to copy files back and forth between my local disk and a https:// network location that requires ID an password. After some research through this forum I was able to find some pieces of code that allowed me to save a file to the network via "Save As". The problem is that I'd like to keep the same time stamp between the local file and its copy in the network... I've tried FileCopy, Copyfile, etc... nothing seems to work when I try to copy the file instead of doing "Save As". Any suggestions? Beow you'll find the code I have so far: Sub test2() Dim source As String Dim destination As String Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = False .Navigate "https://myprotectedsite.com/" Do Until .ReadyState = 4 DoEvents Loop Set ipf = .Document.all.Item("_ctl1:email") If ipf Is Nothing Then GoTo skiplogin: ipf.Value = " Set ipf = .Document.all.Item("_ctl1:password") ipf.Value = "mypwd" Set ipf = .Document.all.Item("_ctl1:SigninBtn") Do Until .ReadyState = 4 DoEvents Loop ipf.Click Do Until .ReadyState = 4 DoEvents Loop End With skiplogin: source = "C:\Mylocalfolder\test.xls" destination = "https://myprotectedsite.com/test.xls" FileCopy source, destination ' - Run time error 52 - Bad file name or number ie.Quit End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA to save a web page to local disk | Excel Discussion (Misc queries) | |||
Download files from 3.5 disk in excel but system said disk need fo | Excel Discussion (Misc queries) | |||
COPY DISK TO EXCEL | New Users to Excel | |||
Inconsistent Behavior on Web vs. Local Disk | Excel Programming | |||
Clear destination, then copy betwen workbooks | Excel Programming |