Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8547 / 13646 ツリー ←次へ | 前へ→

【32631】別のフォルダーに移動したい りょう 05/12/20(火) 9:21 質問[未読]
【32642】Re:別のフォルダーに移動したい Jaka 05/12/20(火) 11:24 発言[未読]
【32647】Re:別のフォルダーに移動したい りょう 05/12/20(火) 13:15 質問[未読]
【32656】Re:別のフォルダーに移動したい Jaka 05/12/20(火) 15:02 発言[未読]
【32655】Re:別のフォルダーに移動したい Kein 05/12/20(火) 14:59 回答[未読]
【32657】Re:別のフォルダーに移動したい Jaka 05/12/20(火) 15:09 発言[未読]
【32663】Re:別のフォルダーに移動したい りょう 05/12/20(火) 16:01 お礼[未読]

【32631】別のフォルダーに移動したい
質問  りょう  - 05/12/20(火) 9:21 -

引用なし
パスワード
    ファイルを使用した後に名前を付けて保存ではなくて、現在ある場所ではなくて
他のフォルダー(使用済フォルダー)にファイルを移動させたいのですが、マクロでできますか?一度Name Asでやってみたんですけど、後から毎回ファイル名が違うのでファイルを指定できないことに気づきまして。もしできるようならどなたか教えて頂けないでしょうか?よろしくお願いします。

【32642】Re:別のフォルダーに移動したい
発言  Jaka  - 05/12/20(火) 11:24 -

引用なし
パスワード
   開いたままの自分ブックを移動させるって事でしょうか?

【32647】Re:別のフォルダーに移動したい
質問  りょう  - 05/12/20(火) 13:15 -

引用なし
パスワード
   ▼Jaka さん:
>開いたままの自分ブックを移動させるって事でしょうか?

スミマセン質問が悪くて。。
どちらでもいいのですが、開いたままなら、
Application.Dialogs(xlDialogSaveWorkbook).Showにしてから元のファイルを削除しようかと思っています。
もっと簡単にファイルを閉じてからファイルを切り取り入れたいフォルダーに貼り付けとかできないかなあと思いまして。。
どうでしょうか?

【32655】Re:別のフォルダーに移動したい
回答  Kein  - 05/12/20(火) 14:59 -

引用なし
パスワード
   Sub Change_Fol()
  Dim Fnm As String, Nm As String
  Const TgPath As String = _
  "C:\Documents and Settings\User\My Documents\使用済み"
  
  With ThisWorkbook
    Fnm = .FullName
    Nm = TgPath & "\" & .Name
    If Fnm <> TgPath Then
     .Save
     .ChangeFileAccess xlReadOnly
     Name Fnm As Nm
     .Close False
    End If
  End With
End Sub

というマクロを入れて実行すれば、そのブックが TgPath に移動して保存されます。
しかし質問の内容から推測すると、Personal.xls に

Sub Change_Fol()
  Dim Fnm As String, Nm As String
  Const TgPath As String = _
  "C:\Documents and Settings\User\My Documents\使用済み"
  
  With ActiveWorkbook
   If .Name <> ThisWorkbook.Name Then
     Fnm = .FullName
     Nm = TgPath & "\" & .Name
     If Fnm <> TgPath Then
      .Close True
      Name Fnm As Nm
      MsgBox .Name & _
      " は使用済みフォルダーへ移動しました", 64
     End If
   End If
  End With
End Sub

というマクロを入れておいて、ツールバーに配置したボタンに登録し、
開いたブックで作業が済んだあと、そのボタンを押せばよいかと思います。

【32656】Re:別のフォルダーに移動したい
発言  Jaka  - 05/12/20(火) 15:02 -

引用なし
パスワード
   開いたままのファイルは、移動できないと思います。
試しに

Name 移動先フルパス As 現在のフルパス

で、やってみたらエラーになりました。
別名保存してから、元ファイルを削除する方法しかわかりませんでした。

【32657】Re:別のフォルダーに移動したい
発言  Jaka  - 05/12/20(火) 15:09 -

引用なし
パスワード
   >     .ChangeFileAccess xlReadOnly
あっそっか、自分killと同じにしちゃえば良かったのか...。

【32663】Re:別のフォルダーに移動したい
お礼  りょう  - 05/12/20(火) 16:01 -

引用なし
パスワード
   jakaさん、keinさんほんとうにありがとうございます。。
できました。うれしい限りです(p_-.)
まだまだ悩むことばかりだけど最近おもしろくなってきました。頑張りますo(^-^)o

8547 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free