SHOJI's Code
 仕事や趣味で書いた各種言語のプログラミングコード(エクセルVBA,PHP,C/C++/C#,JavaScript等)、その他雑記。
2017.10<<123456789101112131415161718192021222324252627282930>>2017.12
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

ちょっとお遊び。

FileSystemObjectを使って、ファイルの一覧をEXCELのセルにセットしてみる。
Sub EnumFiles()
Sheet1.UsedRange.Clear

Set fs = CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(ThisWorkbook.Path)

rn = 1

Sheet1.Cells(rn, 1).Value = "ファイル名"
Sheet1.Cells(rn, 2).Value = "ファイルの種類"
Sheet1.Cells(rn, 3).Value = "サイズ"
Sheet1.Cells(rn, 4).Value = "作成日時"
Sheet1.Cells(rn, 5).Value = "更新日時"
Sheet1.Cells(rn, 6).Value = "アクセス日時"

For Each f In folder.Files
rn = rn + 1
Sheet1.Cells(rn, 1).Value = f.Name
Sheet1.Cells(rn, 2).Value = f.Type
Sheet1.Cells(rn, 3).Value = f.Size
Sheet1.Cells(rn, 4).Value = f.DateCreated
Sheet1.Cells(rn, 5).Value = f.DateLastModified
Sheet1.Cells(rn, 6).Value = f.DateLastAccessed
Next

Set folder = Nothing
Set fs = Nothing
End Sub



テーマ:Excel - ジャンル:コンピュータ
コメント
この記事へのコメント
エラーの対処方法をお教え下さい
「ファイルの一覧をセルにセットする」(EXCEL VBA)で、Excelの標準モジュールに、shojiさんのコード通りにコピーアンドペーストしてマクロを実行しましたが、
プロシージャの呼出または引数が不正ですと
警告が出て、実行できませんでした。
以下のコードが、黄色表示されます。
Set folder = fs.GetFolder(ThisWorkbook.Path)
エラーの対処方法をお教え下さい
2009/01/07(水) 14:34:23 | URL | tetu #91Q/VTjQ[ 編集]
だいぶ遅くなったけど・・・
めったにコメントなど入らないので全然チェックしてなかったv-3

もしかして貼り付けただけでファイルの保存はしてないのでは?
ThisWorkbook.PathはそのEXCELファイルがあるパスなので保存していないと""(空)が返ります。するとGetFolderメソッドがエラーになります
2009/02/17(火) 13:36:55 | URL | SHOJI #-[ 編集]
コメントを投稿する

管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2004-2006 SHOJI, Powered By FC2ブログ all rights reserved.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。