Notes 開発で、　excelファイルを読み込みデータを追加したい。

Question

現在notes7で開発を行っている（初心者）なのですが

ビュー内の選択している文書からデータを取ってきて
読み込んだexcelファイルに書き足していきたいのですが、

任意のexcelを開くところまではネットを参考にして出来たのですが
詳細を理解していないため、そのファイルにデータを書き足していくことが出来ません。アドバイスをお願い致します。

現在作ってあるプログラムが以下です。

        ' 既存のEXCELワークブックを開く
Dim xlApp As Variant ' Excelオブジェクト
        ' マイドキュメントの指定ファイルを開く
Dim wsh As Variant, fso As Variant
Dim FilePath As String, FileName As String
Set wsh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
FilePath = wsh.SpecialFolders("MyDocuments")
FileName = FilePath & "\sample.xls"
If Not fso.FileExists(FileName) Then
Msgbox "ファイルがありません。" & Chr(13) & FileName, 16
Exit Sub
End If
Set xlApp = CreateObject("Excel.Application")  ' Excel OLE起動
xlApp.Workbooks.Open FileName
xlApp.Visible = True


これで、ファイルは開けます。ちなみにビュー内の選択文書の取り込みは出来てます。後は、そのデータをエクセルに書き出すだけなのですが
そこが解りません。

それと、現在マイドキュメント内のファイルを読み込んでますが
同じデータを共有リソースの中に保存してあるので、そっちから開きたいのですが、パスをどのように設定すればいいのか解りません。

すみませんが、アドバイスをお願い致します。

gex · Accepted Answer

ひとまず、書き出しの方から回答いたします。

エクセルファイルの取得まではできているようですので、今後は「シートオブジェクトの取得」->「セルを指定して処理」の流れでプログラムを作成すればよいと思います。

例えば、作成済みのプログラムの次に以下のコードを追記すれば、Excelに書き出しができると思います。

Dim xlWorksheet As Variant'エクセル・シート
'シート名を指定してシートオブジェクトを取得
Set xlWorkSheet = xlApp.WorkSheets( "Sheet1" )
'セルの1行1列目に「あああああ」という文字をセット
xlWorksheet.cells(1,1).Value = "あああああ"

既に文書の取り込みができているとのことですので、例えば文書オブジェクトがdocだとしたら、以下のコードで実現できるのではないでしょうか。

'文書上のxxxxxフィールドの値を、Excelの1行1列目にセット
xlWorksheet.cells(1,1).Value = doc.GetItemValue( "xxxxx")(0)

蛇足ですが、サイズ幅の変更のような処理も可能です。（マクロをNotes上から実行させるイメージです）

xlWorksheet.cells(1,1).ColumnWidth = 4.13

gex · Answer

共有リソースはそちらをさしていたのですね、了解いたしました。
ただし、そうなると、申し訳ありませんが、あまり期待にそえる回答ができなそうです。

共有リソースは、例えば複数のフォームで同じロゴの画像イメージを使いたい場合等に、共有リソースにロゴイメージを1つだけ登録し、各フォームでは共有リソースを参照するという用途に利用いたします。（メンテナンス性とディスクサイズの削減）

また、共有リソースへのパスの指定方法は、申し訳ありませんがちょっと思いつきません。（WebDAVの機能を利用すればできるかもしれませんが、各クライアントに設定が必要になることと、共有リソースは設計要素のため、編集には設計者権限以上が必要となってしまうことから現実的ではないと思います）

どのような要件から、Notes DB上にExcelファイルを共有し、そちらに直接書き込みをしたいのか、ということにもよりますが、対応としては以下の方法が考えられるかと思います。

1. Excelファイルについては、ファイルサーバーで共有する
2. Excelファイルは特定のNotes文書に添付して管理し、書き出し時には一旦ダウンロードして添付しなおすという運用にする
3. (Notes DB内の情報だけでExcelファイルが作成できる場合、）既存のファイルに書き出すのではなく、新規にExcelファイルを作成するロジックを組む

gex · Answer

続いて、パスの指定方法について。

「共有リソース」といっているのは、エクスプローラーでマイコンピューターの直下にある「共有ドキュメント」（私の環境はWindows XPです）のことでしょうか？

それであれば、以下のように絶対パスを指定するのもありかもしれません。

FileName = "C:\Documents and Settings\All Users\Documents\sample.xls"

また、頻繁に更新ファイル先を変える場合には、以下のように都度Fileパスとシート名をセットさせるのも手かもしれません。

Dim filenames As Variant'ファイルパス＆ファイル名
Dim sheetName As String'シート名
Dim objXL As Variant'エクセル・ファイル
Dim xlWorksheet As Variant'エクセル・シート

Dim ws As New NotesUIWorkspace

'ファイルの指定
filenames = ws.OpenFileDialog( False, "上書きするファイルを選択してください",, )

If Not( Isarray( filenames ) ) Then
Msgbox "処理を終了します"
Exit Sub
End If

'シート名の指定
sheetName = Inputbox$("読み込みを実施するシート名を入力ください")

'エクセルファイルの読み込み処理
Set objXL = getObject( filenames(0) )
'シートの読み込み処理
Set xlWorkSheet = objXL.WorkSheets( sheetName )

Notes 開発で、 excelファイルを読み込みデータを追加したい。

ひとまず、書き出しの方から回答いたします。

共有リソースはそちらをさしていたのですね、了解いたしました。

続いて、パスの指定方法について。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

Notes 開発で、　excelファイルを読み込みデータを追加したい。