excelVBAで一時(テンポラリ)ファイル名を取得する

excelVBA 
Sub Sample05()
    Dim FSO As Object, TempName As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''新しいブックを挿入します
    With Workbooks.Add
        ''作業用ブック名を生成します
        With FSO
            TempName = .GetSpecialFolder(2) & "\" & .GetBaseName(.GetTempName) & ".xlsx"
        End With
        ''挿入したブックに名前を付けて保存します
        .SaveAs TempName
        MsgBox .FullName & vbCrLf & "という名前で保存しました", vbInformation
    End With
    Set FSO = Nothing
End Sub

ネタ元