Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49006 / 76736

←次へ　｜　前へ→


	【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