作成者カテゴリ返答の対象
公開
-*-
01/22/2015 05:20 PM
文書リンクアイコン Excelデータをビューへ呼び出し(インポート)
Re: Excelデータをビューへ呼び出し(インポート)

既に解決されているかもしれませんが、参考までに。

とりあえず読み込めれば良いということで作ったことがあります。
その時はこちらのサイトを参考にさせていただきました。
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


[Previous Main Document]
Excelデータをビューへ呼び出し(インポート) (yuri)
. . Re: Excelデータをビューへ呼び出し(インポート) (mn)
. . . . Re: Excelデータをビューへ呼び出し(インポート) (yuri)
. . . . . . Re: Excelデータをビューへ呼び出し(インポート) (-*-) * 現在地 *
[Next Main Document]