販売王とのデータ連携VBA インボイス3点伝票日付版

Option Explicit
Dim Canc As Long

Sub データを開く()
    Dim FD As FileDialog, f As Variant
    Canc = 0
        Set FD = Application.FileDialog(msoFileDialogOpen)
        With FD
            .ButtonName = "開く"
                With .Filters
                        .Clear
                        .Add "テキストファイル", "*.txt; *.csv", 1
                        .Add "Excelブック" _
                                    , "*.xls; *.xlsx; *.xlsm", 2
                End With
'表示するフォルダを指定します
            .InitialFileName = ThisWorkbook.Path & "\販売ソフト出力\"
                MsgBox "利用できるのは、" & vbCrLf & _
                    "csv形式またはエクセル形式のファイルになります。" _
                    , vbInformation, "インボイス見積納品請求3点日付版作成"
            If .Show = True Then
                If Right(.SelectedItems(1), 3) = "txt" Then
                     MsgBox "txt形式では利用できません。", vbExclamation, _
                     "インボイス見積納品請求3点日付版作成"
                     Exit Sub
                Else
                    .Execute
                End If
            Else
'[キャンセル]ボタンがクリックされた
                MsgBox "キャンセルが押されました", vbExclamation, _
                "インボイス見積納品請求3点日付版作成"
                Canc = 1
                Exit Sub
            End If
        End With
End Sub

Sub データ転記()
'変数を宣言する
    Dim MNSBook As Workbook
    Dim SotSheet As Worksheet
    Dim CosNo, k, x, j As Long
    Dim csvRow, SotRow, GS As Long
    Dim Res(1 To 7) As Variant
    Dim CsvBook As Workbook
    Dim CsvSheet As Worksheet
        Set MNSBook = ThisWorkbook
        Set SotSheet = ThisWorkbook.Worksheets("外税計算")
'インボイス3点操作パネルのデータの表示形式を数値化して判断する
        CosNo = Val(StrConv((インボイス3点操作パネル.顧客番号.Value), _
                    vbNarrow))
        If CosNo = 0 Then
            MsgBox "顧客番号を入力してください。" _
                & vbCrLf & "全半角数字のみです。" & vbCrLf & _
                "文字と数字の複合番号は使えません。", _
                vbInformation, "インボイス見積納品請求3点日付版作成"
            Exit Sub
        End If
        Call Module6.データを開く
        If Canc = 1 Then
            MsgBox "データファイル選択エラーです。" & vbCrLf & _
                        "最初からやり直してください。", vbInformation, _
                        "インボイス見積納品請求3点日付版作成"
            Exit Sub
        End If
'選択したファイルが開かれてアクティブ状態になっている
        Set CsvBook = ActiveWorkbook
        Set CsvSheet = ActiveSheet
'「外税計算」の残っている以前のデータを消去
        With SotSheet
            .Activate
            .CheckBoxes.Delete
            With .Range(Range("A2"), Range("A2").SpecialCells _
                        (xlCellTypeLastCell))
                .ClearContents
            End With
        End With
'販売王の選択データファイルの必要部分をデータ取り出し
        CsvBook.Activate
        With CsvSheet
            .Select
            csvRow = .Cells(Rows.Count, 1).End(xlUp).Row
            k = 0
            For x = 2 To csvRow
                If .Range("K" & x).Value = CosNo Then
                    Res(1) = k + 1
                    Res(2) = Range("B" & x).Value
                    Res(3) = .Range("AK" & x).Value
                    Res(4) = .Range("AU" & x).Value
                    Res(5) = "冊"
                    Res(6) = .Range("AW" & x).Value
                    Res(7) = Res(4) * Res(6)
'取り出しデータを「外税計算」に転記
                    For j = 1 To 7
                        With SotSheet
                            If j = 1 Then
                                .Cells(k + 2, j) = Res(j)
                            Else
                                .Cells(k + 2, j + 2) = Res(j)
                            End If
                        End With
                    Next j
                    k = k + 1
                End If
            Next x
        End With
        CsvBook.Close False
'「作業シート」で合計金額を計算
        With SotSheet
            .Select
            .Columns("D").AutoFit
            SotRow = .Cells(Rows.Count, 1).End(xlUp).Row
            GS = WorksheetFunction.Sum(.Range(Cells(2, 8), _
                        .Cells(SotRow, 8)))
            .Cells(SotRow + 1, 7) = "合計"
            .Cells(SotRow + 1, 8) = GS
        End With
        MsgBox "ソリマチからのデータを「外税計算」に移しました。" _
        & vbCrLf & "全商品、外税単価になる様に再計算してください。" _
        , vbInformation, "インボイス見積納品請求3点日付版作成"
End Sub