今回は、VBAでフォルダを作成してみます。
VBAでできることは、エクセル内の作業だけではありません。
プログラムを書く前にVBAの設定の変更が必要です。
①VBEを開いて、「ツール」→「参照設定」で
Microsoft Scripting Runtimeのライブラリにチェック
②エクセルシートのB2とB5にそれぞれ以下の入力
新しいフォルダを作成するフォルダのURL
新しく作成するフォルダ名
そして以下のプログラムを書きます。
Sub Createfolders()
'対象シートを設定
Dim ws1 As Worksheet
Set ws1 = Worksheets("フォルダ作成")
'FileSystemObjectを設定
Dim fs As FileSystemObject
Set fs = New Scripting.FileSystemObject
'セルB2の値を取得
Dim folderpath As String
folderpath = ws1.Range("B2").Value
'セルB2で指定するフォルダがあるかチェックする
If fs.FolderExists(folderspec:=folderpath) = False Then
Exit Sub
End If
'フォルダ作成
Dim newfolderpath As String
newfolderpath = folderpath & "\" & ws1.Range("B5").Value
fs.CreateFolder newfolderpath
'オブジェクト解放
Set fs = Nothing
End Sub
0 件のコメント:
コメントを投稿