{"id":3830,"date":"2013-09-17T12:00:34","date_gmt":"2013-09-17T03:00:34","guid":{"rendered":"http:\/\/fujiitoshiki.com\/improvesociety\/?p=3830"},"modified":"2017-04-27T16:09:18","modified_gmt":"2017-04-27T07:09:18","slug":"post-3830","status":"publish","type":"post","link":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3830","title":{"rendered":"\u8907\u6570\u306eExcel\u30d6\u30c3\u30af\u306e\u5168\u30b7\u30fc\u30c8\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3059\u308b"},"content":{"rendered":"

\u3000\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u306e\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u308b\u30b7\u30fc\u30c8\u3092\u624b\u4f5c\u696d\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u89e3\u9664\u3059\u308b\u306e\u306f\u624b\u9593\u304c\u304b\u304b\u308a\u307e\u3059\uff0eVBA \u304b\u3089 GetOpenFilename \u30e1\u30bd\u30c3\u30c9\u3067\u8907\u6570\u306e\u30d6\u30c3\u30af\u3092\u6307\u5b9a\u3057\uff0c\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u304b\u3089\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3059\u308b\u65b9\u6cd5\u3067\u3059\uff0e<\/p>\n

Option Explicit\r\n\r\nSub RemoveAutoFilter()\r\n    Dim Wb      As Workbook\r\n    Dim Sh      As Worksheet\r\n    Dim myPath  As Variant\r\n    Dim i       As Long\r\n    Application.ScreenUpdating = False\r\n    myPath = Application.GetOpenFilename(FileFilter:=\"Microsoft Excel\u30d6\u30c3\u30af,*.xls?\", MultiSelect:=True)\r\n    If TypeName(myPath) = \"Boolean\" Then Exit Sub\r\n    For i = LBound(myPath) To UBound(myPath)\r\n        Set Wb = Workbooks.Open(myPath(i))\r\n        For Each Sh In Wb.Worksheets\r\n            If Sh.AutoFilterMode Then\r\n                Sh.AutoFilterMode = False\r\n            End If\r\n        Next Sh\r\n        Wb.Save\r\n        Wb.Close\r\n    Next i\r\n    Application.ScreenUpdating = True\r\nEnd Sub\r\n<\/pre>\n
\u53c2\u7167\uff1a
\nApplication.GetOpenFilename \u30e1\u30bd\u30c3\u30c9 (Excel)<\/a><\/p>\n