| |
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
というマクロを入れておいて、ツールバーに配置したボタンに登録し、
開いたブックで作業が済んだあと、そのボタンを押せばよいかと思います。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
