「夫を成功」へ導く妻の秘訣 座談会

ノーツの添付ファイルの場所を知りたい

例えばAAA.xlsとBBB.csvがありAAA.xlsにVBAで
BBB.csvをオープンするコードが書いてあります。
  Open ThisWorkbook.Path & "\bbb.csv" For Input As #1
AAA.xlsとBBB.csvが同一フォルダーにある時はOKなのですが
ノーツの掲示板の1文書にこの2つを添付してマクロを実行しても
BBB.csvがnot foundになってしまいます。

  注1.ThisWorkbook.Pathはc:\....の中のtemporaryのようです

  注2.実際の問題はBBB.csvではなく数万件のAccess.mdbなのであらかじめ
     AAA.xlsにデータを保持することは不可能です


何か良い解決策はありますでしょうか?
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

Notes の文書に添付されているファイルは、Notes の DB の中に埋め込まれている。


Notes 文書を Notes クライアントで表示しているからといって、その Notes 文書に添付されているファイルがクライアントやサーバーのどこかのフォルダに展開されているわけではない。

あなたは今、xls ファイルと mdb ファイルが添付されている Notes 文書を見ていて、そのうちの xls ファイルを開いた。
すると Notes クライアントが temporary フォルダに xls ファイルを一時的に保存し、あなたの PC にインストールされている Excel が起動して xls ファイルを開く。
開かれた xls ファイルが、自身が保存されているフォルダに 「あるはず」 と思いながら mdb ファイルを探しても mdb ファイルはまだ Notes 文書の中に練り込まれている状態だから探し出す事が出来ない。

ならば素直に xls ファイルも mdb ファイルも明示的に、ローカル PC の任意のフォルダに保存してから xls ファイルを開くとかするのがベストだと思う。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

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

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qメール添付されているファイルを上書き保存で閉じてしまった!!!

メール添付されていたファイル(ここではエクセルのデータ)をマイドキュメントなどに保存せず、開いた状態で修正。
新しい名前で保存とせず、そのまま上書き保存してしまったところ、全ての書き込んだデータが消えてしまいました。
こういう場合、どこかに書き加えたファイルは、どこかに保存しているのでしょうか。
2時間近く費やして作った資料です。

ご存知の方、よろしくお願い致します。

Aベストアンサー

WindowsXPの場合は多分次の所に一時保管されているはずです。

C:\Documents and Settings\ユーザー名\Application Data\Microsoft\office\Recent
又は
C:\Documents and Settings\ユーザー名\Local Settings\Temporary Internet Failes

確実に探すには No.1の方の答えで「名前をつけて保存」をクリックして
(実際には保存しないで下さい)その時表示された [保管用フォルダ名]
を記録しておき、これを「スタート」⇒「検索」⇒「ファイルとフォルダすべて」
で検索してみて下さい。
検索された[名前]欄のフォルダ名をクリックすればファイル一覧がでます。
その中にある筈です。

Q【ノーツ】添付ファイル保存【ver6.5】  

仕事上、良くノーツを利用します。
利用することで最も多いのが
添付ファイルの保存です。

件名のフォルダを指定フォルダ上に作成し、
選択した添付付きメールの添付ファイルを保存したいと思っています。

自動で、指定フォルダ (例)C:\TEMPFILE_DATA
に件名のフォルダを作り (例)C:\TEMPFILE_DATA\ご案内
そこに、添付ファイルを保存したいです。(例)C:\TEMPFILE_DATA\ご案内\2013年11月の予定.pdf

複数メールを選択し、実行したら
その分のメールのタイトル(件名)のフォルダを作成し、
添付ファイルを保存したいです。

そのようなことは可能でしょうか?

Aベストアンサー

>複数メールを選択し、実行したらその分のメールのタイトル(件名)のフォルダを作成し、添付ファイルを保存したいです。
>そのようなことは可能でしょうか?

可能かどうかというのであれば、可能ではあります。
ただし、ノーツのデザイナーを利用して、プログラミングする必要があります。
また、プログラミングには、Lotus Scriptを記述する必要があります。

もし、ノーツのプログラミングができないのなら、手間がかかりますが、対象の文書を開いて、添付ファイルにマウスを合わせ、保存を実行するしかないです。


ノーツのデザイナーが使えて、Lotus Scriptの理解があるとします。
添付ファイルを保存するには、Lotus Script の Call notesEmbeddedObject.ExtractFile( path$ ) を利用します。

ビュー画面の設計で、以下のようなスクリプトを作成します。
選択された文書の中に添付ファイルがあるかチェックします。(EMBED_ATTACHMENT )
添付ファイルを指定のフォルダーにコピーします。(ExtractFile( path$ ) )
選択した全文書のチェックが終わるまでループします。

プログラミングの書き方は、"lotusscript 添付ファイル 保存"で検索すれば、参考プログラムの紹介があります。

>複数メールを選択し、実行したらその分のメールのタイトル(件名)のフォルダを作成し、添付ファイルを保存したいです。
>そのようなことは可能でしょうか?

可能かどうかというのであれば、可能ではあります。
ただし、ノーツのデザイナーを利用して、プログラミングする必要があります。
また、プログラミングには、Lotus Scriptを記述する必要があります。

もし、ノーツのプログラミングができないのなら、手間がかかりますが、対象の文書を開いて、添付ファイルにマウスを合わせ、保存を実行するしかな...続きを読む

QNotesのメールのローカルへの保存方法

Notesのメールのローカルへの保存する方法ってありませんか?
「ファイル」→「書き出し」という方法でローカルに保存していたのですが他によい方法はありませんか?

Aベストアンサー

お使いのバージョンは?

レプリカを使うのが楽だと思います。
ワークスペースでメールDBのアイコンを右クリックして「複製」を実施して下さい。

保存用のファイル名を指定すれば、レプリケータ画面がローカルにコピーできます。
サーバーから取得した後にローカルからサーバへ同期を行う(Pull → Push)ので便利です。

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

現在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


これで、ファイルは開けます。ちなみにビュー内の選択文書の取り込みは出来てます。後は、そのデータをエクセルに書き出すだけなのですが
そこが解りません。

それと、現在マイドキュメント内のファイルを読み込んでますが
同じデータを共有リソースの中に保存してあるので、そっちから開きたいのですが、パスをどのように設定すればいいのか解りません。

すみませんが、アドバイスをお願い致します。

現在notes7で開発を行っている(初心者)なのですが

ビュー内の選択している文書からデータを取ってきて
読み込んだexcelファイルに書き足していきたいのですが、

任意のexcelを開くところまではネットを参考にして出来たのですが
詳細を理解していないため、そのファイルにデータを書き足していくことが出来ません。アドバイスをお願い致します。

現在作ってあるプログラムが以下です。

' 既存のEXCELワークブックを開く
Dim xlApp As Variant ' Excelオブジェクト
' マイドキュ...続きを読む

Aベストアンサー

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

エクセルファイルの取得まではできているようですので、今後は「シートオブジェクトの取得」->「セルを指定して処理」の流れでプログラムを作成すればよいと思います。

例えば、作成済みのプログラムの次に以下のコードを追記すれば、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

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

エクセルファイルの取得まではできているようですので、今後は「シートオブジェクトの取得」->「セルを指定して処理」の流れでプログラムを作成すればよいと思います。

例えば、作成済みのプログラムの次に以下のコードを追記すれば、Excelに書き出しができると思います。

Dim xlWorksheet As Variant'エクセル・シート
'シート名を指定してシートオブジェクトを取得
Set xlWorkSheet = xlApp.WorkSheets( "Sheet1" )
'セルの1行1列目に「あああああ」と...続きを読む

QノーツのデータをVBScriptで取得したい

ノーツのデータをVBScriptで取得しようとしております。
そのために, 次のスクリプトを書きました。

Set objNotes = CreateObject("Notes.Notessession")
databaseName = "xxxxxxx.nsf"
Set objDB = objNotes.GetDatabase("",databaseName)
universalID = "ffdecaef1b87c101c925656e000c02dc"
Set objDoc = objDB.GetDocumentByUNID(universalID)
If objDoc.HasItem("Subject") Then WScript.Stdout.Write("Yes"&vbCrLf)
itemValueList = objDoc.GetItemValue("Subject")
WScript.Stdout.Write(TypeName(itemValueList)&vbCrLf)
WScript.Stdout.Write(itemValueList(0)&vbCrLf)
Set objDoc = Nothing
Set objDB = Nothing
Set objNotes = Nothing

結果は
Yes
String()
C:\temp\notesvalue.vbs(9,1) Microsoft VBScript 実行時エラー: 型が一致しません。: 'itemValueList'

とGetItemValueの値を取得することができません。

上の例では, Subjectというアイテムを取得することにしていますが,
その他のItemでもだめでした。

ノーツのバージョンは4.6a
OSはWindows 2000 Professional
でございます。

識者の方, どうすればGetItemValueから有効な値を取得できるかお教えください。
よろしくお願いいたします。

ノーツのデータをVBScriptで取得しようとしております。
そのために, 次のスクリプトを書きました。

Set objNotes = CreateObject("Notes.Notessession")
databaseName = "xxxxxxx.nsf"
Set objDB = objNotes.GetDatabase("",databaseName)
universalID = "ffdecaef1b87c101c925656e000c02dc"
Set objDoc = objDB.GetDocumentByUNID(universalID)
If objDoc.HasItem("Subject") Then WScript.Stdout.Write("Yes"&vbCrLf)
itemValueList = objDoc.GetItemValue("Subject")
WScript.Stdout.Write(TypeNam...続きを読む

Aベストアンサー

メッセージをそのまま受け取ると,

itemValueListが配列ではないにもかかわらず,
配列として扱っている(itemValueList(0)の部分)

からではないかと思われます。

単なる勘なんですけど,LotusScriptにおいて,
NotesDocumentクラスのGetItemValueの戻り値は
確かにString型の配列ですが,VBScriptで
暗黙的に型変換(文字列とか)されているのでは。

試しに7行目itemValueList = objDoc.GetItemValue("Subject")
の後に,Msgbox(IsArray(itemValueList))で確認して
みて下さい。(配列であればTrueが返るはずです)

またMsgbox(itemValueList)などとして,中身をが改行や
コロンで区切られた文字列リストであれば,Splitで配列を
作成してやればよいかもしれません。

っつーか,Subjectのアイテム数が1つだけ(配列ではない)
ことが確実であれば,そのまま
WScript.Stdout.Write(itemValueList&vbCrLf)とか
できないんでしたっけ?
↑Stdout.Write使った事ないんで,かなりテキトーです。
参考までにWScript.Stdout.Write(TypeName(itemValueList)&vbCrLf)
が何を標準出力に送信してるか教えて頂けると嬉しいです。

メッセージをそのまま受け取ると,

itemValueListが配列ではないにもかかわらず,
配列として扱っている(itemValueList(0)の部分)

からではないかと思われます。

単なる勘なんですけど,LotusScriptにおいて,
NotesDocumentクラスのGetItemValueの戻り値は
確かにString型の配列ですが,VBScriptで
暗黙的に型変換(文字列とか)されているのでは。

試しに7行目itemValueList = objDoc.GetItemValue("Subject")
の後に,Msgbox(IsArray(itemValueList))で確認して
みて下さい。(配列であれ...続きを読む

QEXCELの表をNotesメール本文に貼り付けたい

過去の質問で、同じようなものがあったのでその通りにしてみたのですが、うまくいきません。
excel2003作成の表の一部をメールの本文に表がずれないように貼りつけたいのです。
解決策として、
1.[ファイル] メニューの [送信] をポイントし、[メールの宛先] をクリックします。

2.ブック全体または現在のシートのどちらを送信するかを確認するメッセージが表示されたら、[メッセージ本文として現在のシートだけを送信] をクリックします。

と説明があるのですが、2の選択ができません。
1の時点で、、[メールの宛先(校閲用)]か、、[メールの宛先(添付ファイル)]を選択させられます。

Lotus Notes6.5を使用しています。

どうぞ宜しくお願いします。

Aベストアンサー

シート=表計算ソフトのエクセルで使う縦の「列」、横の「行」という形でマス目の入った計算表が「シート」。表計算ソフト一般では「ワークシート」と呼ばれることが多い。あるいは表計算、一覧表という意味から「テーブル」ということもある。また複数のシートを1つのファイルとしてまとめたものが「ブック」。ファイル=File。

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

Qメール添付データを上書き保存したときの保存先

教えて下さい。
掲題の通り、XPでメールに添付されたエクセルデータを編集した後、
「名前をつけて保存」ではなく「上書き保存」して閉じてしまい
どこに保存されたのか分からなくなりました。
仕事で編集したデータなので困っています。
どのようにすればそのファイルを救出できるでしょうか。

Aベストアンサー

追加情報を少し。
http://www-06.ibm.com/jp/domino04/pc/support/beginner.nsf/btechinfo/SYB0-007CD04

検索時に詳細オプションを変更する必要があるようです。
これで、駄目ならやはり無理かも…

参考URL:http://www-06.ibm.com/jp/domino04/pc/support/beginner.nsf/btechinfo/SYB0-007CD04

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(?)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか?
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします!

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

QEXCEL VBAで計算値を四捨五入、切り上げ、切捨てする方法

ネットで探してみたのですが、計算結果を四捨五入して特定のセルを
返すにはどうしたらいいのでしょうか?

Sub hokangosa()

Dim ZPS As Double
Dim ZPOS As Double
Dim DMN As Double
MsgBox (" >>> 補間誤差自動計算 <<< ")
MsgBox (" >>> 初期値入力します <<< ")
ZPS = InputBox(">>> ステップを入力してください<<<")
ZPOS = Sheet1.Cells(22, 4).Value
DMN = ZPOS / ZPS
Sheet1.Cells(23, 6).Value = DMN
End Sub

ここでDMNの値を四捨五入したいです。

またこれとは別に切上げ、切捨ても教えていただけるとありがたいです。

Aベストアンサー

DMN = Application.WorksheetFunction.Round(ZPOS / ZPS, 0)
で、四捨五入
DMN = Application.RoundDown(ZPOS / ZPS, 0)
で切り捨て
DMN = Application.RoundUp(ZPOS / ZPS, 0)
で切り上げです。

引数で、対象桁を変更できます。


人気Q&Aランキング