Excel VBA質問箱 IV

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

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


49002 / 76732 ←次へ | 前へ→

【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

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

【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 お礼

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