例えばカンマ区切りで出力 SELECT 列名 || ',' ||列名 FROM 表名: ネタ元 atmarkit.itmedia.co.jp

Function ParentDirName() As String With ThisWorkbook ParentDirName = Left(.Path, InStrRev(.Path, "\") - 1) End With End Function ネタ元 www.vba-ie.net