Excelにファイル名、情報、画像を表示するマクロを作成したいと
いろいろ探し、以下の参考マクロを探しました。

Sub MakeFileList()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets("Sheet1").UsedRange.Delete
'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "説明"
ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0)
ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255)
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter
i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
'ファイル種別
sFType = Fx.Type
'最終更新日時の書き出し
ThisWorkbook.Sheets(1).Cells(i, 3) = sFType
'最終更新日
sLMod = Fx.DateLastModified
ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod
i = i + 1
Next
End Sub
 
あと、最後の"F列"にファイル名の画像を貼付けたいのですが
どのようにしたら良いのでしょうか?
教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

よく分からんけど


こんな感じかな?

'最終更新日
sLMod = Fx.DateLastModified
ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod

'画像----------------追加
ThisWorkbook.Sheets(1).Cells(i, 6).Select
ActiveSheet.Pictures.Insert (Fx)
'---------------------ここまで

i = i + 1
Next

うまく行かなきゃ、捨てて
    • good
    • 0
この回答へのお礼

本当にありがとう御座います。
助かりました。

一番ベストなマクロになりました。

お礼日時:2009/05/20 14:24

直接の回答ではありません。


下記も参考になりそうです。
エクセル技道場>マクロ>マクロで画像挿入 http://www2.odn.ne.jp/excel/waza/macro.html#SEC27
    • good
    • 0
この回答へのお礼

参考URLをありがとう御座います。
勉強になりました。

お礼日時:2009/05/20 13:37

この質問に関係ない部分の、長々とコードを書く必要なし。


読者/回答者のことも考えて。
挿入ー図ーファイルからー画像のファイル指定の操作をして、マクロの記録をとれば判ること。
変化するのは、挿入位置と挿入画像名だけ。
位置などは、Cells(i,J).Topなどぇft、Top、Width,Height、など4要素。
Sub Macro1()

ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\OTO\My Documents\My Pictures\PXXXXX.JPG").Select
Selection.Top = Cells(5, "h").Top
Selection.Left = Cells(5, "h").Left
End Sub
Widthなど略。上2行がマクロの記録から。
    • good
    • 0
この回答へのお礼

ご回答ありがとう御座います。
勉強になりました。

>この質問に関係ない部分の、長々とコードを書く必要なし。
>読者/回答者のことも考えて。
すみません、ご指導ありがとう御座います。
今後きおつけます。。。

お礼日時:2009/05/20 13:40

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング