エクセルの学校：全文検索：Hyper Estraier： cell filename

Results of 1 - 1 of about 295 for cell filename (0.001 sec.)

cell (1170), filename (1984)

[[20110324224118]]: #score: 11157; @digest: e9a427bbac70ff2342799e72301b4bf2; @id: 53880; @mdate: 2011-03-26T22:30:15Z; @size: 5817; @type: text/plain; #keywords: 存¥ (35636), 項フ (30483), 通事 (27204), 存” (17779), 業表 (14531), 存2 (10316), beforesave (10207), プ作 (7707), ァル (7666), 般オ (6095), 存→ (5914), savecopyas (5596), 保存 (5153), 前付 (5102), 事項 (3713), 上書 (3444), クア (3102), ichinose (2892), ダ内 (2746), フル (2707), き保 (2677), ファ (2615), 共通 (2586), thisworkbook (2558), 全般 (2352), ルパ (2284), filename (2225), パス (1891), ルダ (1859), workbook (1817), ァイ (1687), バッ (1619); 『任意のファオルダへバックアップを作成』（初心者）
Excel2003 WindowsXPを使用しています。会社で自分のPCのマイドキュメント内にある作業表というファイルがあります。自分のPCの中のファイルが原本で社内のLAN内のサ-バーの共通事項というフォルダ内へ複写し他のメンバーが誰でも見れるようにしてあります。使いかたは自分のPCの作業用ファイルを変更し、LAN内の共通事項ファルダ内の作業表というファイルへも上書き保存をしています。今回の質問ですが、自分のPCのファイルを上書き保存した際に共通事項ファルダ内の作業表ファイルにも上書き保存するにはどうすればいいでしょうかということです。全文検索で確認したのですが名前付けて保存→ツール→全般オプションでのバックアップ作成・・の方法は同じフォルダ内にバックアップが作成されるとありました。どのようなマクロをつくればいいでしょうか ---- VBAを使えば可能な処理です。コードも経験があれば、比較的容易です。 Workbookの BeforeSaveイベントを利用します。このワードから、検索してください。知らなければ、ミラーリングソフトを試してみては? http://www.vector.co.jp/soft/win95/util/se061150.html ↑参考因みに >名前付けて保存→ツール→全般オプションでのバックアップ作成は、同じブックを二つ作成しているわけではありませんよ!! ichinose ---- ichinoseさん。ありがとうございます。完全に間違えていました。＞因みに >名前付けて保存→ツール→全般オプションでのバックアップ作成＞は、同じブックを二つ作成しているわけではありませんよ!! の意味がわかりました。誤って上書き保存した場合に、元のファイル状態のファイルがあるということだっったんですね。まったく同じファイルという意味でバックアップだと思ってました。2世代管理というか・・・そんな機能ですね。 Workbookの BeforeSaveイベントというのを確認してみます。（初心者） ---- Workbookの BeforeSaveイベント調べてみましたがよむわからないので違う角度で探してみました自分のPCのドライブ Dのフォルダ:保存というところに aaaというファイルを作っておき、そこへ上書き保存をしたいと考えてみました。 Sub 保存2() ChDir "¥¥d¥保存” ActiveWorkbook.SaveAs Filename:="aaa” End Sub 実行すると「パスが見つかりません」というエラーになります。どういう風にコードを書けばいいでしょうか（初心者） ---- エラーメッセ維持は正確に問題点を指摘していると思います。 ChDir "¥¥d¥保存” というパスがないのではないですか? 保存フォルダが Dドライブであるなら、"D:¥保存" です。 (Mook) ---- >自分のPCのドライブ Dのフォルダ:保存 Sub 保存2() thisWorkbook.SaveAs Filename:="d:¥保存¥aaa.xls” End Sub ChDir "¥¥d¥保存” やるなら ChDrive "d:" ChDir "d:¥保存" ですが、保存するだけですからカレントフォルダを変更する必要はないです。 >Workbookの BeforeSaveイベント調べてみましたがよむわからないのでこれを使えば >自分のPCのファイルを上書き保存した際に >共通事項ファルダ内の作業表ファイルにも上書き保存するこれは、実現可能です。これは、標準モジュールではなく、ThisWorkbook のモジュールに記述します。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' ここに別ファイル名で保存するコードを記述します。 Const bknm = "本来のブック名" If ThisWorkbook.Name = bknm Then ThisWorkbook.SaveCopyAs "フルパス" End If End Sub 勿論、 Const bknm = "本来のブック名" や ThisWorkbook.SaveCopyAs "フルパス" には、本来のブック名には、ご自分でつけた名前、フルパスも共通事項フォルダ内の作業表という名前のフルパスを指定します。 ichinose ---- Mookさん。ありがとうございます。ichinoseさんの＞thisWorkbook.SaveAs Filename:="d:¥保存¥aaa.xls”でもご提示して頂いている D:¥保存という表現確認しました。 ichinoseさん。ありがとうございます。 >thisWorkbook.SaveAs Filename:="d:¥保存¥aaa.xls”で今のファイルを d:¥保存¥aaaに保存（上書き保存）できました。一歩前進しました。今は自宅ですので、月曜日に出社して会社の環境でご提示のコードを実行してみます。（初心者） ---- よく見かける質問ですので、ネットで検索するといろいろと見つかると思います。以前別の掲示板で回答したものですが、コピーを利用した例です。 Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.EnableEvents = False ThisWorkbook.Save Application.EnableEvents = True With CreateObject("Scripting.FileSystemObject") .CopyFile ThisWorkbook.Path & "¥" & ThisWorkbook.Name, "D:¥保存¥aaa.xls", True End With Cancel = True End Sub FileSystemObject を使用しなくとも FileCopy でできるかと思ったのですが、試したときにエラーが出たので、こちらを使用しています。 (Mook) ---- Mookさん。再度のご支援ありがとうございます。上記のコードで"D:¥保存¥aaa.xls"に保存できました。コードの内容は正直あまりわかりませんがマクロの記録で「上書き保存」を記録したらThisWorkbook.Saveが記録されましたので今のファイルを上書き保存をするコードだと理解しました。＞Private Sub Workbook_BeforeSave〜は保存する際は以下の処理をすると覚えました。全文検索で =LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))) これでファイルまでのフルパスが表示できそうなので、出社した際にパス確認しMookさんや、ichinoseさんのコードを実行してみます。（初心者） ---- 補足説明ですが、上書き保存の部分は良いですが、保存した後にファイルを「コピー」しています。 Ctlキーを押してファイルをフォルダからフォルダにドラッグ&ドロップしてコピーするのと同様の処理です。ですからEXCEL ファイルとしては一時的にでも、他の名前になるわけではありません。 (Mook) ---- Mookさん。たびたびありがとうございます。なるほどなあ・・・です。（初心者） ---- >EXCEL ファイルとしては一時的にでも、他の名前になるわけではありません。という観点からすれば Sub 保存2() thisWorkbook.SaveCopyAs Filename:="d:¥保存¥aaa.xls” End Sub これにすればよいです。 ichinose ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201103/20110324224118.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ