【条件式】テーブルのヘッダーが配列に該当するとき処理開始

Question

Sub date0320()

    Dim filePath As Variant

    filePath = Application.GetOpenFilename( _
    FileFilter:="Excelブック(*.xlsx;*.xlsm;*.xls;*.csv),*.xlsx; *.xlsm; *.xls; *.csv;", MultiSelect:=True)

'    Application.DisplayAlerts = False  '大量データのコピー時、注意ダイアログ出るときあるのでオフに
'    Application.ScreenUpdating = False 'チラつきをオフに


    '配列を取得--------------------------------------------------------------
    Dim bufArray1 As Variant
    Dim MyArray1 As Variant
    
    bufArray1 = Range("B6:S6")
    MyArray1 = WorksheetFunction.Index(bufArray1, 1, 0)  'MyArray1(1)~MyArray(18)まで要素が入っている
    ReDim Preserve MyArray1(17)  'MyArray1(1)から始まるのが嫌なのでRedimしてMyArray(0)～MyArray(17）に
    

    'テーブル用シートの作成--------------------------------------------------------------
    Dim ws As Worksheet  'Sheets("T_送信")
    Dim ws2 As Worksheet  'Sheets("送信")
    
    Worksheets.Add after:=Worksheets("送信")
    With ActiveSheet
            .Select
            .Name = "T_送信"
    End With
    Set ws = ThisWorkbook.Sheets("T_送信")
    Set ws2 = ThisWorkbook.Sheets("送信")
    
    
    'ループ処理--------------------------------------------------------------
    Dim i As Long
    Dim r As Long
    Dim wb As Workbook
    Dim LastRow1 As Long
    Dim FoundCell As Range

    For i = LBound(filePath) To UBound(filePath)
        Set wb = Workbooks.Open(filePath(i))
        
            'wbのデータをsheets("T_送信")をコピー--------------------------------------------------------------
            LastRow1 = wb.Sheets(1).Cells(Rows.Count, 2).End(xlUp).row  '最終行の取得（コピー側）
            wb.Sheets(1).Range("B4:X" & LastRow1).Copy  'タイトル行を除きコピー
            ws.Cells(2, 2).PasteSpecial xlPasteValues  '貼り付け
            Application.CutCopyMode = False
            ws.Activate
            ws.Range("B2").Select
            
            'sheets("T_送信")をテーブル化--------------------------------------------------------------
            With ws
                .Activate
                .Range("B2").Select  'selecetメソッドが被っているように見えるがなぜかこうしないとエラーでる
                .ListObjects.Add(xlSrcRange, Selection.CurrentRegion, , xlYes).Name = "T_送信"
                .Range("B2").ListObject.TableStyle = ""  '無地のテーブルへ
            End With
            
            'sheets("送信")をテーブル化--------------------------------------------------------------　’sheets("送信")もテーブル化することでペーストが簡単にできる
            With ws2
                .Activate
                .Range("B6").Select  'selecetメソッドが被っているように見えるがなぜかこうしないとエラーでる
                .ListObjects.Add(xlSrcRange, Selection.CurrentRegion, , xlYes).Name = "送信"
                .Range("B6").ListObject.TableStyle = ""  '無地のテーブルへ
            End With
            
            'sheets("T_送信")をデータをsheets("送信")へコピー--------------------------------------------------------------
            For r = LBound(MyArray1) To UBound(MyArray1)
                If ws2.Range("B2").ListObject.ListColumns(MyArray1(r)).HeaderRowRange = MyArray1 Then
                    With ws2
                        .Range("B2").ListObject.ListColumns(MyArray1(r)).DataBodyRange.Copy _
                        .Range("B6").ListObject.ListColumns(MyArray1(r)).DataBodyRange
                    End With
                End If
            Next r
            ws.Delete  'Sheets("T_送信")削除
        wb.Close False
    Next i



End Sub

上記コードの以下の部分がわかりません。

            'sheets("T_送信")をデータをsheets("送信")へコピー--------------------------------------------------------------
            For r = LBound(MyArray1) To UBound(MyArray1)
                If ws2.Range("B2").ListObject.ListColumns(MyArray1(r)).HeaderRowRange = MyArray1 Then

配列MyArray1には、セルから取得した文字列が確報されています。
ws2.Range("B6")はテーブルのヘッダーです。

テーブルのヘッダーが配列に該当するとき、処理開始としたいのですが、
オブジェクトはこのプロパティまたはメソッドをサポートしていませんとでます。

どうにかテーブルのヘッダーが配列に該当するときという条件式を書くことはできないのでしょうか

Comments

[hatena19]

「テーブルのヘッダーが配列に該当する」とは具体的にはどのようなことでしょうか。
「テーブルのヘッダーの値が」ということですか。
値は配列ではないので、比較することはできません。

[jinoji]

配列に該当すればListColumns(MyArray1(r)) は成立するかもしれないけど、MyArray1(r)の値が"ああああ"だったらエラーじゃない？

[jinoji]

HeaderRowRangeをFor Eachして、
MyArray1をCountIfするとかでどうですか？

[jinoji]

For r = LBound(MyArray1) To UBound(MyArray1) を活かすなら
If WorksheetFunction.CountIf(HeaderRowRange, MyArray1(r)) = 1 Then とかでしょうか

[Dis]

hatena19さん
テーブルのヘッダーの値がという意味でした。
比較できないことを知れてよかったです。ありがとうございました。

jinojiさん
上記のコードでためしたところ、うまく動きました。
このwsf.Countif(~) = 1 thenはよく使うコードなのでしょうか。
自分がどんなに頭をひねってもたどりけなかったコードなので非常に感動しています。
ありがとうございました。

Answer 1

jinojiさんのコードでうまくいきました。ありがとうございました。