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
Descargar Tipo de Cambio Sunat DsigExpress
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