teratail
回答率
85.47%
質問するログイン新規登録
トップVBAに関する質問Accessデータ連携のVBAによるファイル名変更

編集履歴

回答編集履歴

7

編集

2023/04/25 13:49

投稿

logres_Fan
logres_Fan

スコア164

test CHANGED
@@ -19,14 +19,15 @@
19
19
  T‘sWare#100 FileSystemObjectでファイルの情報を列挙する方法
20
20
  https://tsware.jp/tips/tips_100.htm
21
21
 
22
- |社外購買番号|旧ファイルパス|
23
- |:--|:--|
24
- |B0001| C:¥..ディレクトリ(略)¥202302-00010_B0001_株式会社田中_00.pdf |
25
- |B0001| C:¥..ディレクトリ(略)¥sample2.pdf |
26
-
27
22
  |社外購買番号|サプライヤー|
28
23
  |:--|:--|
29
24
  |A0001 |株式会社山田|
30
25
  |B0001 |株式会社田中|
31
26
  |C0001 |株式会社小川|
32
27
 
28
+ |社外購買番号|旧ファイルパス|社内購買番号|語尾|
29
+ |:--|:--|:--| :--|
30
+ |B0001|C:¥..(略)¥202302-00010_B0001_株式会社田中_00.pdf |手動入力| 手動入力|
31
+ |B0001|C:¥..(略)¥sample2.pdf |手動入力| 手動入力|
32
+
33
+

6

編集

2023/04/25 11:38

投稿

logres_Fan
logres_Fan

スコア164

test CHANGED
@@ -9,13 +9,24 @@
9
9
  https://tsware.jp/tips/tips_304.htm
10
10
  ```AccessVBA
11
11
  Dim File As Object
12
- For Each File In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..(略)¥A0001¥完了¥“).Files
12
+ For Each File In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..(略)¥B0001¥完了¥“).Files
13
- Me.社外購買番号 = “A0001”
13
+ Me.社外購買番号 = “B0001”
14
- Me.旧ファイル名 = .Path
14
+ Me.旧ファイルパス = .Path
15
15
  DoCmd.GoToRecord acDataForm, "新しいフォーム", acNeｗRec
16
16
  Next File
17
17
  ```
18
18
 
19
19
  T‘sWare#100 FileSystemObjectでファイルの情報を列挙する方法
20
20
  https://tsware.jp/tips/tips_100.htm
21
+
21
- とりあえず、これで頑張って下さい。
22
+ |社外購買番号|旧ファイルパス|
23
+ |:--|:--|
24
+ |B0001| C:¥..ディレクトリ(略)¥202302-00010_B0001_株式会社田中_00.pdf |
25
+ |B0001| C:¥..ディレクトリ(略)¥sample2.pdf |
26
+
27
+ |社外購買番号|サプライヤー|
28
+ |:--|:--|
29
+ |A0001 |株式会社山田|
30
+ |B0001 |株式会社田中|
31
+ |C0001 |株式会社小川|
32
+

5

コード編集

2023/04/25 10:55

投稿

logres_Fan
logres_Fan

スコア164

test CHANGED
@@ -12,6 +12,7 @@
12
12
  For Each File In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..(略)¥A0001¥完了¥“).Files
13
13
  Me.社外購買番号 = “A0001”
14
14
  Me.旧ファイル名 = .Path
15
+ DoCmd.GoToRecord acDataForm, "新しいフォーム", acNeｗRec
15
16
  Next File
16
17
  ```
17
18
 

4

コード修正

2023/04/25 10:49

投稿

logres_Fan
logres_Fan

スコア164

test CHANGED
@@ -8,16 +8,13 @@
8
8
  T‘sWare#304 VBAによるディスク操作（移動とリネーム）
9
9
  https://tsware.jp/tips/tips_304.htm
10
10
  ```AccessVBA
11
- Dim Fd As Object
11
+ Dim File As Object
12
- For Each Fd In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..親フォルダ¥子フォルダ¥“).SubFolders
12
+ For Each File In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..(略)¥A0001¥完了¥“).Files
13
+ Me.社外購買番号 = “A0001”
13
- Debug.print Fd.Path
14
+ Me.旧ファイル名 = .Path
14
- Next Fd
15
+ Next File
15
16
  ```
16
17
 
17
- T‘sWare#099 FileSystemObjectでフォルダの情報を列挙する方法
18
+ T‘sWare#100 FileSystemObjectでファイルの情報を列挙する方法
18
- https://tsware.jp/tips/tips_099.htm
19
+ https://tsware.jp/tips/tips_100.htm
19
-
20
- T‘sWare FileSystemObject
21
- https://tsware.jp/aspbin/WebSearch.aspx
22
-
23
20
  とりあえず、これで頑張って下さい。

3

編集

2023/04/24 15:00

投稿

logres_Fan
logres_Fan

スコア164

test CHANGED
@@ -9,7 +9,7 @@
9
9
  https://tsware.jp/tips/tips_304.htm
10
10
  ```AccessVBA
11
11
  Dim Fd As Object
12
- For Each Fd In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..親フォルダ¥子フォルダ¥“)..SubFolders
12
+ For Each Fd In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..親フォルダ¥子フォルダ¥“).SubFolders
13
13
  Debug.print Fd.Path
14
14
  Next Fd
15
15
  ```

2

追記

2023/04/24 14:59

投稿

logres_Fan
logres_Fan

スコア164

test CHANGED
@@ -7,4 +7,17 @@
7
7
  ```
8
8
  T‘sWare#304 VBAによるディスク操作（移動とリネーム）
9
9
  https://tsware.jp/tips/tips_304.htm
10
+ ```AccessVBA
11
+ Dim Fd As Object
12
+ For Each Fd In CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:¥..親フォルダ¥子フォルダ¥“)..SubFolders
13
+ Debug.print Fd.Path
14
+ Next Fd
15
+ ```
16
+
17
+ T‘sWare#099 FileSystemObjectでフォルダの情報を列挙する方法
18
+ https://tsware.jp/tips/tips_099.htm
19
+
20
+ T‘sWare FileSystemObject
21
+ https://tsware.jp/aspbin/WebSearch.aspx
22
+
10
23
  とりあえず、これで頑張って下さい。

1

追記

2023/04/24 14:22

投稿

logres_Fan
logres_Fan

スコア164

test CHANGED
@@ -1,2 +1,10 @@
1
1
  手を広げ過ぎです。課題を１つずつ消化していくしかないのではないでしょうか。
2
2
  Accessに手を出してその現状では、心がボキッと折れてサラサラになるくらい駄目出しされるでしょうね。
3
+ 追記:
4
+ ググったらヒットしたので
5
+ ```AccessVBA
6
+ Name “C:¥..ディレクトリ(略)¥旧ファイル.拡張子“ As “ C:¥..ディレクトリ(略)¥新ファイル.拡張子”
7
+ ```
8
+ T‘sWare#304 VBAによるディスク操作（移動とリネーム）
9
+ https://tsware.jp/tips/tips_304.htm
10
+ とりあえず、これで頑張って下さい。