• 締切済み

あちこちのファイルを開きたいのだが・・・

初心者です。 会社に5台のPCがありましてLANで接続されていまして、そのうちの1台が私専用です。共有のフォルダで各種の売上入力したり、各々のPCのみで色々作業したりと様々です。使用者がみんな素人なのでフォルダの中にまたフォルダ・・またフォルダ・・またフォルダといった感じで、作業したいBOOKにたどりつくまで大変です。ショートカットを作ればいいと思ってましたが、デスクトップ上が埋まりつつありこれ以上ショートカットを増やしたくもありません。 そこで考えたのですが、各々のPCのデスクトップにあるBOOKにコマンドボタンを作ってキレイに整理しておけば楽かなぁ~と・・・。 いろいろ調べて workbooks.open filename:="aaaaa.xls" なんてのを発見して試したのですが、うまくいきません。BOOKのアドレスが間違っているようなのですが、例えば私のPCのデスクトップにある「BOOK1」を開けるようにするにはどうすればよいのでしょうか?? よろしくお願いします。

  • tsline
  • お礼率44% (108/241)

みんなの回答

  • dgeiji
  • ベストアンサー率0% (0/0)
回答No.2

違う形の回答ですが、きちんとアクセス権を決めたほうがいいかと。 管理者を決めてフォルダの管理(勝手に作れなくする)だけでも だいぶと違うのでは? 推測ですがサーバを立てるまでもない規模だと思います。 それならNASというネットワークHDDを購入して 各自のデータを取りまとめることをお勧めします。 日々アクセスするファイルが増えていくなら 結局 ファイルの追いかけっこになる気がしてなりません。 重複ファイルの存在など会社の発展とともに恐ろしいことになりそ。 質問の内容については私はよくわかりませんが すべてのPCからそのファイルを開ける場合とすると workbooks.open filename: ="\\コンピュータ名\フォルダ名\aaaaa.xls" では? ちなみにブック自体に他人のPCのブックのリンクを張るのは やめた方がいいですよ。

回答No.1

・デスクトップにフォルダを作って、その中にショートカットを入れておく ・セルにハイパーリンクを挿入する ほうが楽だと思います。 VBAでファイルを開きたい場合は、フルパスで表記します。 workbooks.open filename:="C:\Documents and Settings\ユーザー名\デスクトップ\Book1.xls"

関連するQ&A

  • VBA フォルダ内にあるブックをすべて開く

    いつもお世話になります。 デスクトップ上にフォルダ「新しいフォルダ」があり、その中に6つエクセルブックがあります。 Book1.xls Book2.xls Book3.xls Book4.xls Book5.xls と test.xls です。 test.xlsに、Book1~Book5を開く というマクロを作り実行したところ、実行時エラー1004 『Book1.xlsがみつかりません』と表示されます。 Sub test() Dim buf As String, i As Long buf = Dir("C:\Documents and Settings\tsasaki\デスクトップ\新しいフォルダ\*.xls") Do While buf <> "" i = i + 1 Workbooks.Open Filename:=buf 'Cells(i, 1) = buf buf = Dir() Loop End Sub どのが間違っているか教えてもらえますか。

  • 同一フォルダ内のBOOK2.xlsを自動的にマクロで開く方法

    同一フォルダ内のBOOK2.xlsを自動的にマクロで開く方法を教えてください。 ファイルが置いてある場所はネットワーク上にあります。 Workbooks.Open ("\\PC2\フォルダ1\BOOK2.xls") という指示をしたのですがエラーが表示されてしまいます。 行いたいことは現在開いているBOOK1.xls(置いてある場所【\\PC2\フォルダ1】でBOOK2.xlsと同じ) にBOOK2.xlsの一部の内容をコピーしたいのです。 ですので同じフォルダ内のBOOK2.xlsという指定があるとできるのかなっと思いました。 そのような指定の仕方があれば教えてください。 また、無いのであれば、他の方法などありましたら教えてください。 ↓現在のマクロ Workbooks.Open ("\\PC2\フォルダ1\BOOK2.xls") Workbooks("BOOK2.xls").Sheets("Sheet1").Range("A1:AP2").copy Destination:=Workbooks("BOOK1.xls").Sheets(1).Range("DQ1" & R)

  • VBA ファイルの開き方

    マクロでファイルを開くときに Workbooks.open FileName:="\c:=\My Documents\Book1.xls" のように記述しますが、この「Book1」にあたる部分を その日の日付(20090422)のようにするにはどうすれば良いのでしょうか? つまり、ファイル名のところに日付を入れたいのです。 よろしくお願いします。

  • EXcelのマクロで相対パスでファイルを開く

    Excelでマクロを使って他のブックを開こうとしています。 同じフォルダ内のブックを開くには Workbooks.Open Filename:=ThisWorkbook.Path & "\ブック名.xls" で開く事が出来たのですが、一つ上の階層にあるブックを開きたいときはどのようなコマンドを使えば良いのでしょうか?? お教え下さい。

  • ブックの共有をしているexcelファイルの複製

    ブックの共有を設定しているbook1.xlsというexcelファイルがあります。 ブックの共有を行なっているとだんだんデータサイズが肥大化してくるので、その対策として 【1】"book1.xls"のシート単位で全て新しい"book2.xls"にコピーする。 【2】"book1.xls"を別のフォルダへ移動。 【3】"book2.xls"の名前を"book1.xls"に変え、ブックの共有設定を行う。 ということをしています。 これらの作業を自動で行えたらと思うのですが、 タスクスケジューラー?.batファイル?VBA?など、何をどう組み合わせたらよいのかがよくわかりません。 アドバイスよろしくお願いします。

  • VBA Workbooks.open

    ブックを開くコマンド × Workbooks("filename.xls").open ○ Workbooks.open filename:="filename.xls" 何故下なのですか?ワークブックコレクションの中から特定のブックを指定し開くなら、上の構文にした方がワークシートコレクション等と構文表現を統一出来ます。 現にブックを閉じるコマンドは Workbooks("filename.xls").close です。何故ブックを開くコマンドだけ別表現なのですか?

  • エクセルのマクロで、他のブックを開くときについて

    マクロの記録を利用して、他のブックを開くことをしました。 マクロのモジュールを見たら、 ChDir "C:\Documents and Settings\*****\デスクトップ" Workbooks.Open Filename:="C:\Documents and Settings\*****\デスクトップ\○○.xls" となっていました。 1行目の「Chdir」というのはなんでしょう? また、2行目では開きたいブックをパスを使ってあらわしています。 今マクロを動かしているブックと同じフォルダ内にあるブックや そのフォルダから見て上位のフォルダとか、「c:」から始まる パスを使わないような書き方はあるのでしょうか? ご助言お願いします。

  • エクセルVBAでFileNameを使用してブックを開き又は保存する方法

    現在の構文は以下の通り作成し使用しています。 Dim FileName1 FileName1="\\C\台帳.xls" Workbooks.Open FileName1 で目的のブックを開きます。  更新等の作業をした後ブックを保存する場合 Workbooks("台帳.xls").Close Savechanges:=true  で保存していますが、 (1)「FileName1」を使用して保存する方法を教えて頂きたいのですが可能でしょうか。 (2)同時に「FileName1」を使用してブックをアクティブにしたりセレクトする方法も教えて頂きたいのです。 ブックをセーブ・アクティブ・セレクトするたびにブックの名前をいちいち入力していますが、「FileName1」を使用してブック名の入力手間を減らしたいのです。

  • エクセル ファイル名を指定して保存閉じる。

    Sub ブックを開く() Workbooks.Open Filename:="D:\顧客データ\" _ & Range("B1").Value & ".xls" End Sub 上記のマクロでファイルを開き作業をしています。 作業後にファイルを上書保存して閉じるには どのようなマクロになるのでしょうか。 よろしくお願いします。

  • WorkbookのCopyについて

    Workbookのコピーについて教えてください。 下記のマクロにセル内の数式もコピーしたいのですが、出来ないで困ってます。 値と数式をコピーする、マクロを入れると指定した範囲にコピーされません。 Sub CopyWorkbookToWorkbook() Windows("sheet2.xls").Activate Workbooks.Open Filename:="D:\book1.xls" Workbooks("book1.xls").Worksheets("sheet1").Range("A6:k1000").Copy Workbooks("book2.xls").Worksheets("sheet1").Range("A6").PasteSpecial    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False,Transpose:=False          Workbooks("book1.xls").Close End Sub よろしくお願いします。