Ibaraki Beta Weight

IBARAKI (BETA) WEIGHT SOLUTION

Solution to help Nishiyama team of Emar group transfer data faster for Ibaraki (Betta) weight from Bunka Shutter 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