TFCJamieFay
Active Member
- Joined
- Oct 3, 2007
- Messages
- 480
Hi all,
I've got some code that opens a CSV file via a URL. The problem is that I want to open a large number of these files without a security warning message asking me if I'm really really sure I want to open the CSV file (which I am by the way!). Is there any way to bypass this without altering my registry? I'm using the following code (not all of it is here as there's quite a lot of it):
Many thanks,
Jamie
I've got some code that opens a CSV file via a URL. The problem is that I want to open a large number of these files without a security warning message asking me if I'm really really sure I want to open the CSV file (which I am by the way!). Is there any way to bypass this without altering my registry? I'm using the following code (not all of it is here as there's quite a lot of it):
Code:
'Find the last used row
intLastrow = Sheets("Daily_Data").Range("A" & Rows.Count).End(xlUp).Row
dtmMaxDate = Application.Max(Sheets("Daily_Data").Range("A2:A" & intLastrow)) + 1
intDatesNeeded = (Sheets("Settings").Range("Today").Value - dtmMaxDate)
Select Case intDatesNeeded
Case 0
MsgBox "The Daily_Data sheet is upto date."
Exit Sub
Case Else
ReDim arrDatesNeeded(0 To intDatesNeeded)
For intCounter = UBound(arrDatesNeeded) To LBound(arrDatesNeeded) Step -1
arrDatesNeeded(intCounter) = Sheets("Settings").Range("Today").Value - intCounter
strURLDate = Format(arrDatesNeeded(intCounter), "yyyymmdd")
strURL = _
"https://www.MyURL.com\" & strURLDate
ActiveWorkbook.FollowHyperlink Address:=strURL
Many thanks,
Jamie