TOUHOKU (PCA) WEIGHT SOLUTION

Solution to help 西山 team of エマール group transfer data faster for 茨城 (プレキャス) 重量 type normal 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, "BA158", choosen)
    End If
    DctVal(xlApp, "BA108", 5) ' D13
    DctVal(xlApp, "BA109", 3) ' D10
End Sub

PACKAGES

• Microsoft.Office.Interop.Excel » 15.0.4795.1001