|
|
|
2017.11.17
カテゴリ：お勉強
Option Explicit Sub makeDirectory() 'MsgBox ThisWorkbook.Application.CheckSpelling(Cells(3, 2)) Debug.Print ThisWorkbook.Path 'Dir (ThisWorkbook.Path) 'Cells(5, 2)にCLコードがあるとしたら Dim foldername1 As String foldername1 = ThisWorkbook.Path & "\" & Left(Cells(5, 2), 4) Debug.Print foldername1 'MsgBox Dir(ThisWorkbook.Path & "\" & foldername1, vbDirectory) If Dir(foldername1, vbDirectory) = "" Then MkDir (foldername1) End If Dim filename1 As String filename1 = foldername1 & "\" & Cells(5, 2) & ".xlsx" Dim newbk As String newbk = ActiveWorkbook.Name If Dir(filename1) = "" Then Workbooks.Add '開いたブックはアクティブ！ newbk = ActiveWorkbook.Name Workbooks(newbk).SaveAs _ filename:=filename1 'ここからCLコードファイルはfilename1という名前になる Else Workbooks.Open filename:=filename1 End If End Sub
お気に入りの記事を「いいね！」で応援しよう
Last updated
2017.11.17 08:11:03
コメント(0) | コメントを書く
[お勉強] カテゴリの最新記事
|
