FSO(FileSystemObject) | VBA・GAS・Pythonで仕事を楽しく効率化 https://officevba.info 仕事の役に立つVBA・GAS・Pythonのコードを紹介していきます。 Sun, 06 Nov 2022 11:25:08 +0000 ja hourly 1 https://wordpress.org/?v=6.7.1 https://officevba.info/wp-content/uploads/2017/04/cropped-Excel_1-32x32.jpg FSO(FileSystemObject) | VBA・GAS・Pythonで仕事を楽しく効率化 https://officevba.info 32 32 ExcelVBAで再帰処理を用いてフォルダ一覧を取得 https://officevba.info/recursion-getfolder/ https://officevba.info/recursion-getfolder/#respond Sun, 06 Nov 2022 11:25:08 +0000 https://officevba.info/?p=2469
  1. VBAで再帰処理を実行
  2. 再帰処理とは
  3. 再帰処理の実例

VBAで再帰処理を実行

最近、ExcelVBAの再帰処理の方法を人から教えてもらったので、以前断念したフォルダ一覧の取得をVBAで試してみました。
使い方の基本さえわかっていればかなり便利に使用できますのでこちらでご紹介します。

再帰処理とは

再帰処理とはあるプログラムの中で自分自身を呼び出して繰り返し処理を行うことです。
繰り返しの数があらかじめ定まっていない、ネストの階層がわからない場合など一般的な繰り返しが適用しにくい場合に有効な処理となります。

再帰処理の実例

再帰処理はいつでもどこでも使うものというより特定の状況で知っておくとめちゃくちゃ便利なものだと思います。
今回は再帰処理を用いて「フォルダの一覧を取得」するコードをご紹介します。

Sub フォルダとファイル一覧を取得()

    '参照設定「MicrosoftScriptingRuntime」を有効にしておく
    Dim fso As New FileSystemObject
    '参照設定「Windows Script Host Object Model」を有効にしておく
    Dim wsh As New WshShell
    
    Dim tarPath As String: tarPath = wsh.SpecialFolders("Desktop") & "\マクロ"
    Dim tarFolder As Folder: Set tarFolder = fso.GetFolder(tarPath)
    Call recursion(tarFolder)
    
    Set fso = Nothing
    Set wsh = Nothing
    
End Sub

Sub recursion(ByRef f As Folder)

    Dim tarSubFolder As Folder
    
    For Each tarSubFolder In f.SubFolders
        Debug.Print tarSubFolder.Path
        Call recursion(tarSubFolder)
    Next

End Sub

デスクトップにある「マクロ」ファイルの下部にあるサブフォルダを全階層にわたり取得してイミディエイトに出力するコードになります。

Subプロシージャの「recursion」（再帰）の中で、 ①サブフォルダを取得して、②そのフォルダオブジェクトを引数にして自分自身をCallで呼び出す作りになっています。

Subプロシージャが自分自身を呼び出すことができることに自分では考えが至らず、教わったときに衝撃を受けました。

この処理は対象となるフォルダが多いと終了するまでに時間がかかるのでご注意ください。

普通にデスクトップのパスを文字列で指定してもいいのですが、Windowsのユーザー名に依存せずにデスクトップを指定するためにWSH(Windows Scripting Host)のSpecialFoldersを使用しています。

Debug.printでイミディエイトウィンドウに表示する代わりに、配列に入れたりワークシートに出力することでより高速に処理ができるようになります。

ちなみにPythonではglobというライブラリを使用すれば、以下の1行で再帰処理を実行して全フォルダを取得することができます。

print(glob.glob('C:/Users/<ユーザー名>/Desktop/マクロ/**', recursive=True))

この辺りはまた別の記事でご紹介できればと思います。
今回の目的だけならPythonを使った方が便利そうですが、VBAでも再帰処理ができるというのは大きな発見でした。

]]> https://officevba.info/recursion-getfolder/feed/ 0 ファイル名を一括変更するExcelVBA https://officevba.info/filenametransfer/ https://officevba.info/filenametransfer/#respond Mon, 25 May 2020 04:43:13 +0000 http://officevba.info/?p=2023
  1. ちょっとずつファイル名を変更するのがかなり面倒
  2. ファイル名一覧を取得→変更後のファイルをシートに書き出す
  3. 今回使用するワークシート
  4. 作成したExcelVBAコード

ちょっとずつファイル名を変更するのがかなり面倒

最近同じようなファイルを複数コピーして少しずつ内容を変えて、別の名前で保存するという仕事がありました。

5個～10個くらいのファイルならまだいいのですが、100個単位で必要だったりするとかなりつらいです。
また、一回ある規則で変更したのにまた別の規則で再度変更になったりすると絶望すると思います。

今回はそんなときに便利なファイル名を一括で変更するExcelVBAを紹介します。

ファイル名一覧を取得→変更後のファイルをシートに書き出す

今回私が考えたツールではまずあるフォルダに変更したファイルをすべて格納し、そのファイル名を取得するのが最初のステップ、
続いて変更後のファイル名を記載して実行させることで、一括でファイル名を変更する仕様となっています。

今回使用するワークシート

今回使用するワークシートは下記の書式となっています。

vba145-1

変更したいファイルをひとまとめにしたフォルダを指定することで、A列にファイル名の一覧を表示させます。
C列にも同じ値を入力していますが、こちらを変更してからファイル名変更のVBAを実行することを想定しています。

簡単に実行できるようにするため、私はボタンを配置してマクロを割り当てています。

作成したExcelVBAコード

ファイル名の一覧を取得するコードは下記の通りです。
その後の一括変換をする際の対象を確定させるため、フォルダのパスはワークシートに記載します。

Sub すべてのファイル名一覧取得()

Dim FolderName As String ’文字列を入れる変数として「FolderName」を使う
Dim Index As Integer ’数字を入れる変数として「index」を使う
Dim FileName As String ’文字列を入れる変数として「FileName」を使う
FolderName = Application.GetOpenFilename ’ダイアログを用いて選択したファイルのパスをFolderNameとする①
Dim i

If FolderName = “False” Then ’FolderNameが選択されていなければ作業を終了する
Exit Sub
Else
Cells(1, 5) = FolderName ’対象とするフォルダのパスをセルの値に格納する
End If

’今のフォルダ名には選択したファイル名含まれているので、ファイル名の部分を切り取る作業。
Index = InStrRev(FolderName, “”) ’フォルダ名部分の文字数をカウントする
FolderName = Left(FolderName, Index) ’ カウントした文字数までの部分を切り取ってフォルダ名とする
FileName = Dir(FolderName & “*.*”) ’ フォルダの中に含まれるファイルを取り出す
i = 2

Do While FileName <> “” ’ ファイルがなくなるまで繰り返す
ThisWorkbook.ActiveSheet.Cells(i, 1) = FileName ’A列にファイル名を記述
ThisWorkbook.ActiveSheet.Cells(i, 3) = FileName ’C列にも一旦元ファイル名を記述
i = i + 1
FileName = Dir() ’次のファイルに
Loop

End Sub

C列はA列と同じ値になっていますので、何かしら変更を加えてからファイル名を変更するVBAを実行します。
続いて実行するファイル名を変更するVBAコードは下記の通りです。

ファイル名を変更するにはFSO（FileSystemObject）を用いると便利です。
「FSO.GetFile(対象ファイルのフルパス).Name=”変更したいファイル名”」の書式で記載します。

ファイルが存在しなかったり、もともと存在する名前に変更しようとするとエラーになります。

Sub ファイル名一括変換()

Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)

Dim FolderName As String ’文字列を入れる変数として「FolderName」を使う
Dim Index As Integer ’数字を入れる変数として「index」を使う
Dim FileName As String ’文字列を入れる変数として「FileName」を使う
Dim i

’対象のフォルダパスが指定されていればダイアログは出さない
If Cells(1, 5) = “” Then
FolderName = Application.GetOpenFilename ’ダイアログを用いて選択したファイルのパスをFolderNameとする①
If FolderName = “False” Then ’FolderNameが選択されていなければ作業を終了する
Exit Sub
End If
Else
FolderName = Cells(1, 5).Text
End If

’今のフォルダ名には選択したファイル名含まれているので、ファイル名の部分を切り取る作業。
Index = InStrRev(FolderName, “”) ’フォルダ名部分の文字数をカウントする
i = 2
FolderName = Left(FolderName, Index) ’ カウントした文字数までの部分を切り取ってフォルダ名とする

Do While Cells(i, 1) <> “” ’ ファイルがなくなるまで繰り返す
FileName = Cells(i, 1)
FSO.GetFile(FolderName & FileName).Name = Cells(i, 3).Text
i = i + 1
Loop

Set FSO = Nothing

End Sub

フリーのソフトなどでも同じような処理はできると思いますが、セキュリティでフリーソフトの使用が禁じられている職場のPCの場合には上記のVBAコードは簡単に作成できて用途も多いと思います。

またExcelの関数Substitute、Left、Midなどを使えることもフリーソフト単独では得られない便利さだと思います。

]]> https://officevba.info/filenametransfer/feed/ 0 AccessでApplication.GetOpenFileNameのようなダイアログを表示してファイルを選択する方法 https://officevba.info/filedialog/ https://officevba.info/filedialog/#respond Sat, 28 Sep 2019 09:09:58 +0000 http://officevba.info/?p=1844
  1. GetOpenFileNameはExcelだけの機能
  2. AccessでExcelを操作する応用でApplication.GetOpenFileNameメソッドを使用する
  3. Application.FileDialogオブジェクト
  4. Application.FileDialogオブジェクトのサンプルコード

GetOpenFileNameはExcelだけの機能

以前からExcelVBAでファイルをダイアログで選択して開く方法として「Application.GetOpenFileName」メソッドを使用していましたが、このメソッドはExcelしか使えなくて、AccessなどでExcelファイルを開くときに使うには非常に面倒で不便なことに気づきました。

今回はAccessでApplication.GetOpenFileNameを使う方法と、より便利な代替方法をご紹介します。

AccessでExcelを操作する応用でApplication.GetOpenFileNameメソッドを使用する

ExcelVBAでしか使えないメソッドなので、Excelを操作する際のように下記コードを記入すれば使えるようになります。

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)

正しい説明なのかどうかわかりませんが、変数「ExApp」にExcelオブジェクト格納し、そこからプロパティ・メソッドを呼び出す手順だと思います。
コードの全体は下記のような感じになります。

Sub ExcelでGetOpenFileName()

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)

ExApp.Visible = True

Dim ExBook As Variant ’宣言はString型かVariant型を使う その後の分岐の条件が変わる
ExBook = ExApp.Application.GetOpenFileName(“Microsoft Excelブック,*.xls?”)

If ExBook <> False Then
ExApp.Workbooks.Open ExBook
Else
MsgBox “中止します”
Exit Sub
End If

Set ExBook = Nothing
Set ExApp = Nothing

End Sub

VBAで他のアプリケーションを使う際によく使う手法ですが、Application.GetOpenFileNameの場合、初期表示するフォルダを選択できない致命的な問題が生じます。

通常Application.GetOpenFileNameはカレントフォルダを最初に開く設定になっているので、ChDriveとChDirを使うことで最初に表示するフォルダを指定することができます。

しかし、Accessや他のアプリケーションでExcelを起動してApplication.GetOpenFileNameを使用してもExcel上のカレントフォルダを変更することができないようです。

私の使用しているPCの環境ではOneDriveのドキュメントフォルダが初期表示される設定を変えることができませんでした。

Excel以外のAccessやOutlook、WordのVBAの際は下記のApplication.FileDialogを使用する方が使いやすい環境を作ることができます。

Application.FileDialogオブジェクト

Application.GetOpenFileNameはExcelの環境に依存してしまうためAccessなど他のアプリケーションでは上記の通り使いにくく、操作性に問題が生じてしまいます。

Accessで使いやすい形でファイル選択ダイアログを開くにはApplication.FileDialogオブジェクトを使用する方が便利だと思います。
このApplication.FileDialogメソッドはApplication.GetOpenFileNameと異なり、下記の点が優れています。

  • ①ExcelだけでなくAccessやOutlookなど、どのVBAでも使用できる
  • ②初期フォルダの設定が可能
  • ③ファイルの指定だけでなく、フォルダの指定も可能
  • ④ファイルの指定時、複数ファイルを指定してそれぞれを取得できる
  • ⑤ファイルの選択ではフィルター表示を複数設定できる

    • 逆にデメリットとしては下記の通りです。

  • ①設定項目・プロパティが多いのでコードが複雑になりやすい
  • ②参照設定「Microsoft Office 〇〇 Object Library」をする必要がある（Verの違いでエラーになることがあるので注意）

    • Application.FileDialogオブジェクトのサンプルコード

    Sub フォルダを選択してパスを取得するコード()

    Dim WSH As Object
    Set WSH = CreateObject(“Wscript.Shell”)
    Dim DesktopPath As String
    DesktopPath = WSH.SpecialFolders(“Desktop”)

    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = DesktopPath & “￥” ’初期フォルダをデスクトップに 最後の「\」は必要なのか不明
    .AllowMultiSelect = False ’複数選択をしない（フォルダはできない）
    .Title = “フォルダの選択” ’ダイアログのタイトル
    If .Show = True Then
    MsgBox “選択フォルダは” & vbLf & .SelectedItems(1)
    End If
    End With
    Set WSH = Nothing

    End Sub
    Sub ファイルを選択してパスを取得するコード()

    Dim i
    Dim WSH As Object
    Set WSH = CreateObject(“Wscript.Shell”)
    Dim DesktopPath As String
    DesktopPath = WSH.SpecialFolders(“Desktop”)

    With Application.FileDialog(msoFileDialogFilePicker) ’Excel以外は.Executeで開かないのでmsoFileDialogOpenは使わない
    .InitialFileName = DesktopPath & “￥” ’初期フォルダをデスクトップに 最後の「\」は必要なのか不明
    .AllowMultiSelect = True ’複数選択をする
    .Title = “ファイルの選択” ’ダイアログのタイトル
    If .Show = True Then
    For i = 1 To .SelectedItems.Count ’選択したファイルのファイル名をすべて取得する
    MsgBox “選択ファイルは” & vbLf & .SelectedItems(i)
    Next i
    End If
    End With
    Set WSH = Nothing

    End Sub

    初期フォルダをデスクトップにするためにWSHを使用してデスクトップを指定しています。
    私の環境では.InitialFileNameでフォルダパスの最後に「\」を付けないとうまく動作しませんでした。

    ]]>     https://officevba.info/filedialog/feed/ 0     ファイルの作成日と更新日を取得するVBAコード https://officevba.info/datecreated-datelastmodified/ https://officevba.info/datecreated-datelastmodified/#respond Fri, 16 Aug 2019 15:07:03 +0000 http://officevba.info/?p=1759
    1. ファイルの作成日と更新日を取得する必要性
    2. FSO(FileSystemObject)について
    3. ファイルの作成日・更新日を取得するVBAコード
    4. フォルダの作成日・更新日を取得するVBAコード

    ファイルの作成日と更新日を取得する必要性

    バックアップを定期的に取るためのツールを作成することにしたのですが、バックアップ先にファイルを保存していくときに既に同じ名前の古いファイルが存在していた場合、置き換えるのか、それともそのままにするのか判断するためファイルの更新日を比較する必要があることに気づきました。

    毎回全部のファイルをコピーすれば良いかもしれませんが、時間かかって面倒ですし、容量がたくさん必要なる可能性があるので、必要最低限のみ保存するだけで済ませるツールにする予定です。

    私も今回調べて初めて知ったのですが、FSO(FileSystemObject)を使って意外と簡単に作成日・更新日を取得できるのでご紹介します。

    FSO(FileSystemObject)について

    以前にこちらでご紹介していますが、ファイル・フォルダを操作するオブジェクトです。

    ExcelVBAに標準で搭載されているファイル・フォルダ操作よりもより多様な操作が可能です。
    ファイルやフォルダのコピー・削除・移動などの処理が簡単にできます。

    個人的にはExcelのワークシートの組み合わせて使用するのが好きで、フォルダ・ファイル一覧を書き出して→決まった処理をする流れでバックアップを作成する予定です。

    ファイルの作成日・更新日を取得するVBAコード

    ファイルの作成日・更新日を取得するためには調べたいファイルのフルパスが必要です。

  • FSO.GetFile(“調べるファイルのフルパス”).DateCreated：作成日の取得
  • FSO.GetFile(“調べるファイルのフルパス”).DateLastModified：更新日の取得

    • デスクトップにある「aaa.xlsx」ファイルの作成日・更新日を取得するサンプルコードは下記の通りです。

    Sub ファイルの更新日を取得する()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)

    MsgBox FSO.GetFile(“C:Users〇〇Desktopaaa.xlsx”).DateCreated
    MsgBox FSO.GetFile(“C:Users〇〇Desktopaaa.xlsx”).DateLastModified

    Set FSO = Nothing

    End Sub

    〇〇の部分はユーザー名になります。

    これだけでは汎用性がなく、使用しにくいのでユーザー名に関わらずDesktopを指定するWSHを使用したり、Dir関数を用いてフォルダ・ファイル一覧を取得してセルに格納した上で作成日・更新日を取得する流れにすると思います。

    フォルダの作成日・更新日を取得するVBAコード

    フォルダの作成日・更新日を取得する方法もファイルを取得する場合とほぼ同じで、「GetFile」が「GetFolder」になるだけです。
    デスクトップにある「aaa」フォルダの作成日・更新日を取得するサンプルコードは下記の通りです。

  • FSO.GetFolder(“調べるフォルダのフルパス”).DateCreated
  • FSO.GetFolder(“調べるフォルダのフルパス”).DateLastModified

    • サンプルコードは次の通りです。

    Sub フォルダの更新日を取得する()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)

    MsgBox FSO.GetFolder(“C:Users〇〇Desktopaaa”).DateCreated
    MsgBox FSO.GetFolder(“C:Users〇〇Desktopaaa”).DateLastModified

    Set FSO = Nothing

    End Sub
    ]]>     https://officevba.info/datecreated-datelastmodified/feed/ 0     VBA（マクロ）で一括フォルダ作成 https://officevba.info/createfolder4/ https://officevba.info/createfolder4/#respond Mon, 04 Jul 2016 13:07:59 +0000 http://officevba.info/?p=324
    1. FSO（FileSystemObject）の便利な使用方法
    2. FSO（FileSystemObject）を用いたVBAコードの紹介

    FSO（FileSystemObject）の便利な使用方法

    FSOを用いたファイル、フォルダの操作は変数の扱いと合わせて使用することでより便利な操作になります。

    例えば色んな名前のフォルダを手作業で100個作るのは大変ですが、Excelの表に100個のフォルダ名の一覧を作っておけば、その名前のフォルダ一気に作成したりできます。

    20-001
    20-002

    FSO（FileSystemObject）を用いたVBAコードの紹介

    デスクトップにあるaというフォルダの中にExcelの一番左の列に書かれた100個の名前のフォルダを作成するコードは以下のようになります。

    Sub Excelシートの一覧表に載っている名前のフォルダをデスクトップのaフォルダの中に作成するマクロ()
     
    Dim WSH As Object, FSO As Object
    Dim DesktopPath As String
    Dim i As Integer
    Set WSH = CreateObject(“Wscript.Shell”)
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    DesktopPath = WSH.SpecialFolders(“Desktop”)
     
    For i = 1 To 100
    FSO.CreateFolder DesktopPath & “a” & Cells(i, 1).Text
    Next i
    Set FSO = Nothing
    Set WSH = Nothing
     
    End Sub

    手作業でのフォルダを作る必要がなくなるのでよくフォルダを作る必要がある人は持っておくと便利だと思います。100個に限らず一覧を全て作成する場合は、以下に記すようにDo Until~Loop構文を使うとよいと思います。

    Sub Excelシートの一覧表に載っている名前のフォルダをデスクトップのaフォルダの中に作成するマクロ()
     
    Dim WSH As Object, FSO As Object
    Dim DesktopPath As String
    Dim i As Integer
    Set WSH = CreateObject(“Wscript.Shell”)
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    DesktopPath = WSH.SpecialFolders(“Desktop”)
     
    i = 1
    Do Until Cells(i, 1).Text = “”
    FSO.CreateFolder DesktopPath & “a” & Cells(i, 1).Text
    i = i + 1
    Loop
    Set FSO = Nothing
    Set WSH = Nothing
     
    End Sub

    このコードだと表がなくなるまでフォルダを作り続けるので、100個より多くても少なくても大丈夫です。

    サンプルファイルも投稿します。このファイルのA列に上から詰めて作成したいフォルダの名前を記載してボタンを押すとデスクトップのaフォルダの中に表に書いた名前のフォルダが作成されます。デスクトップに「a」という名前のフォルダがなければ自動で作成します。

    デスクトップのaフォルダに一覧表の名前のフォルダを作成するマクロはこちらからダウンロードできます。

    ]]>     https://officevba.info/createfolder4/feed/ 0     特殊フォルダのパスを取得する（デスクトップのパス取得） https://officevba.info/specialfolder/ https://officevba.info/specialfolder/#respond Sun, 03 Jul 2016 14:15:33 +0000 http://officevba.info/?p=311
    1. PCごとに異なるデスクトップを指定したい
    2. デスクトップを使用するコードの例
      1. ①表示されているExcelファイルをデスクトップに保存する。
      2. ②デスクトップにフォルダを作成する。
      3. ③デスクトップにファイルをコピーするマクロ
    3. WSH(Windows Scripting Host)の使うための準備
      1. ①最初と最後に記載するコード
      2. ②指定したデスクトップを使いやすいように変数に入れる。
    4. WSH(Windows Scripting Host)の使ったコードの例
      1. ①画面に表示されているExcelファイルをデスクトップに保存する。
      2. ②デスクトップにフォルダを作成する
      3. ③デスクトップにファイルをコピーするマクロ

    PCごとに異なるデスクトップを指定したい

    ファイルをデスクトップに保存するVBAコードの場合、パスの中にユーザー名が含まれていたり、Windowsのバージョンによってパスが違うために他のパソコンではきちんと動作しません。

    今回はどんなPCの環境でもデスクトップが指定できるWSH(Windows Scripting Host)を用いた特殊フォルダの取得をお伝えします。

    デスクトップを使用するコードの例

    デスクトップを指定する必要のあるコードの例は以下のようなものがあります。
    「Users」が「Documents and Settings」になっている場合もあります。

    ①表示されているExcelファイルをデスクトップに保存する。

    Sub デスクトップに保存するマクロ1()
     
    ActiveWorkbook.SaveAs Filename:=”C:\Users\（ユーザー名）\Desktop\あいうえお.xlsm”, _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
     
    End Sub

    ②デスクトップにフォルダを作成する。

    以前紹介したFSO（FileSystemObject）を用いたフォルダ操作のコードです。
    デスクトップに「あいうえお」というフォルダを作成するコードになります。

    Sub デスクトップにあいうえおフォルダを作成するマクロ()
     
    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.CreateFolder “C:\Users\（ユーザー名）\Desktop\あいうえお”
    Set FSO = Nothing
     
    End Sub

    ③デスクトップにファイルをコピーするマクロ

    ②と同じく以前紹介したFSO（FileSystemObject）を用いたファイル操作のコードです。
    Dドライブのa.jpgというファイルをデスクトップにコピーするコードになります。

    Sub デスクトップにファイルaをコピーするマクロ()
     
    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.CopyFile “D:\a.jpg”, “C:\Users\（ユーザー名）\Desktop\”
    Set FSO = Nothing
     
    End Sub

    WSH(Windows Scripting Host)の使うための準備

    ユーザー名やWindowsのバージョンにかからわずにデスクトップを指定するためにWSH(Windows Scripting Host)を用いますが、その使い方は以下のようになります。

    ①最初と最後に記載するコード

    WSH(Windows Scripting Host)の使い方はFSO（FileSystemObject）と似ています。
    使用する場合、最初に以下のコードを書きます。

    Dim WSH As Object
    Set WSH = CreateObject(“Wscript.Shell”)

    また最後には以下のコードを書くのが決まりです。（書かなくてもきちんと動きますが。）

    Set WSH = Nothing

    ②指定したデスクトップを使いやすいように変数に入れる。

    取得するデスクトップパスを以下のように変数に入れておくと便利です。

    Dim DesktopPath As String
    DesktopPath = WSH.SpecialFolders(“Desktop”)

    WSH(Windows Scripting Host)の使ったコードの例

    ①画面に表示されているExcelファイルをデスクトップに保存する。

    現在表示されているファイルをデスクトップに保存するコードは以下のように記載できます。

    Sub デスクトップに保存するマクロ2()
     
    Dim WSH As Object
    Set WSH = CreateObject(“Wscript.Shell”)
    Dim DesktopPath As String
    DesktopPath = WSH.SpecialFolders(“Desktop”)
     
    ActiveWorkbook.SaveAs Filename:= DesktopPath & “\あいうえお.xlsm”, _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ‘DesktopPathの続きは「&」を用いて表示する
     
    Set WSH = Nothing
     
    End Sub

    ②デスクトップにフォルダを作成する

    デスクトップに「あいうえお」というフォルダを作成するマクロはWSH(Windows Scripting Host)を用いて以下のように表されます。

    Sub デスクトップにフォルダを作成するマクロ2()
     
    Dim WSH As Object
    Dim FSO As Object
    Dim DesktopPath As String
    Set WSH = CreateObject(“Wscript.Shell”)
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    DesktopPath = WSH.SpecialFolders(“Desktop”)
    FSO.CreateFolder DesktopPath & “\あいうえお”
    Set FSO = Nothing
    Set WSH = Nothing
     
    End Sub

    ③デスクトップにファイルをコピーするマクロ

    Dドライブのa.jpgというファイルをデスクトップにコピーするコードをWSH(Windows Scripting Host)を用いると以下のようになります。

    Sub デスクトップにファイルをコピーするマクロ2()
     
    Dim WSH As Object
    Dim FSO As Object
    Dim DesktopPath As String
    Set WSH = CreateObject(“Wscript.Shell”)
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    DesktopPath = WSH.SpecialFolders(“Desktop”)
    FSO.CopyFile “D:\a.jpg”, DesktopPath & “\”
    Set FSO = Nothing
     
    End Sub

    コードは少し増えますが、これでどんなPCでも共通で使うことができるようになります。

    ]]>     https://officevba.info/specialfolder/feed/ 0     VBA（マクロ）でフォルダ作成・コピー・削除 https://officevba.info/fsofolderoperation/ https://officevba.info/fsofolderoperation/#respond Fri, 01 Jul 2016 12:22:49 +0000 http://officevba.info/?p=297
    1. FSO（FileSystemObject）でフォルダ操作
    2. FSO（FileSystemObject）を用いたフォルダの操作
      1. ①フォルダを作成する
      2. ②フォルダのコピー
      3. ③フォルダの削除
      4. ④フォルダが存在するか調べる
    3. PCの環境によって指定するコードが変わる？

    FSO（FileSystemObject）でフォルダ操作

    前回の記事でFSO（FileSystemObject）を用いたファイルを操作するコードについてお伝えしました。
    今回はフォルダを操作するサンプルコードをご紹介します。ファイル操作の時のコードとよく似ています。

    FSO（FileSystemObject）を用いたフォルダの操作

    ①フォルダを作成する

    「FSO.CreateFolder “フォルダを作成する場所”」の形式で記載します。
    もともとフォルダが存在する場合はエラーになります。

    以下のコードはDドライブに「あいうえお」というフォルダを作成するコードです。
    もともと「あいうえお」が存在しているかどうか判断し、存在していない場合フォルダを作成する方法は「④フォルダが存在するか調べる」で記載します。

    Sub フォルダを作成するマクロ1

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.CreateFolder “D:\あいうえお”
    Set FSO = Nothing

    End Sub

    ②フォルダのコピー

    「FSO.CopyFolder “コピーするフォルダ” “コピー先のフォルダ”」の形式で記載します。
    ①のCopyFileと使い方はほぼ同じです。ワイルドカードを用いて一気に複数のフォルダをコピーすることもできます。

    下の例はDドライブの「あいうえお」というフォルダをEドライブにコピーするコードです。

    Sub フォルダをコピーするマクロ1

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.CopyFolder “D:\あいうえお”,“E:\”
    Set FSO = Nothing

    End Sub

    ③フォルダの削除

    「FSO.DeleteFolder “削除するフォルダ”」の形式で記載します。
    下のサンプルコードではDドライブにある「あいうえお」というフォルダが削除されます。
    もちろんフォルダの中身も削除されます。

    Sub フォルダを削除するマクロ1

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.DeleteFolder “D:\あいうえお”
    Set FSO = Nothing

    End Sub

    ④フォルダが存在するか調べる

    フォルダが存在するか調べるコードは「FSO.FolderExists(“存在するか調べるフォルダ名”)」で記述します。
    ファイルが存在するか調べるFileExistsと同じく、これを単独で使用するのではなく条件分岐に記載することが多いと思います。

    以下のコードはDドライブに「あいうえお」というフォルダがあるか確認し、ない場合には「あいうえお」というフォルダを作成するVBAコードです。
    （フォルダがあるかないか確認せずに「FSO.CreateFolder “D:\あいうえお”」だけを記載すると元々フォルダがあった場合にエラーが出ます。）

    Sub フォルダを作成するマクロ2()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    If FSO.FolderExists(“D:\あいうえお”) = False Then
    FSO.CreateFolder “D:\あいうえお”
    End If
    Set FSO = Nothing

    End Sub

    PCの環境によって指定するコードが変わる？

    フォルダの作成においてはデスクトップやマイドキュメントを指定する場合が多いと思います。これらのフォルダパスは「C:\Users\（ユーザー名）\Desktop」「C:\Documents and Settings\（ユーザー名）\Desktop」のように、中にユーザー名が含まれているし、WindowsのOSの種類によって変わります。

    これらのフォルダを指定する場合、通常の記載方法では作成したパソコンでしかきちんと動作しません。

    自宅のPCと会社のPCなど、複数の環境で使用できるコードを作成するには、WSH(Windows Scripting Host)を用いてデスクトップやマイドキュメントを指定する方法があります。
    これはまた別の機会にお伝えします。

    ]]>     https://officevba.info/fsofolderoperation/feed/ 0     VBA（マクロ）でのファイル作成・コピー・削除 https://officevba.info/fsofileoperation/ https://officevba.info/fsofileoperation/#respond Thu, 30 Jun 2016 13:12:18 +0000 http://officevba.info/?p=284
    1. FSO（FileSystemObject）の事前準備
    2. FSO（FileSystemObject）のコード紹介～ファイル操作～
      1. ①ファイルのコピー
      2. ②ファイルの削除
      3. ③ファイルが存在するか調べる

    FSO（FileSystemObject）の事前準備

    前回の記事でFSO（FileSystemObject）を用いてできることと事前準備についてお伝えしました。今回はサンプルコードをご紹介します。

    FSO（FileSystemObject）のコード紹介～ファイル操作～

    ①ファイルのコピー

    「FSO.CopyFile “コピーするファイル” , “コピー先のフォルダ”」の形式で記載します。
    以下のコードはデスクトップにある「a.jpg」というファイルをEドライブの「gazou」というフォルダにコピーします。
    （「gazou」というフォルダが存在しないとエラーになります。）

    Sub ファイルをコピーするマクロ()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.CopyFile “D:\a.jpg”, “E:\gazou”
    Set FSO = Nothing

    End Sub

    また名前を変更する場合は「FSO.CopyFile “コピーするファイル” , “コピー先のフォルダ\新しいファイル名”」の形式で記載します。

    以下のコードはDドライブにあるa.jpgというファイルをb.jpgの名前にしてEドライブにコピーします。

    Sub ファイルをコピーするマクロ2()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.CopyFile “D:\a.jpg”, “E:\gazou\b.jpg”
    Set FSO = Nothing

    End Sub

    ファイル名をワイルドカード（*）を用いて表すことで、複数のファイルを同時にコピーすることも可能です。
    以下のコードはDドライブにある全てのjpgファイルをEドライブにコピーするコードです。

    Sub ファイルをコピーするマクロ3()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.CopyFile “D:\*.jpg”, “E:\gazou\”
    Set FSO = Nothing

    End Sub

    ②ファイルの削除

    ファイルの削除は「FSO.DeleteFile “削除するファイル名”」の形式で記載します。
    以下のコードはDドライブのa.jpgのファイルを削除するものです。

    Sub ファイルを削除するマクロ1()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.DeleteFile “D:\a.jpg”
    Set FSO = Nothing

    End Sub

    ワイルドカード(*)を使用して複数のファイルを一気に削除することもできます。
    Dドライブのjpgのファイルを削除するコードは以下のようになります。

    Sub ファイルを削除するマクロ2()

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    FSO.DeleteFile “D:\*.jpg”
    Set FSO = Nothing

    End Sub

    ③ファイルが存在するか調べる

    ファイルが存在するか調べるコードは「FSO.FileExists(“存在するか調べるファイル名”)」で記述します。

    主に条件分岐で、ファイルが存在する場合はある処理をして、ファイルが存在しない場合は別の処理をするなど処理を変える場合に使用します。
    FSO.FileExists(“存在するか調べるファイル名”)はファイルが存在する場合True、存在しない場合Falseという値になります。

    以下のコードはDドライブにa.jpgというファイルが存在する場合、Eドライブにb.jpgとしてコピーし、存在しない場合は「a.jpgはありません」とメッセージを出すサンプルコードです。

    Sub ファイルがあるかどうか確認してコピーするマクロ1

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    If FSO.FileExists(“C:\a.jpg”) = True Then
    FSO.CopyFile “C:\a.jpg” “D:\b.jpg”
    ElseIf
    Msgbox ” a.jpgはありません”
    End If
    Set FSO = Nothing

    End Sub

    ファイルを作って処理してという流れをVBAで繰り返しているときにファイルがあるかどうかでの条件分岐はかなり使用頻度が高いです。

    ]]>     https://officevba.info/fsofileoperation/feed/ 0     VBA（マクロ）でのFSO（FileSystemObject）の使い方 https://officevba.info/filesystemobject/ https://officevba.info/filesystemobject/#respond Wed, 29 Jun 2016 02:47:29 +0000 http://officevba.info/?p=268
    1. FSO（FileSystemObject）とは
    2. FSO（FileSystemObject）を用いたコードを使う準備
    3. FSO（FileSystemObject）でできること

    FSO（FileSystemObject）とは

    FSO（FileSystemObject）とはドライブ、フォルダ、ファイルを操作するオブジェクトです。

    すごく便利なコードでExcelの表と組み合わせて目的のファイル・フォルダの名前を編集したり、目的の場所にファイル・フォルダを移動したりが自在にできるようになります。またバックアップをとったりするのにも便利です。

    FSO（FileSystemObject）を用いたコードを使う準備

    VBA（マクロ）でFSO（FileSystemObject）を使用するためには事前に「FileSystemObjectを使用します」とコードに記載する必要があります。
    「CreateObjectメソッドを実行してFileSystemObjectオブジェクトのインスタンスを作成する」と言われる準備ですが、その意味が分からなくても大丈夫です。要するに以下のコードを書けばよいということです。

    Dim FSO As Object
    Set FSO = CreateObject(“Scripting.FileSystemObject”)

    これを記載することでFSO（FileSystemObject）を使用する準備ができました。またVBAのコード終了前に以下のコードを書いた方が良いです。（なくても問題が起こることは少ないですが。）

    Set FSO = Nothing

    FSO（FileSystemObject）でできること

    前回はFSO（FileSystemObject）を使うための準備について記載しました。
    ここではFSO（FileSystemObject）を用いてできることを列挙していきます。

    (1)ファイルの操作
    ①ファイルのコピー
    ②ファイルの削除
    ③ファイルが存在するか調べる

    (2)フォルダの操作
    ①フォルダを作成する
    ②フォルダのコピー
    ③フォルダの削除
    ④フォルダが存在するか調べる

    (3)ファイルとフォルダの作成日・更新日の取得

    これらのコードを用いて、Excelで作成した表の名前の通りにフォルダを作成したり、ファイル名を変更したりすることができます。
    具体的なコードの書き方とサンプルは次の記事で紹介します。

    ]]>     https://officevba.info/filesystemobject/feed/ 0