+ Reply to Thread
Results 1 to 4 of 4

Download a file automatically from app.box.com link.

  1. #1
    Forum Contributor
    Join Date
    11-27-2009
    Location
    Austin, Texas
    MS-Off Ver
    Excel 2013 & 2016
    Posts
    409

    Download a file automatically from app.box.com link.

    Hi All,
    I am looking for a way to automatically download are file from app.box.com. I have being trying using excel VBA code; I usually get an email saying there is a new version available. I can get vba to automatically select the latest email in an outlook folder, to get the web address from within the email and from there to open the web page. That's as far as I can get with my knowledge. Has anyone any clues or perhaps another way of doing it? I want to download the file from the link to a folder on my hard drive.

    It may be of course, that such drop-boxes are designed to stop this kind of interaction.
    ==========
    Bigroo1958
    Austin, Texas
    ==========

  2. #2
    Forum Contributor
    Join Date
    11-27-2009
    Location
    Austin, Texas
    MS-Off Ver
    Excel 2013 & 2016
    Posts
    409

    Re: Download a file automatically from app.box.com link.

    Bump this message

  3. #3
    Forum Contributor
    Join Date
    11-27-2009
    Location
    Austin, Texas
    MS-Off Ver
    Excel 2013 & 2016
    Posts
    409

    Re: Download a file automatically from app.box.com link.

    Any takers on this message?

    Here is the code I am using.

    Sub IE_Refresh2()

    Dim URL As String
    Dim IE As SHDocVw.InternetExplorer
    Dim HTMLdoc As HTMLDocument
    Dim refreshLink As HTMLLinkElement
    Dim i As Integer

    URL = "https://app.box.com/s/2hnt5hlk17xofi3bfn2q"

    Set IE = New SHDocVw.InternetExplorer

    With IE
    .Visible = True
    .Navigate URL
    While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
    Set HTMLdoc = .Document
    End With

    'Get the Refresh link

    Set refreshLink = Nothing
    i = 0
    While i < HTMLdoc.Links.Length And refreshLink Is Nothing
    If HTMLdoc.Links(i).innerText = "Refresh" Then Set refreshLink = HTMLdoc.Links(i)
    i = i + 1
    Wend

    If Not refreshLink Is Nothing Then

    'Click Refresh and wait for it to finish

    refreshLink.Focus
    refreshLink.Click
    Do
    DoEvents
    'Sleep 200
    Loop Until refreshLink.parentElement Is Nothing

    MsgBox "Done"
    End If

    End Sub
    Any assistance would be appreciated, or perhaps another way of doing, so I can download the file to my computer?

    Thanks

  4. #4
    Forum Contributor
    Join Date
    11-27-2009
    Location
    Austin, Texas
    MS-Off Ver
    Excel 2013 & 2016
    Posts
    409

    Re: Download a file automatically from app.box.com link.

    Bump back into the list.
    Anyone have an idea how to do this?

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Macro to download a file by click a button on internet link
    By NoreenDeasy in forum Excel Programming / VBA / Macros
    Replies: 5
    Last Post: 10-09-2014, 12:19 PM
  2. Download Zip File Automatically Through Excel, Zip File is Empty
    By DAK266 in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 05-20-2013, 04:49 PM
  3. Open xls file via URL link, and automatically filter on a switch or value in the link?
    By linksavage in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 03-13-2013, 02:27 PM
  4. Download the File from link
    By simi in forum Excel Programming / VBA / Macros
    Replies: 12
    Last Post: 09-12-2012, 01:32 PM
  5. Replies: 0
    Last Post: 11-03-2005, 08:10 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1