teratail
回答率
85.34%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問マクロでSharepoint上のパスを取得する方法について

編集履歴

質問編集履歴

6

修正

2022/06/03 17:58

投稿

Shinchan0124
Shinchan0124

スコア0

test CHANGED
File without changes
test CHANGED
@@ -16,9 +16,12 @@
16
16
  Dim ppApp As New PowerPoint.Application
17
17
  Dim ppPt As Presentation
18
18
  Dim folder_pass, file_name
19
- 　 Dim fso As New FileSystemObject
19
+ Dim fso As New FileSystemObject
20
+
20
21
  folder_pass = "\\会社名.sharepoint.com\DavWWWRoot\sites\ABC\月次レポート\"
21
- file_name = "会社名 " & Report_month(ThisWorkbook.Sheets("Master").Range("C2")) & " Report " & Year(ThisWorkbook.Sheets("Master").Range("C2")) & ".pptx"
22
+ file_name = "会社名 " & Report_month(ThisWorkbook.Sheets("Master").Range("C2")) & " Report " & Year(ThisWorkbook.Sheets("Master").Range("C2")) & ".pptx"
23
+
24
+ Set fso = New FileSystemObject
22
25
  If fso.FileExists(file_name) = True Then
23
26
  MsgBox ("The file already exist. Program suspended.")
24
27
  End
VBASharePointマクロ

5

困りごとのアップデート

2022/06/03 17:49

投稿

Shinchan0124
Shinchan0124

スコア0

test CHANGED
File without changes
test CHANGED
@@ -1,5 +1,9 @@
1
1
  お世話になります。以下、調べてみてもわからなかったため、質問させて頂きます。
2
2
 
3
+ **Ver.1 : FileSystemObjectを使ってDir関数を使わずに書いてみたところ、エラーはなくなりました。
4
+ 　　　 一方、既存ファイルがあるか確認するIf fso.FileExists()では、ファイルが存在していても
5
+ 　　　 ファイルを認識せず、毎回新規のファイルを作成し上書きするようになってしまいました。
6
+ 正直お手上げです。。。**
3
7
  **【背景】**
4
8
  毎月、PPTで月次のレポートを自動作成するマクロを動かしています。
5
9
  すでにPPTが作成されていたら停止、未作成ならテンプレートを開いて、そのまま表の貼付け等に進むというものです。今回は問題が生じている部分だけを抜粋して記載しております。
@@ -11,18 +15,19 @@
11
15
  ```ここに言語を入力
12
16
  Dim ppApp As New PowerPoint.Application
13
17
  Dim ppPt As Presentation
14
- Dim folder_pass, file_name
18
+ Dim folder_pass, file_name
19
+ 　 Dim fso As New FileSystemObject
15
20
  folder_pass = "\\会社名.sharepoint.com\DavWWWRoot\sites\ABC\月次レポート\"
16
21
  file_name = "会社名 " & Report_month(ThisWorkbook.Sheets("Master").Range("C2")) & " Report " & Year(ThisWorkbook.Sheets("Master").Range("C2")) & ".pptx"
17
- If Dir(folder_pass & file_name) <> "" Then
22
+ If fso.FileExists(file_name) = True Then
18
23
  MsgBox ("The file already exist. Program suspended.")
19
24
  End
20
25
  Else
21
26
  Set ppPt = ppApp.Presentations.Open(folder_pass & "会社名 Monthly Report_Blank.pptx")
22
27
  End If
23
28
  ```
24
- If Dir(folder_pass) <> "" Then　のところで実行時エラー 52：ファイル名または番号が不正です。
29
+ ~~If Dir(folder_pass) <> "" Then　のところで実行時エラー 52：ファイル名または番号が不正です。
25
- というエラーが出ます。調べたところによると、Windows10のバージョンによってはWeb上のパスに対してDir関数が使えないケースがあるという記述も見つけました。その方はOne Driveを使った修正方法をご提案されていました。
30
+ というエラーが出ます。調べたところによると、Windows10のバージョンによってはWeb上のパスに対してDir関数が使えないケースがあるという記述も見つけました。その方はOne Driveを使った修正方法をご提案されていました。~~
26
31
 
27
32
  **【解決したいこと】**
28
33
  Sharepointに置いたままで、これまでと同じように使うにはどこをどのように修正すれば良いか
VBASharePointマクロ

4

誤字の修正

2022/06/01 14:12

投稿

Shinchan0124
Shinchan0124

スコア0

test CHANGED
@@ -1 +1 @@
1
- マクロでShrepoint上のパスを取得する方法について
1
+ マクロでSharepoint上のパスを取得する方法について
test CHANGED
File without changes
VBASharePointマクロ

3

誤字の修正

2022/06/01 13:27

投稿

Shinchan0124
Shinchan0124

スコア0

test CHANGED
File without changes
test CHANGED
@@ -14,7 +14,7 @@
14
14
  Dim folder_pass, file_name
15
15
  folder_pass = "\\会社名.sharepoint.com\DavWWWRoot\sites\ABC\月次レポート\"
16
16
  file_name = "会社名 " & Report_month(ThisWorkbook.Sheets("Master").Range("C2")) & " Report " & Year(ThisWorkbook.Sheets("Master").Range("C2")) & ".pptx"
17
- If Dir(folder_pass) <> "" Then
17
+ If Dir(folder_pass & file_name) <> "" Then
18
18
  MsgBox ("The file already exist. Program suspended.")
19
19
  End
20
20
  Else
VBASharePointマクロ

2

誤字の修正

2022/06/01 13:24

投稿

Shinchan0124
Shinchan0124

スコア0

test CHANGED
File without changes
test CHANGED
@@ -13,7 +13,7 @@
13
13
  Dim ppPt As Presentation
14
14
  Dim folder_pass, file_name
15
15
  folder_pass = "\\会社名.sharepoint.com\DavWWWRoot\sites\ABC\月次レポート\"
16
- file_name = "会社名 " & Report_month(ThisWorkbook.Sheets("Master").Range("C2")) & " Report " &
16
+ file_name = "会社名 " & Report_month(ThisWorkbook.Sheets("Master").Range("C2")) & " Report " & Year(ThisWorkbook.Sheets("Master").Range("C2")) & ".pptx"
17
17
  If Dir(folder_pass) <> "" Then
18
18
  MsgBox ("The file already exist. Program suspended.")
19
19
  End
VBASharePointマクロ

1

見出しを太字にしました。

2022/06/01 13:22

投稿

Shinchan0124
Shinchan0124

スコア0

test CHANGED
File without changes
test CHANGED
@@ -24,6 +24,6 @@
24
24
  If Dir(folder_pass) <> "" Then　のところで実行時エラー 52：ファイル名または番号が不正です。
25
25
  というエラーが出ます。調べたところによると、Windows10のバージョンによってはWeb上のパスに対してDir関数が使えないケースがあるという記述も見つけました。その方はOne Driveを使った修正方法をご提案されていました。
26
26
 
27
- 【解決したいこと】
27
+ **【解決したいこと】**
28
28
  Sharepointに置いたままで、これまでと同じように使うにはどこをどのように修正すれば良いか
29
29
  ご教授頂けないでしょうか？宜しくお願い致します。
VBASharePointマクロ