Sub テーブルを更新する()
    ThisWorkbook.Worksheets("Sheet1") _
        .ListObjects("T_1月営業成績") _
        .QueryTable.Refresh BackgroundQuery:=False
End Sub
