![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
マクロを登録したいのですが、マクロとして登録されません。
今作りたいのは、フォルダ内の全ファイルの名前を取得するマクロです。
私自身はVBAは書けないので、ネットに落ちているものを登録して使いたいです。
どんなマクロもなぜか登録(認識?)されずに困っています。
画面キャプチャのように、「マクロ」に何も表示されないんです。
以下のように作成しましたが、手順が間違っていますか?
対応を教えてください。
====
Excelを開く→開発タブからVisualBasicを選択→挿入→標準モジュール
→出てきた画面に、以下のコードを記述(参考:http://blog.jmiri.net/?p=1763)
Option Explicit
Sub setFileList(searchPath)
Dim startCell As Range
Dim maxRow As Long
Dim maxCol As Long
Set startCell = Cells(5, 2) 'このセルから出力し始める
startCell.Select
'シートをいったんクリア
maxRow = startCell.SpecialCells(xlLastCell).Row
maxCol = startCell.SpecialCells(xlLastCell).Column
Range(startCell, Cells(maxRow, maxCol)).ClearContents
Call getFileList(searchPath)
startCell.Select
End Sub
Sub getFileList(searchPath)
Dim FSO As New FileSystemObject
Dim objFiles As File
Dim objFolders As Folder
Dim separateNum As Long
'サブフォルダ取得
For Each objFolders In FSO.GetFolder(searchPath).SubFolders
Call getList(objFolders.Path)
Next
'ファイル名の取得
For Each objFiles In FSO.GetFolder(searchPath).Files
separateNum = InStrRev(objFiles.Path, "\")
'セルにパスとファイル名を書き込む
ActiveCell.Value = Left(objFiles.Path, separateNum - 1)
ActiveCell.Offset(0, 1).Value = Right(objFiles.Path, Len(objFiles.Path) - separateNum)
ActiveCell.Offset(0, 2).Value = FileDateTime(objFiles)
ActiveCell.Offset(0, 3).Value = Format((FileLen(objFiles) / 1024), "#.0")
ActiveCell.Offset(1, 0).Select
Next
End Sub
=====
ちなみに、マクロの設定で「有効」にしてあります。
初心者なので情報が足りないかもしれませんが、
詳しい方、どうぞよろしくお願いいたします。
![「マクロが登録できません」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/a/542710219_5a6ebe5a17501/M.png)
No.3ベストアンサー
- 回答日時:
#1の回答者ですが、ご質問のマクロを何度か検証してみましたが、あまり芳しくありません。
そこで、今、別の質問で、解答している私のオリジナルに内容に少し手を加えてみました。バグがどのぐらいあるかはまだ未検証ですが、一通り動いているようです。
標準モジュールで、マクロの呼出で、ボタンに登録してください。
検査するパス名は、書き出すシートの「C1」に貼り付けてください。
'//
Option Explicit
Dim i As Long
Sub FileSearchR()
Dim objFolder As Object
Dim objFS As Object
Dim FolderName As String
FolderName = Range("C1").Value
If FolderName = "" Or Dir(FolderName, vbDirectory) = "" Then
MsgBox "C1:フォルダー名を確認してください。", vbCritical
Exit Sub
End If
i = 2
ThisWorkbook.Activate
With ActiveSheet.UsedRange
If .Count > 2 Then
.Offset(1).Resize(.Rows.Count - 1).ClearContents
End If
End With
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(FolderName)
Application.ScreenUpdating = False
Cells(i, 1).Value = FolderName
Call ShowFiles(objFolder.Files) '親
Call ShowFolder(objFolder)
Application.ScreenUpdating = True
MsgBox "終了", vbInformation
End Sub
Sub ShowFiles(ByRef objFiles)
Dim f
If i <= 1 Then i = 2
For Each f In objFiles
i = i + 1
Cells(i, 2).Value = Dir(f)
Cells(i, 3).Value = FileDateTime(f)
Cells(i, 4).Value = Format$(FileLen(f) / 1024, "#,##0.0")
DoEvents
Next
End Sub
Sub ShowFolder(ByVal objFolder)
Dim objSubs As Object, oSb
Dim eaFiles As Object
Set objSubs = objFolder.SubFolders
For Each oSb In objSubs
Set eaFiles = oSb.Files
i = i + 1
Cells(i, 1).Value = oSb.Path
Call ShowFiles(eaFiles)
Call ShowFolder(oSb)
Next
End Sub
どうもありがとうございます!
そのままコピペして、フォルダ名取得が出来ました!
一番早くにご回答いただいたこと、さらにフォローもいただきましたので
ベストアンサーにさせていただきます!
No.2
- 回答日時:
登録できないのではなくて、[マクロ]ダイアログに表示されないということ
ですね。
http://officetanaka.net/excel/vba/tips/tips101.htm
Subプロシージャの括弧に引数があるためです。
Sub setFileList(searchPath) ←括弧の中にあるsearchPathが引数
Callステートメントで呼び出すSubプロシージャなので[マクロ]ダイアログ
に表示する必要がないためですね。
http://www.officetanaka.net/excel/vba/statement/ …
質問にあるマクロのOption Explicitのすぐ下にあるSubプロシージャの
括弧にある引数を削除すれば表示されます。
Sub setFileList()
ただし、Callステートメントでこれを呼び出しても引数がないので無意味
です。
No.1
- 回答日時:
もう一度、以下のサイトをよく読んでみてください。
>以下のコードを記述(参考:http://blog.jmiri.net/?p=1763)
これを加えるように書かれています。
シートオブジェクト
>Private Sub CommandButton1_Click()
> Call setFileList(Cells(2, 2)) 'フォルダパスを入力するセル
>End Sub
つまり、開発タブから、ActiveX コントロールのコマンドボタンを選びなさい、ということです。
それを貼り付けて、そのコマンドボタンをダブルクリックすれば、シートオブジェクトは開けるはずですから、そこに一行 Call setFileList... を書き加えることになります。
ただし、内容のコードとしては、残念ながら、あまり洗練されていない内容です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
マクロが登録できません
Excel(エクセル)
-
EXCELのVBAでRange(A1:C4")を変数にする方法を教え"
Visual Basic(VBA)
-
-
4
エクセルでエラーが出て困っています。
Excel(エクセル)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
EXCEL:マクロの登録ができない・・・
Excel(エクセル)
-
7
VBA[Private Sub]のコードをシート上の図形に登録する方法を教えて
Visual Basic(VBA)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
10
EXCELのボタンによるマクロの登録名にファイル名が入ってしまう
PowerPoint(パワーポイント)
-
11
private sub にしたらマクロが見えなくな
Excel(エクセル)
-
12
UserForm1.Showでエラーになります。
工学
-
13
【Excel VBA】マクロをボタンに登録したがエラーで実行できない
Visual Basic(VBA)
-
14
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別シートのマクロを実行する方法
-
エクセルのマクロボタンが編集...
-
Access終了時にマクロまたはVBA...
-
Application.Runエラー(1004)
-
エクセルVBAで数式バー再表示後...
-
アクセスのマクロについて
-
マクロ 戻るボタンを押したらシ...
-
シート保護を掛けたまま並べ替...
-
アクセス:検索フォームボタンに...
-
マクロとモジュールの違いを教...
-
private sub にしたらマクロが...
-
access2010 コマンドまたはアク...
-
エクセルのマクロ
-
オートシェイプの黄色いハンド...
-
「Access」のフォームを...
-
エクセルVBAで、ボタンの文字を...
-
RunMacroメソッドではsubプロシ...
-
ExcelのVBAでDisplayalertsで警...
-
マクロの自動記録機能について
-
エクセル VBA マクロボタンが?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別シートのマクロを実行する方法
-
エクセルのマクロボタンが編集...
-
Application.Runエラー(1004)
-
Access終了時にマクロまたはVBA...
-
エクセルVBAで、ボタンの文字を...
-
シート保護を掛けたまま並べ替...
-
InputBox内の表示について
-
マクロ 戻るボタンを押したらシ...
-
access2010 コマンドまたはアク...
-
今日の日付の範囲を指定して印...
-
AccessでExcelファイルを印刷
-
マクロが登録できません
-
マクロとモジュールの違いを教...
-
エクセル VBA SendKeys ループ...
-
Workbook_Openを起動時以外に呼...
-
プロシージャが大きすぎます!
-
ExcelVBAで右クリックメニュー...
-
ExcelのVBAでDisplayalertsで警...
-
ACCESS エラーメッセージ表示...
-
特定のシートだけ印刷はマクロ...
おすすめ情報