VBA

VBA　フォルダがなかったら作る

yuko

エクセルマクロを書くお仕事をいただいた。大体できたと思っていたのに、テストしてみると想像していた以上にいろいろせなかかんかった。😅気づいてよかった。

wordpressにSyntaxHighlighter Evolved　というプラグインを入れてみた。
VBAのコードも綺麗に表示できる。これで健忘録が書きやすくなった😁
さっそく　

Sub Foldercheckcreate()'C:\Users\nameに「test」というフォルダがなかったからフォルダを作成する
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")

     If FSO.FolderExists("C:\Users\name\test") = True Then
     Else
        FSO.CreateFolder "C:\Users\name\test"
     End If
    Set FSO = Nothing
End Sub

参考にしたページはhttp://officetanaka.net/excel/vba/filesystemobject/filesystemobject11.htm
こちら　ありがとうございました～

投稿者: yuko

コメントを残す