NotesDXLExporter Dim db As New NotesDatabase("","UNKTable.nsf") Dim out$ Dim filenum As Integer Set exporter = ss.CreateDXLExporter out = exporter.Export(db) filenum = FreeFile Open "c:¥temp¥UNKTable.dxl" For Output As filenum Write #filenum, out Close filenum End Sub 【参考】 UNKテーブルは DXL出力に 含まれない DXL (Domino XML Language)