nono’s blog

山歩き、仕事の事、中国の事

【Excel VBA】選択したフォルダとそのサブフォルダ内の全てのファイルとそのファイルサイズをExcelファイルに書き出すマクロ

Excelで選択したフォルダと、そのサブフォルダ内の全てのファイルについて、 ファイル名と格納フォルダパス、およびファイルサイズをExcelファイルに書き出すマクロです。<使い方> ・ExcelのVBAに下記のソースコードを貼り付ける ・Excelで空白シートを選…

【Excel VBA】選択したフォルダとそのサブフォルダ内の全てのファイルをExcelファイルに書き出すマクロ

Excelで選択したフォルダと、そのサブフォルダ内の全てのファイルについて、 ファイル名と格納フォルダパスをExcelファイルに書き出すマクロです。<使い方> ・ExcelのVBAに下記のソースコードを貼り付ける ・Excelで空白シートを選択する ・Excelで当マク…

【Outlook VBA】選択したフォルダとそのサブフォルダ内の全てのメールをmsgファイルで保存してExcelファイルにも書き出すマクロ

Outlookで選択したフォルダと、そのサブフォルダ内の全てのメールについて、 msgファイルで保存して、さらにメールの内容をExcelファイルに書き出すマクロです。<使い方> ・OutlookのVBAに下記のソースコードを貼り付ける ・ソースコードの「1.」にmsgファ…

服部川駅から歩いて高安山と信貴山へ(2018年4月26日)

大阪府八尾市にある服部川駅から登山口より高安山へ登り、そのまま信貴山へ歩き、朝護孫子寺でお参りしてケーブルカーで下山した。 ネット上にも情報が少なく、初めてのルートだったので迷った場所があり記録しておく事にする。 全体の行程 「信貴山」から右…