こんにちは。いつも質問ばかりですみません。 Excelへの書き出し時に表をソートして、オートフィルタをかけようと 思い、以下のようなスクリプトをかいたのですが、どうしても With Selection.Auto.Filter の部分で ｢T003 型が一致しません。｣と出ます。一体、どこが悪いのでしょうか？全くわからなくて行き詰まっています。お願いします。 どなたかご存知の方、教えて下さい。m(__)m Dim Selection As Variant Set Selection = xlsSheet.Range("A1:D"+i) '矩形範囲に罫線を引く With Selection .Borders(1).LineStyle = 1 .Borders(2).LineStyle = 1 .Borders(3).LineStyle = 1 .Borders(4).LineStyle = 1 .Font.Name = "ＭＳ Ｐ明朝" 'フォントを指定 .Font.Size = 10 'フォントのサイズを指定 End With With Selection.AutoFilter '表をオートフィルタにかける .Field=2 .Criteria1="<>anzen/*" .Operator=xlAnd .Criteria2="<>mail/*" End With With selection.Sort '表をD列でソートする .Key1=xlsSheet.Range("D2") .Order1=xlAscending .Header=xlGuess .OrderCustom=1 .MatchCase =False .Orientation=xlTopToBottom .SortMethod=xlPinYin End With xlsSheet.Columns("A:D").EntireColumn.AutoFit 'ｾﾙの幅を自動修正 Call xlsBook.SaveAs(filename) 'ﾌｧｲﾙの保存
