DsigExpress Tipo de Cambio Sunat en una Biblioteca de Clases (dll), el Uso de esta herramienta es muy sencillo y los pasos de configuración te los Explico más Abajo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Dim dsigTC As New DsigTipoCambio Sub ConsultaTc() Dim x As Byte If [I6] = Empty Or [J6] = Empty Then Exit Sub [C6:F36].ClearContents With dsigTC Call .LoadTipoCambio([I6], [J6]) For x = 1 To 31 If .Matriz_Fecha(x) <> "" Then Cells(x + 5, 3) = x 'numeracion opcional Cells(x + 5, 4).NumberFormat = "@" 'Es Necesario para Convertir (mm/dd/yyyy) a (dd/mm/yyyy) Cells(x + 5, 4) = .Matriz_Fecha(x) 'Array Fecha Tipo de Cambio Cells(x + 5, 4).NumberFormat = "dd/mm/yyyy" 'Conversión a Fecha Cells(x + 5, 4) = CDate(Cells(x + 5, 4)) 'Formato de Fecha Cells(x + 5, 5) = .Matriz_Compra(x) 'Array Tipo Cambio Compra Cells(x + 5, 6) = .Matriz_Venta(x) 'Array Tipo Cambio Compra End If Next End With End Sub |
Es Necesario que Siempre Agregues las Variables Mes y Periodo en Formato de Texto dentro de la Función
Si No te carga la Biblioteca Regístrala en Windows te Dejo la Línea de Código mas Abajo
regsvr32 %SYSTEMROOT%\SysWOW64\DsigExpressTC.dll
Acerca del autor