Sub test() Dim openBook As Workbook Dim strPath As String '作成したいフォルダのパス '①処理後フォルダ作成 '========================================================= '--- 同じ階層に「処理後」というフォルダを作成する ---' strPath = ThisWorkbo…

Sub 同じ階層に保存() Dim openBook As Workbook Dim openPath As String '選択したブック名を格納 openPath = Application.GetOpenFilename("xls,*.xls?") If openPath <> "False" Then '格納したブックを開く Set openBook = Workbooks.Open(openPath) 'マ…

Sub フォルダ作成() '--- 作成したいフォルダのパス ---' Dim strPath As String strPath = ThisWorkbook.Path & "¥処理後" '--- フォルダが存在しない場合のみMkDirで作成 ---' If (Dir(strPath, vbDirectory) = "") Then Call MkDir(strPath) Else MsgBox …

個人情報サンプルデータ サンプルデータ はてなブログにExcelファイルを貼りつける方法 VBAアドイン 個人情報サンプルデータ kazina.com サンプルデータ otukai.jp はてなブログにExcelファイルを貼りつける方法 mdesign0516.hatenadiary.com VBAアドイン 踊…