ファイル

ファイル選択

Sub ファイル_ファイル選択()
    'ファイルを選択して、パスを取得
    Dim w_ret As Integer
    With Application.FileDialog(msoFileDialogFilePicker)            .Title = "ファイルを選択してください。"        .Filters.Clear        .Filters.Add "すべて", "*.*"        .FilterIndex = 1        .AllowMultiSelect = False        .InitialFileName = ActiveWorkbook.Path & "\"                w_ret = .Show        If w_ret <> 0 Then            ActiveCell = .SelectedItems.Item(1)        Else            MsgBox "キャンセルされました。", vbInformation, "ファイル選択"        End If        End With
End Sub

フォルダ選択

Sub ファイル_フォルダ選択()
'フォルダを選択して、パスを取得 Dim w_ret As Integer
With Application.FileDialog(msoFileDialogFolderPicker) .Title = "フォルダを選択してください。" .AllowMultiSelect = False .InitialFileName = ActiveWorkbook.Path & "\" w_ret = .Show If w_ret <> 0 Then ActiveCell = .SelectedItems.Item(1) & "\" Else MsgBox "キャンセルされました。", vbInformation, "フォルダ選択" End If End With
End Sub

ログ出力

Sub ファイル_ログ出力()
    Dim FileNumber    Dim w_str As String
    '■ ログファイルオープン    Close #FileNumber    FileNumber = FreeFile    If ActiveWorkbook.Path = "" Or Mid(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\") + 1, 99) = "XLSTART" Then        w_str = "D:"    Else        w_str = ActiveWorkbook.Path    End If    Debug.Print "ActiveWorkbook.Path=" & ActiveWorkbook.Path    Debug.Print "⇒" & w_str    Open w_str & "\LOG.txt" For Output As #FileNumber
    '■ ログファイル出力    Print #FileNumber, "--------------------------------------------------"    Print #FileNumber, "aaaaaaaaaaaaaaaaaa"
    '■ ログファイルクローズ    Close #FileNumber
End Sub