[[20130517161047]]　『ファイルの移動について』（YURI）　ページの最後に飛ぶ

『ファイルの移動について』（YURI）

 ①既存のファイルを編集し、上書き保存 
 ②セルの値("Z1")を参照して名前を付け、
   指定したフォルダ("\\サーバー名\共有名\フォルダ名\")に保存
 ③元のファイルは削除
 ④Excelの終了

 としたいのですが
 ②と③のコードがわかりません。

ご教授お願い致します。

Excel2007
WindowsXP

 ちょっと疑問点があるのですけど。

 １．このコードはどのブックに書かれることになるのですか？
 　　「①」で書かれている既存のファイルですか？
 　　それとも全然別のファイルですか？

 ２．元のファイルとは、「①」で書かれた既存のファイルですか？
 　　だとすると、「①」で説明されているような上書き保存は意味ないですよねぇ。
　　 どうせなくなるのですから。
　　 万一「②」でトラぶった時に備える為ですか？

(半平太) 2013/05/17(Fri) 17:25

半平太さま
ありがとうございます。

 説明不足で申し訳ありません。

 1.コードは既存のファイルに書かれています。

 2.既存ファイルと元ファイルは同じです。

 目的としましては、電子回覧です。
 コメントを入力したものを上書き保存し、別の人（フォルダ）に送る
 といった内容です。
 （マクロ付のファイルが移動するようになります）

 宜しくお願い致します。

(YURI)

 回覧目的なら、オリジナルはいじらず移動先にショートカットをおくのではダメでしょうか。
 (Mook)

Mookさま
ありがとうございます。

 回覧する順番が決められていまして
 コメントがなくても、見た日付と名前の印を押さなければならないため
 この様になってしまいました。

 既存ファイルの内容は、ただのフォーマットです。
 それに必要な内容を入力し、流すような形を取ります。

(YURI)

 うーん、意図が伝わっていないでしょうか？
 ファイルは最終的に保存されるフォルダででも管理しておいて、回覧者のフォルダに
 ショートカットを置くようにし、マクロで回覧が終わったら自分のフォルダのショート
 カットを削除して、次の人のフォルダ？にショートカットを置くようにすれば、
 今回やろうとしていることと、見た目同じ運用ではないでしょうか。

 そうであれば、ファイルを削除して喪失するという危険性は軽減できると思います。
 (Mook)

Mookさま
ありがとうございます。

 正直、私も他に方法があると思ったのですが…

 上司の思うものを形にするのは難しいですね。

 Mookさまが提案してくださった内容を伝えてみます。
 ありがとうございました。

 こう云う危なっかしい仕掛けは、私もマクロを覚えたての頃に考え、
 トライし、そして上手くいかなかった、と云う記憶があったのですが、
 今回、改めてトライしてみると、やってやれないこともない、
 と云う認識に変わりました。

 とは言え、私自身は、実際に活用する気にはなれないので、深入りしません。
 他に手段がなければ、手を入れてみてください。

 Sub SAVEnDEL()
     Dim FLName As String
     Dim thisWB As Workbook
     Dim originalFLname As String

     Set thisWB = ThisWorkbook
     originalFLname = thisWB.FullName

     With thisWB
         .Save
          FLName = .Sheets(1).Range("Z1").Value & ".XLSM"
         ChDir "\\サーバー名\共有名\フォルダ名"
         .SaveAs FileName:= _
             "\\サーバー名\共有名\フォルダ名\" & FLName, _
             FileFormat:=xlOpenXMLWorkbookMacroEnabled
     End With

     Kill originalFLname

     Application.Quit
     thisWB.Close

 End Sub

 (半平太) 2013/05/17(Fri) 22:12

半平太さま
ありがとうございます。

 コード教えて下さりありがとうございました。

 使用については上司と検討後となりましたが
 私にとってはかなり勉強になりました！

 マクロに触れてからまだ日が浅く
 分からないことだらけです。

 またお邪魔してしまうかもしれませんが
 今後とも宜しくお願い致しますm(__)m

(YURI)

コメント返信：

[ 一覧(最新更新順) ]

[[20130517161047]] 『ファイルの移動について』（YURI） ページの最後に飛ぶ

[[20130517161047]]　『ファイルの移動について』（YURI）　ページの最後に飛ぶ