Esta es la porcion de codigo
- Código: Seleccionar todo
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" ( _
ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub bajar_Click()
Dim j As Long
j = URLDownloadToFile(0, "http://www.bcra.gov.ar/pdfs/estadistica/pas2011.xls", _
"C:\Cotizador\pas2011.xls", 0, 0)
If j = 0 Then
Sheets("Cotizador").Unprotect "jaf"
MsgBox ("Se actualizaron las Tasas")
Sheets("Cotizador").Unprotect "jaf"
ActiveWorkbook.UpdateLink Name:="C:\Cotizador\pas2011.xls", Type:= _
xlExcelLinks
Sheets("Cotizador").Protect "jaf"
Else
MsgBox ("Error en la actualizacion de Tasa Badlar, reintente")
End If
End Sub
Y este es el error en 2010
