HOME 検索 索引 もくじ 関数目次 前ページへ 次ページへ
タイトル欄のアドレスは、 エクセルファンクラブ
の該当する頁へのリンク先です。
詳しい事は、こちらのお願い
をご覧になってください。
21 ファイルを他のフォルダに移動するには?
22 現在開いているファイルを、指定のフォルダに移動するには?
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
21 | ファイルを他のフォルダに移動するには? http://www.ae.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200207/02070073.txt 「あるフォルダー内にあるテキストファイルを任意のフォルダーに移動させるには・・・?」 【VBAラウンジ】 |
C:\My
Documents\miko フォルダ内の、test.xls を、C:\My
Documents に移動します。 Sub test() Name "C:\My Documents\miko\test.xls" As "C:\My Documents\test.xls" End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 |
|
22 | 現在開いているファイルを、指定のフォルダに移動するには? http://www.ae.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200208/02080038.txt 「ファイルを開いたフォルダからは削除して 別のフォルダに移動させるには」 【VBAラウンジ】 |
現在開いているファイルを閉じて他のフォルダに移動します。 このコードを書き込んだファイルは処理しません。 Sub miko_test() Dim M As Object, MN As String, P As String, F As String For Each M In Workbooks If M.Name <> "PERSONAL.XLS" And M.Name <> ThisWorkbook.Name Then P = M.Path MN = M.Name If MsgBox(M.Name & "の変更を保存して(変更がない場合はそのまま)、他のフォルダに移動しますか?", _ vbOKCancel + vbQuestion) = vbOK Then F = InputBox(prompt:="移動先フォルダのフルパスを入力してください。", _ Title:="移動先フォルダの指定", Default:="C:\My Documents") If F = "" Then Exit Sub Workbooks(M.Name).Close SaveChanges:=True Name P & "\" & MN As F & "\" & MN End If End If Next End Sub このコードの使い方は、マクロの使い方(1)標準モジュールにあります。 |
|
23 | |
24 | |
25 | |
26 | |
27 | |
28 | |
29 | |
30 | |
31 | |
32 | |
33 | |
34 | |
35 | |
36 | |
37 | |
38 | |
39 | |
40 | |