IBARAKI (BETA) WEIGHT SOLUTION

Solution to help 西山 team of エマール group transfer data faster for 茨城 (ベタ) 重量 from 文化シャッター partner.

MASK

CODE DEMO

''' <summary>
''' 運賃 (2トン車).
''' </summary>
''' <param name="xlApp">Excel Application.</param>
''' <param name="choosen">Selection.</param>
Friend Sub Fare(xlApp As Application, choosen As Double)
    If choosen = 1 Then
        DctVal(xlApp, "BA243", choosen)
    End If
    DctVal(xlApp, "BA157", 2) ' D16
    DctVal(xlApp, "BA158", 3) ' D13
    DctVal(xlApp, "BA159", 3) ' D10
End Sub

PACKAGES

• Microsoft.Office.Interop.Excel » 15.0.4795.1001