質問編集履歴
2
内容の訂正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VBA
|
|
1
|
+
【VBA】フルパス指定せずにサブフォルダ内のファイルを親フォルダに移動したい
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
|
-
#
|
|
2
|
+
#VBAで複数のサブフォルダ内にあるファイルを上階層のサブフォルダに移動したい。
|
|
3
3
|
一番下のサブフォルダ〔item〕内の各ファイルを、サブフォルダ〔A○○○○〕に移動したい。
|
|
4
4
|
※イメージ：
|
|
5
5
|
〔全てのファイル保存先〕 ※親フォルダ
|
|
@@ -11,12 +11,8 @@
|
|
|
11
11
|
※補足：
|
|
12
12
|
・〔〕はフォルダを指します。『→』は「中にある」と読んでください。
|
|
13
13
|
・〔A○○○○〕および〔attachitem○○〕の○部分は常に変わります。
|
|
14
|
-
・〔A○○○○〕は
|
|
14
|
+
・〔A○○○○〕は大量にあり、その中にある〔attachitem○○〕は1～3個。
|
|
15
|
-
##2.各ファイルを上の階層のフォルダに移動した後、そのフォルダ名を中にあるExcelのセルに入力されている文字列に変更したい。余分なフォルダを削除したい。
|
|
16
|
-
各ファイルを〔A○○○○〕に移動し、フォルダ名をフォルダ内のExcelのセルに入力されている文字列に変更したい。その後、〔attachitem○○〕と〔attached〕を削除したい。
|
|
17
15
|
|
|
18
|
-
|
|
19
|
-
|
|
20
16
|
### 発生している問題・エラーメッセージ
|
|
21
17
|
|
|
22
18
|
```
|
|
@@ -46,7 +42,8 @@
|
|
|
46
42
|
|
|
47
43
|
### 試したこと
|
|
48
44
|
|
|
49
|
-
上記の通り、〔A○○○○〕と〔attachitem○○〕は都度名前が変わるため、フォルダパスにワイルドカードを使ってみましたが、上手くいきませんでした。
|
|
45
|
+
上記の通り、〔A○○○○〕と〔attachitem○○〕は都度名前が変わるため、フルパスで指定することができません。そこでフォルダパスにワイルドカードを使ってみましたが、上手くいきませんでした。
|
|
46
|
+
パスを指定せずに〔attached〕から先のサブフォルダ内にあるファイルを検索し、移動させることは可能でしょうか。
|
|
50
47
|
|
|
51
48
|
### 補足情報（FW/ツールのバージョンなど）
|
|
52
49
|
|
1
書式の改善
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
|
|
1
|
+
VBAで複数階層下のサブフォルダ内にあるファイルを指定のフォルダに移動したい
|
body
CHANGED
|
@@ -48,9 +48,6 @@
|
|
|
48
48
|
|
|
49
49
|
上記の通り、〔A○○○○〕と〔attachitem○○〕は都度名前が変わるため、フォルダパスにワイルドカードを使ってみましたが、上手くいきませんでした。
|
|
50
50
|
|
|
51
|
-
大変申し訳ございませんが、知恵を貸してください。
|
|
52
|
-
よろしくお願いいたします。
|
|
53
|
-
|
|
54
51
|
### 補足情報（FW/ツールのバージョンなど）
|
|
55
52
|
|
|
56
53
|
Windows10 Excel2016を使用しています。
|