NotesのデータをExcelシートへ吐き出したいのですが、エラーが出てしまって先へ進みません。 フォームのボタンをクリックすると下記のスクリプトが実行されます。 Sub Click(Source As Button) Dim session As New notessession Dim db As notesdatabase Dim view As notesview Dim doc As notesdocument Dim user As String Dim obj As Variant Set db = session.currentdatabase Set view = db.getview("Export") Set obj = CreateObject("Excel.Application") obj.Workbooks.Open "c:\#data\test2.xls" Set doc = view.getfirstdocument While Not(doc Is Nothing) value = doc.GetItemValue("Name")(0) obj.Worksheets("Sheet1").Range("A1").value = Valew Set doc = view.getnextdocument(doc) Wend End Sub デバッグしてみると、 obj.Worksheets("Sheet1").Range("A1").value = Valew でエラーが発生してしまい、メッセージは "OLE:自動オブジェクトのエラーです。"が出力されます。 いったいどうなっているのか、全くわかりません。 こんな説明で分かっていただける方がいましたら教えて下さい。 宜しくお願いします。
