Excel\u3067\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u305f\u3089\u30d5\u30a9\u30eb\u30c0\u3092\u958b\u304f\u3088\u3046\u306b\u3059\u308bVBA\u3067\u3059\u3002<\/p>\n
Shell EXPLORERPATH &\u00a0OPENFOLDER , vbNormalFocus<\/p>\n
EXPLORERPATH\u2026\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u30fc\u306e\u30d1\u30b9
\nOPENFOLDER\u2026\u958b\u304d\u305f\u3044\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9<\/p>\n
\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u30fc\u306e\u30d1\u30b9\u306b\u306f\u3001\u4ee5\u4e0b\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/p>\n
C:\\Windows\\explorer.exe<\/p>\n
\u73fe\u5728\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u3042\u308b\u30d5\u30a9\u30eb\u30c0\u3092\u958b\u304f\u306b\u306f\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u66f8\u304d\u307e\u3059\u3002<\/p>\n
Shell “C:\\Windows\\explorer.exe ” & ActiveWorkbook.Path , vbNormalFocus<\/p>\n
\u203b\u6ce8\u610f\u3068\u3057\u3066\u306f\u3001explorer.exe “\u306e\u90e8\u5206\u306f\u3001”\u306e\u524d\u306b\u534a\u89d2\u306e\u30b9\u30da\u30fc\u30b9\u304c\u5165\u308b\u3053\u3068\u3067\u3059\u3002<\/p>\n
Excel\u30d5\u30a1\u30a4\u30eb\u306e\u3042\u308b\u30d5\u30a9\u30eb\u30c0\u3068\u306f\u5225\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u6307\u5b9a\u3057\u305f\u3044\u5834\u5408\u3082\u3042\u308b\u306e\u3067\u3001\u30d1\u30b9\u3092\u300c\u53c2\u7167\u300d\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u3066\u6307\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n
\u307e\u305a\u3001\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u4e0a\u306b\u300c\u53c2\u7167\u300d\u30dc\u30bf\u30f3\u3092\u914d\u7f6e\u3057\u307e\u3059\u3002\u3053\u3053\u3067\u306f\u540d\u524d\u3092SelectFolder\u3068\u3057\u307e\u3059\u3002<\/p>\n
Private Sub SelectFolder_Click()
\nDim InitialFolder As String
\nIf Worksheets(SHEETNAME).Range(FOLDER) <> “” Then
\nInitialFolder = Worksheets(SHEETNAME).Range(FOLDER)
\nElse
\nInitialFolder = ThisWorkbook.Path
\nEnd If
\nWith Application.FileDialog(msoFileDialogFolderPicker)
\n.InitialFileName = InitialFolder & “\\”
\nIf .Show = True Then
\nWorksheets(SHEETNAME).Range(FOLDER) = .SelectedItems(1)
\nEnd If
\nEnd With
\nEnd Sub<\/p>\n
SHEETNAME\u2026\u4efb\u610f\u306e\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u540d\u3002
\nFOLDER\u2026\u4efb\u610f\u306e\u30bb\u30eb\u540d\uff08A1\u306a\u3069\uff09\u3002
\n\u3053\u306e\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30bb\u30eb\u306b\u3001\u958b\u304d\u305f\u3044\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\u304c\u5165\u529b\u3055\u308c\u3066\u3044\u308c\u3070\u3001\u305d\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u958b\u304d\u3001\u4f55\u3082\u5165\u529b\u3055\u308c\u3066\u3044\u306a\u3051\u308c\u3070\u3001\u5b9f\u884c\u3057\u3066\u3044\u308bEXCEL\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u6240\u3092\u958b\u304d\u307e\u3059\u3002<\/p>\n
3\uff5e7\u884c\u76ee\u307e\u3067\u306eIf\u6587\u306e\u51e6\u7406\u306f\u3001\u300c\u53c2\u7167\u300d\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u305f\u3068\u304d\u306b\u6700\u521d\u306b\u958b\u304f\u30d1\u30b9\u3092\u6307\u5b9a\u3059\u308b\u51e6\u7406\u3067\u3059\u3002
\n\u300c\u53c2\u7167\u300d\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u305f\u3068\u304d\u306b\u3001\u958b\u304f\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\u304c\u7a7a\u6b04\u3060\u3063\u305f\u5834\u5408\u306b\u306f\u3001\u73fe\u5728\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u6240\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002
\n\u306a\u304a\u3001\u30d1\u30b9\u304c\u9593\u9055\u3063\u3066\u3044\u3066\u958b\u3051\u308b\u30d5\u30a9\u30eb\u30c0\u304c\u306a\u3044\u5834\u5408\u306b\u306f\u3001\u30c7\u30d5\u30a9\u30eb\u30c8\u3067\u30de\u30a4\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u304c\u958b\u304d\u307e\u3059\u3002<\/p>\n
8\u884c\u76ee\u4ee5\u964d\u306f\u3001\u300c\u53c2\u7167\u300d\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u3066\u958b\u304d\u305f\u3044\u30d5\u30a9\u30eb\u30c0\u3092\u9078\u3093\u3067\u300cOK\u300d\u3092\u62bc\u3057\u305f\u3089\u3001\u305d\u306e\u30d1\u30b9\u3092\u30bb\u30eb\uff08FOLDER\uff09\u306b\u30bb\u30c3\u30c8\u3057\u307e\u3059\u3002<\/p>\n
\u6b21\u306b\u3001\u300c\u30d5\u30a9\u30eb\u30c0\u3092\u958b\u304f\u300d\u30dc\u30bf\u30f3\u3092\u4f5c\u308a\u307e\u3059\u3002\u540d\u524d\u306fOpenLocalFolder\u306b\u3057\u307e\u3059\u3002<\/p>\n
Private Sub OpenLocalFolder_Click()
\nDim OpenFolder As String
\nOn Error GoTo ERR_HYOJI
\nOpenFolder = Worksheets(SHEETNAME).Range(FOLDER)
\nShell “C:\\Windows\\explorer.exe ” & OpenFolder , vbNormalFocus
\nExit Sub
\nERR_HYOJI:
\nMsgBox “\u51fa\u529b\u30d5\u30a9\u30eb\u30c0\u304c\u5b58\u5728\u3057\u307e\u305b\u3093\u3002”
\nEnd Sub<\/p>\n
4\u884c\u76ee\u3001OpenFolder\u306b\u306f\u3001SelectFolder\u3067\u6307\u5b9a\u3057\u305f\u30d1\u30b9\u3092\u30bb\u30c3\u30c8\u3057\u307e\u3059\u3002
\n\u3053\u308c\u3067\u3001SHEETNAME\u3068\u3044\u3046\u30b7\u30fc\u30c8\u306e\u3001FOLDER\u3068\u3057\u3066\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u306b\u5165\u529b\u3055\u308c\u3066\u3044\u308b\u30d1\u30b9\u3078\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u958b\u304d\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
Excel\u3067\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u305f\u3089\u30d5\u30a9\u30eb\u30c0\u3092\u958b\u304f\u3088\u3046\u306b\u3059\u308bVBA\u3067\u3059\u3002 Shell EXPLORERPATH &\u00a0OPENFOLDER , vbNormalFocus EXPLORERPATH…\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15],"tags":[],"class_list":["post-262","post","type-post","status-publish","format-standard","hentry","category-excel"],"views":126896,"_links":{"self":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/posts\/262","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=262"}],"version-history":[{"count":0,"href":"https:\/\/kuuur.net\/index.php?rest_route=\/wp\/v2\/posts\/262\/revisions"}],"wp:attachment":[{"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=262"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=262"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kuuur.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=262"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}