• 締切済み

エクセルのマクロで複数箇所に保存したい

ネットワーク上のエクセルファイルを更新し、保存する際に、一度に複数箇所に保存できるマクロはありますか? 会社で、AとBの共有ドライブがあるのですが、AとBのドライブはそれぞれアクセス権限が違うため、Aのドライブにアクセスできる人はBにアクセスできません。しかし、Bにアクセスできる人はAにもアクセスできます。 更新しているファイルは便宜上Bのドライブ上にあるのですが、Aしか見られないユーザーも見たい情報です。よって、面倒ですが両方アクセス出来るユーザーがAの指定場所にコピーしています。Aの指定場所とBの正規の保存場所に保存時に一度に保存が出来るマクロはできますか?

noname#143314
noname#143314

みんなの回答

noname#16474
noname#16474
回答No.1

マクロの問題以前に すべてのユーザはAにアクセスできるのであるから Aだけに保存すれば良いのではないでしょうか?

noname#143314
質問者

補足

Bドライブは会社の1つの部署の範囲のみ共有となっており、Aドライブはそれぞれの部が共有できる会社全体の共有ドライブのような使い方のため、部署内のデータはやはりBに保存しておきたいのです。Aにも保存したいと言うのは正の文書を自分のドライブに保存しておいて写しをみんなが見られるドライブにも別に置きたいということです。説明が下手で申し訳ありません。大勢の人が閲覧できる場合、書式を変更されてしまったり、間違って移動されてしまったり削除されてしまったりと、苦い経験があるためです。

関連するQ&A

  • エクセルで他のパソコンに保存したい。

    ネットワーク初心者ですが、よろしくお願いします。 エクセルで作ったソフトをLANでつないでいる 3台のパソコンに入れました。 そのソフトでは、マクロで他のファイルを開いたり 保存したりするようにしています。 AのパソコンからBのソフトを起動して ファイルを開いてから保存すると Aのパソコンに保存されてしまいます。 Bのソフトを起動した時は、Bに保存したいのです。 マクロで保存場所を”D:\~”と指定しているため、 現在使用しているAのDドライブに保存される という理屈はわかるのですが、 ではどうしたらBに保存できるのか 指定方法がわかりません。 保存場所をどのように指定すればよいのでしょうか。

  • エクセル マクロでシートをデスクトップに保存する

    ファイルにある複数のシートの中から、Bシートだけを抜き出してデスクトップに保存するマクロがわかりません。マクロ記録でコードの確認はできますが、 保存先がC\user\自分のユーザー名¥Desktopとなっているので、他の人に配布して別のパソコンで使用できるものでしょうか。 理想としては、 複数あるシートの中からひとつだけを抜き出して、デスクトップに保存。 抜き出したシートの名前は、指定してあるセルに入力された単語。 抜き出したシートを開いた時に「更新 更新しない」のリンクのメッセージが表示されない。 このようにしたいです。

  • エクセルのマクロでユーザーフォムの・・・

    保存してあるエクセルファイルAにユーザーフォーム1と標準モジュールが入っています。 エクセルファイルBにユーザーフォーム2が入っています。 ファイルBのユーザーフォーム2をファイルAにコピーいたいのですが、手動ではエクスポト・インポートで出来ますが、マクロでやる方法はありませんか? m(_ _)m

  • エクセルのマクロで別ファイル(エクセル)のマクロを実行させるには?

    エクセルにおいてマクロを組んでいます. 1.実行させたいマクロAが組んであるファイル(Aファイルとします)が多数あります。またマクロAはモジュール内(Module1)に作っております。 2.1のマクロAを別のエクセルファイル(Bファイルとします)のマクロBで実行させたい. 上記のようなことを行いたいのですが可能でしょうか?さらに言えば、マクロBによってマクロAのプロシージャを指定して実行させることは出来るでしょうか? 現在は、マクロBによってマクロAを組んであるAファイルを開き、Aファイルのマクロの中にファイルを開いたときにマクロAを実行させる(イベントドリブン)ようにしています. 直接、マクロBでAファイルのマクロAを動かせるようになればマクロAにイベントドリブンなコードを組む手間がなくなるので、なんとかそのような事が出来ないでしょうか? どうか、詳しい方ご教授ください。 よろしくお願いいたします。。。

  • Excelマクロでファイルを開き、別名での保存方法

    Excel VBAについて確認させてください。 Excel VBAで下記のようなプログラムを作成しました。 簡単に言えば元のファイルを開いて、元のファイルにある処理をして ファイル名を変えて保存するといったマクロです。 ですが、下記のプログラムはInputBox 関数で ユーザにわざわざフルパス(C:\・・・)で入力させる必要があります。 (変数A1の部分です。) この部分をこのマクロの存在するディレクトリの場所を何らかの関数?で あらかじめ検索してその場所を引数に渡して指定しておき、 ユーザにはファイル名のみ入力させる方法に改良したいのですが その方法をご教授いただけますでしょうか。 (チェックするファイルはこのマクロと同じディレクトリにあることになっている設定です。) そして保存するときもフルパス(C:\・・・)でわざわざ入力する必要があります。 (下記のプログラムでは変数A2) そこでこのマクロの存在するディレクトリの場所を何らかの関数?で あらかじめ検索してその場所を引数に渡して指定しておき、 そこに自動的に名前を変えて保存する方法に改良したいのですが その方法をご教授いただけますでしょうか。 (たとえば111.txtを処理した場合、111処理済.txtとして自動的に保存。) 以下、プログラム本文です。 ------------------------------------- Sub charactercheck() Dim a As String Dim y As Long Dim A1 As String Dim A2 As String A1 = InputBox("チェックしたいファイル名をパス名から入力してください。") A2 = InputBox("チェック結果を保存するファイル名をパス名から入力してください。") With CreateObject("Scripting.FileSystemObject").GetFile(A1).OpenAsTextStream a = .ReadAll For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row a = Replace(a, Cells(i, 1), "") Next .Close End With With CreateObject("Scripting.FileSystemObject").OpenTextfile(A2, 2, True) .Write a .Close End With End Sub

  • Excel マクロで、ファイル形式を一括変更したい

    Excel マクロで、ファイル形式を一括変更したいです。 デスクトップにある「Aフォルダ」の中に xlsファイルが100ほどあります。 それらのファイルを xlsxファイルに変更して、同じくデスクトップにある「Bフォルダ」に保存したいです。 わからないなりに、つぎはぎでやってみたのですが、保存場所の指定がうまくいかなくて困っています。 よろしくお願いします

  • エクセルのマクロ「名前を付けて保存」について

    エクセルのマクロ「名前を付けて保存について」質問です。 エクセルのファイルを指定フォルダに名前を付けて保存するVBAは作れたのですが、 たとえば、毎回 ボタンを押すとシート内("A4")と決まった言葉で保存したいです。 やり方を教えてください! ※すみません。今日の打ち合わせで使用したいので急ぎめでお願いします。

  • 複数のファイルにまたがるマクロについて

    詳しい方、教えて下さい。 あるファイル(Aとします)に、データが入っています。 そのデータを、複数の別ファイル(B,C,Dとします)に一度にコピーできるマクロというのは作成可能でしょうか。具体的には、ファイルAのワークシートに3銘柄の株価データが入っており、それをそれぞれファイルBCDのシート(同じ形式のファイルで、コピーする場所も同じです)に1回のマクロでコピーしたいのです。つまり、BCDのワークシートそれぞれでマクロを作成するのではなく、一発でAからBCDへのコピーができるマクロが可能か知りたいのです。また、そのマクロを動かす時に、BCDファイルを開いていなくともコピーはできるのでしょうか。少しわかりにくい質問かもしれませんが、宜しくお願い致します。

  • EXCELのマクロで保存するときのメッセージ

    CSVファイルを上書き更新後、ファイルを閉じる作業をしたいのですが、EXCEL2000のマクロでその作業を行うと、次のメッセージがでて、次の手作業の要求がきます。 (1)ファイルの上書きするとき  この場所にAAAというファイルが既にあります。置き換えますか・・・はいのクリック (2)ファイルを閉じるとき  AAAへのファイルの変更を保存しますか・・・いいえをクリック この(1)(2)の作業も、マクロに書きたいのですが、どうすればよいのでしょうか 現在のマクロは ActiveWorkbook.SaveAs Filename:= _ "C:\AAA.csv" _ , FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close よろしくお願いします

  • エクセル2003マクロ

    特定のフォルダに同じサンプルNoのファイルがA~Dまで4種類ずつあり、これらから必要なデータを抽出し、同一Noに対して一つの集計ファイルを作成するマクロを作りたいと思っています。 ユーザーフォームで1台ずつサンプルNoを入力すれば、抽出→集計まで処理できるコードはできたのですが、サンプルNoを指定せずにコマンドボタン1発でフォルダ内のサンプル全てを同様に処理できる方法が分かりません。色々なサイトを覘きましたが、妥当な例がなく困っています。 ファイル名はそれぞれ、 A-1.xls、B-1.xls、C-1.xls、D-1.xls、A-2.xls、B-2.xls・・・という規則でついていて、全て同じフォルダに保存されています。 どなたか良い知恵をお貸し下さい。

専門家に質問してみよう