• 締切済み

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

ノーツの添付ファイルの場所を知りたい 例えばAAA.xlsとBBB.csvがありAAA.xlsにＶＢＡで BBB.csvをオープンするコードが書いてあります。 　　Open ThisWorkbook.Path & "\bbb.csv" For Input As #1 AAA.xlsとBBB.csvが同一フォルダーにある時はＯＫなのですが ノーツの掲示板の１文書にこの２つを添付してマクロを実行しても BBB.csvがnot foundになってしまいます。 　　注１．ThisWorkbook.Pathはc:\....の中のtemporaryのようです 　　注２．実際の問題はBBB.csvではなく数万件のAccess.mdbなのであらかじめ 　　　　　AAA.xlsにデータを保持することは不可能です 何か良い解決策はありますでしょうか？ よろしくお願いします。

みんなの回答

回答No.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 ファイルを開くとかするのがベストだと思う。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【Excel】「リンクを更新する」のダイアログを表示させないようにするには

    教えて下さい！ AAA.xlsとBBB.xlsというファイルがあります。 AAA.xlsを開くと自動的にBBB.xlsが開くようになっています。 BBB.xlsにはグラフがあり、AAA.xlsからデータを読んでいるため「リンクを更新しますか？」というダイアログが表示されてしまいます。 これを表示させないようにするにはどういう記述をしたらよろしいでしょうか？ AAA.xlsを開く際にBBB.xlsも開くように、AAA.xlsに以下のように記述してあります。 ================================================================ Sub Auto_open() Workbooks.Open Filename:=ThisWorkbook.Path & ("\BBB.xls") Workbooks("AAA.xls").Worksheets("Sheet1").Activate End Sub ================================================================ その記述に付け加える形になると思うのですが。 宜しくお願い致します。

  • エクセルＶＢＡ、他のファイルからのコピー

    ＢＢＡ初心者です aaa.xlsのマクロで aaa.xls にbbb.csvのデータを貼り付けたいのですが Sub () Windows("bbb.csv").Activate…ここのbbbってところをセル参照にしたいのです ActiveCell.Range("A1:A10").Select Selection.Copy Windows("aaa.xls").Activate ActiveSheet.Paste End Sub １つ上のセルにbbbと入力されていればbbb.csvのデータを １つ上のセルにcccと入力されていればccc.csvのデータを 貼り付けれるようなマクロはどう書けばいいのでしょうか よろしくお願いします

  • VBAによるカレントフォルダのファイルを検索し開く

    カレントフォルダ内にファイル(コ―ド.xls)を見つけ開き、無ければＭＳＧ表示したい。 どのように、したらいいですか？ 考えているのは、 Application.DefaultFilePath = ThisWorkbook.Path If ??? Then Workbooks.Open "コード.xls" else msgbox (ThisWorkbook.Path & "にコード.xlsを置いて下さい。") Exit sub end If です。 この？？？の部分を教えて頂きたいと思います。 よろしくお願いします。

  • エクセルVBAでパスの￥マークについて

    このマクロを記述したBOOKと同じフォルダー内にある、シート001.xls　を開くマクロです。 同一フォルダーにあるのですから、このような記述になると思います。 Sub kakunin1() Workbooks.Open (ThisWorkbook.Path & "\" & "シート001.xls") End Sub しかし、以下の３つはすべてシート001.xls　を開くことができました。 Sub kakunin2() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "シート001.xls") End Sub Sub kakunin3() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "シート001.xls") End Sub Sub kakunin4() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "\" & "\" & "\" & "シート001.xls") End Sub パスの￥マークは階層をあらわすのだと思っていましたがいくつ重ねてもなぜ開くのでしょうか？非常に初歩的な質問だと思いますが、ご教示いただければ幸いです。

  • ExcelのVBAで、他のExcelファイルのセルのデータを取得

    ExcelのVBAで、他のExcelファイルのセルのデータをファイルを実際に開かずに取得する方法はありますか？ Workboks.openを使わずに、具体的にどうすればいいのでしょう？ （例） 　AAA.xls のセル"C5"に BBB.xls のセル"B3"のデータを入力したい場合。 （AAA.xlsにマクロを起動するボタンがある） ただし、BBB.xlsの最初の3行は空白です。

  • 現在、以下のような処理のマクロ[EXCEL2000]を作成しております

    現在、以下のような処理のマクロ[EXCEL2000]を作成しておりますが、 今月から初めて携わる分野なので四苦八苦しております。 お力添えをお願いいたします。 なお、下記に出てくるディレクトリに関しては、今後変更も考えられますので コンフィグファイルを別途用意して指定するように作成します。 以下、処理の流れです。 (1)Ａと言うディレクトリに以下のようなCSVファイルが格納されています。 ※例 　20100201_AAA.csv 　20100201_bbb.csv 　20100201_ccc.csv 　20100202_AAA.csv 　20100202_bbb.csv (2)日付選択画面にて指定の日付を選択し、作成ボタンを押下します。 　※添付ファイルの画像参照 (3)指定された日付からＡに格納されているCSVファイルを選択し、 　対象ファイルのデータを新規EXCELファイルにコピーします。 　※例 　　2010年2月1日を選択した場合、以下のファイルが対象となります。 　　20100201_AAA.csv 　　20100201_bbb.csv 　　20100201_ccc.csv (4)新規EXCELファイルをCSVファイルと同名でＢのフォルダへ保存します。 　※例 　　20100201_AAA.xls 　　20100201_bbb.xls 　　20100201_ccc.xls (5)終了 このような流れになっていますが、日付指定の画面作成から すでに躓いております。 お手数ですが、ご教授いただけますと助かります。 また今後の勉強のために、お勧めのサイトなどございましたら 教えていただけると幸いです。 それではよろしくお願いいたします。

  • VBA の Application.Run でエラー発生

    独学で勉強したVBAなのですが、とても困っています。 AAA.xls BBB.xls CCC.xls というファイルがあるとします。 AAAを起動すると、BBBを起動して、 Application.Run "'BBB.xls'!TEST" で、BBBのTESTを実行するようにしています。 TESTを実行すると、 Workbooks.Open filename:=ActiveWorkbook.Path & "\CCC.xls", Password:="XXX", WriteResPassword:="XXX", ReadOnly:=True でCCCを起動して、CCCのシートの値をBBBにコピーしてくるようにしています。この一連の処理において、 「実行時エラー'2147352567(80020009)' 'Run'メソッドは失敗しました:'_Application'オブジェクト」 が発生します。 これらは共有サーバー上で動作させているのですが、 困ったことに、エラーが発生する人と、そうでない人がいます。 理由が全くわからず、非常に困っています。 教えていただけたらとても助かります。 何卒よろしくお願いいたします。

  • VBAでエクセルからエクセルのファイルを開くには？

    D:\に db1.mdb Book1.xls があります。 db1.mdbのフォームのコマンドボタンをクリックして Book1.xlsを開きたいのですが ＶＢＡコードをご教授いただけますか？ （マクロではなくＶＢＡコードが知りたいです） エクセルからエクセルのファイルを開くなら Workbooks.Open ファイルのフルパス で出来ました。 ご回答よろしくお願いします。

  • VBA 複数のファイルの特定の列だけ取得してマージ

    お世話になっております。 VBAで、複数のCSVファイルの特定の列だけを抽出して別のCSVファイルにマージする方法を探しています。 例えば、マージフォルダに1000のCSVファイルがあります。 1000あるファイルのA列とC列だけを抽出して、 それを別の「マージ.CSV」というファイルにA列とB列にマージして一つにしたいのです。 1000のファイルにはA~Qまで値が入っていて、A~Q列の値全て取り込みマージするとデータが重くなってしまうのです。 Unionメソッドを仕様して列を選択するのかなと思うのですが。。。 現在、こちらのコードを参考にしています。 わかる方いましたらよろしくお願いいたします。 Sub csvmerge() wpath = Range("B3") wfile = Dir(wpath & "\") flag = 0 Do While wfile <> "" If InStr(wfile, ".csv") Then flag = flag + 1 If flag = 1 Then FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "\output.csv" Open ThisWorkbook.Path & "\output.csv" For Output As #1 Close #1 End If Open ThisWorkbook.Path & "\output.csv" For Append As #1 Open wpath & "\" & wfile For Input As #2 Do Until EOF(2) Line Input #2, w_str Print #1, w_str Loop Close #2 Close #1 End If wfile = Dir() Loop MsgBox "マージ完了", vbInformation End Sub

  • セルの参照エラー

    VBA初心者です。 よろしくお願いします。 excelのVBAで複数のcsvファイルを読み込み１つのブックにまとめるツールを作成しています。 csvの１つは各ｃｓｖからデータ参照する作りになっています。 例） aaa.csv =bbb!R1C1,=ccc!R1C1 bbb.csv 11 ccc.csv 12 上記３つのcsvファイルを１ブックにまとめた場合 aaaシートは11　１２と表示されることを期待していますが 結果は参照エラーとなってしまいます。 よい対処方法ががあれば教えて下さい。 処理内容は以下の通りです。 ・csv.csvを読みこみ「まとめ.xls」として保存 ・bbb.csvを読みこみ「まとめシート」に移動 ・aaa.csvを読みこみ「まとめシート」に移動

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する