[教えて！VBA] 第7回 フォルダを開く（＋ファイルを操作する）にはどうすればいいの？？

1Workbook.FollowHyperlink(引数)
2'// メソッドの詳細はこちらを参照 https://vbabeginner.net/open-web-page-without-hyperlink/

1
2Sub ハイパーリンクの仕組みを利用する関数()
3    Dim path As String
4    path = "C:\temp\"
5    Application.ThisWorkbook.FollowHyperlink Address:=path
6End Sub

1
2Sub Shell関数を利用するパターン()
3    Call Shell("explorer ""C:\temp\""", vbNormalFocus)
4    '// 詳細な引数の指定方法はこちらを参照 https://vbabeginner.net/shell/
5End Sub
6

 1Sub ダイアログボックス経由でファイル情報出力()
 2    Dim filePath As String
 3    
 4    filePath = サブ関数_ダイアログボックス表示してファイルパス取得()
 5    
 6    If filePath <> "" Then
 7        サブ関数_ファイルの情報をシートに出力 (filePath)
 8    End If
 9    
10End Sub
11
12Function サブ関数_ダイアログボックス表示してファイルパス取得() As String
13    With Application.FileDialog(msoFileDialogFilePicker)
14        '//フィルタ設定 テキストファイルだけ選択可能に制限する
15        .Filters.Clear
16        .Filters.Add "テキストファイル", "*.txt"
17        
18        '//複数ファイル選択不可能に設定
19        .AllowMultiSelect = False
20        .Title = "ファイル選択"
21        
22        '//ファイル選択した場合に「Show」がTrueになる
23        '//ファイル選択せず閉じた場合はFalse
24        If .Show = True Then
25            サブ関数_ダイアログボックス表示してファイルパス取得 = .SelectedItems(1)
26        End If
27    End With
28End Function
29
30Sub サブ関数_ファイルの情報をシートに出力(ByVal filePath As String)
31    Dim fso As Object
32    Dim myFile As Object
33    '//ファイル取り扱う機能を持つオブジェクトを取得（FileSystemObject）
34    Set fso = CreateObject("Scripting.FileSystemObject")
35    
36    '//パスで指定されたファイルを取得
37    Set myFile = fso.GetFile(filePath)
38    
39    '//A1セルにファイル作成日時を出力
40    ActiveSheet.Range("A1").Value = myFile.DateCreated
41    
42    '//A2セルにテキストファイルの一行目の文字列を出力
43    With myFile.OpenAsTextStream
44        ActiveSheet.Range("A2").Value = .ReadLine
45        .Close
46    End With
47End Sub
48

 1
 2Sub 組み込み関数やAPIを利用するパターン()
 3    Dim fso As Object
 4    Dim folderPath As String
 5    Dim myFolder As Object
 6    Dim myFile As Object
 7    Dim i As Long
 8    
 9    '//ファイル取り扱う機能を持つオブジェクトを取得（FileSystemObject）
10    Set fso = CreateObject("Scripting.FileSystemObject")
11    
12    '//フォルダパス（固定：ユーザには選択させない）
13    folderPath = "C:\temp\"
14    
15    '//フォルダの取得
16    Set myFolder = fso.GetFolder(folderPath)
17    
18    '//フォルダ中のテキストファイル（拡張子txt）のファイルのみ対象として
19    '//一行目の文字列データをシートに出力
20    i = 1
21    For Each myFile In myFolder.Files
22        '//テキストファイルかどうかをチェック
23        If fso.GetExtensionName(myFile.path) = "txt" Then
24            '//セルにテキストファイルの一行目の文字列を出力
25            With myFile.OpenAsTextStream
26                ActiveSheet.Cells(i, 1).Value = .ReadLine
27            End With
28            i = i + 1
29        End If
30    Next
31    
32End Sub

1
2Mode                 LastWriteTime         Length Name
3----                 -------------         ------ ----
4-a----        2022/01/03     14:42             76 another-text01.csv
5-a----        2022/01/03     14:42             76 another-text02.json
6-a----        2022/01/03     13:38             76 mytext01.txt
7-a----        2022/01/03     14:20             76 mytext02.txt
8-a----        2022/01/03     14:42             76 mytext03.txt
9