download 用  

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化します。  (にやり)

 

 

 

 

 

 

 

 

  

 

 


 

inserted by FC2 system