PCメモ

Excelを中心とした業務改善の記録

2021-05-02から1日間の記事一覧

作成したフォルダに保存

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) 'マ…

同じ階層にフォルダを作成する(Mkdir)

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

参考記事

個人情報サンプルデータ はてなブログにExcelファイルを貼りつける方法 VBAアドイン 個人情報サンプルデータ kazina.com はてなブログにExcelファイルを貼りつける方法 mdesign0516.hatenadiary.com VBAアドイン 踊るVBEアドイン ノ゚∀゚)ノヤットサー! | 踊るVBEア…