既に解決されているかもしれませんが、参考までに。 とりあえず読み込めれば良いということで作ったことがあります。 その時はこちらのサイトを参考にさせていただきました。 http://www2.ocn.ne.jp/~notes/lotus/script2_8.htm 区切りはカンマ「,」の仕組みなのでタブ区切りでは動作しません。 ビューのアクションボタンあたりに下記コードを用意してあげれば良いかと思います。 Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim ss As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim ret As Variant Dim loadFile As Variant Dim FileNum As Long Dim strValue As String Dim lngCnt As Long Set db = ss.CurrentDatabase 'ダイアログボックスを表示してファイルの選択 loadFile = ws.OpenFileDialog( False, "ファイルを開く","CSVファイル|*.csv","D:\") If Isempty(loadFile) Then Exit Sub FileNum = Freefile Open loadFile(0) For Input As FileNum Do Until Eof(FileNum) Line Input #FileNum , strValue 'ファイルの各行をstrValuに取得する lngCnt = Instr(strValue,",") 'カンマを取得する If lngCnt <> 0 Then 'カンマがあった場合のみ文書を作成する ret = Split(strValue,",",-1,5) Set doc = db.CreateDocument doc.form = "フォーム名" 'どのフォームを使うか指定。指定しなければ、デフォルトフォームになる 'フィールドへ値を代入 doc.FieldA = ret(0) doc.FieldB = ret(1) doc.FieldC = ret(2) . . . doc.FieldH = ret(7) Call doc.Save(True,True) End If Loop Close #FileNum Msgbox "読込終了" End Sub