photo用 エクセルを利用した画像表示用ソフト xmlを自動生成
もともと 電子納品を基準に考えて作ったものです。
ですから タグも 私が勝手に作り フォルダーも カレントから"\photo\pic\"に固定しました。
this workbookのオープンイベントで
Private Sub Workbook_Open()
MsgBox "nya"
path_name = ThisWorkbook.FullName
If InStrRev(path_name, "\") > 0 Then
path_name = Left(path_name, InStrRev(path_name, "\") - 5)
End If
Worksheets("sheet2").Range("a1").Value = path_name +
"\photo\pic\" 'photoデータの位置
File_List
集計
Writexml
End Sub
赤字の -5を -1にして + "\photo\pic\"を削除すれば
カレントフォルダーの jpgデータのみ習得します。
sheet1に FILE_LIST ファイル名(集計) XML(writtexml)のボタンがあり
これを使って 写真閲覧や xml作成などできます。
VBAのコードは パスワードをかけないでおきます。
ご自由に 変更してください。
タグ名も xmlの項目数も 自由に変更できるはずです。
これの 亜流として......
autoxml..........これをjpgファイルのあるフォルダーで解凍して 実行させると
そこのjpgファイルが xml化します。 (にやり)
DWGXML........これをDWGファイルのあるフォルダーで解凍して 実行させると
そこのDWGファイルが xml化します。 (にやり)