teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問VBA フルパス、ファイル名制限

編集履歴

質問編集履歴

8

不正削除の打ち消し

2018/07/02 00:17

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- ユーザ情報について
1
+ VBA フルパス、ファイル名制限
test CHANGED
@@ -1,169 +1,105 @@
1
- teratail
1
+ ファイルを開くダイアログにて
2
2
 
3
+ ファイルを選択してリストボックスに表示させる際に、特定のファイルだけ
3
4
 
5
+ 「【実行時エラー53】そのようなファイルはありません」
4
6
 
7
+ が出て来ました。
5
8
 
9
+ デバッグした際に
6
10
 
7
- teraterm0503
11
+ Filename = Dir(Target)
8
12
 
9
- 総合score8
13
+ でエラーが出ていることがわかりました。
10
14
 
11
- ランキング7,422
15
+ Dir関数の制限でファイルのフルパスが長すぎてエラーがでているようなのですが(おそらく)
12
16
 
13
- あなたの回答
17
+ どうにかこのエラーを解決してファイルをリストボックスに表示させる方法はありますか？
14
18
 
15
- あなたの質問
19
+ ちなみにファイルはありませんと出ていますが
16
20
 
17
- クリップした質問
21
+ ちゃんと存在しています。
18
22
 
19
- 各種設定
23
+ よろしくお願い致します
20
24
 
21
- ログアウト
25
+ ```VBA
22
26
 
23
- 質問する
27
+ Private Sub btn_FileOpen_Click()
24
28
 
25
- notifications_none
29
+ Dim OpenFileName As Variant, Target As Variant
26
30
 
27
- search
31
+ 'カレントディレクトリを指定
28
32
 
29
- 受付中
33
+ ChDrive "C"
30
34
 
31
- SAML認証のSSO時のユーザ情報について
35
+ ChDir "C:\test"
32
36
 
33
- SAML
37
+ OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
34
38
 
35
- 0
39
+ MultiSelect:=True)
36
40
 
37
- 21
41
+ If IsArray(OpenFileName) Then
38
42
 
43
+ With Me.BookInput
39
44
 
45
+
40
46
 
41
- usususa
47
+ 'リストボックスにファイル名を表示
42
48
 
43
- score 1
49
+ For Each Target In OpenFileName
44
50
 
45
- 投稿 2018/06/29 15:31
51
+ Filename = Dir(Target)
46
52
 
47
- SAML認証で、最初のSPにアクセスした際、IDPで
53
+ Pathname = Replace(Target, Filename, "")
48
54
 
49
- 認証した後、別のSPにアクセスした際に、
55
+ .AddItem ""
50
56
 
51
- 再度IDPにリダイレクトされますが、
57
+ .List(BookInput.ListCount - 1, 0) = Filename
52
58
 
53
- そこで再認証なしに、認証済みとIDPは判断すると思いますが、
59
+ .List(BookInput.ListCount - 1, 1) = Pathname
54
60
 
55
- IDPはどうやってユーザを判断するのでしょうか。
61
+ Next Target
56
62
 
57
- 現状も調べているのですがCookieは使わないということしか
63
+ 'ファイルのあるフォルダーのパスをラベルに表示
58
64
 
59
- わかっていませんので質問いたしました。
65
+ Me.lblPath.Caption = .List(0, 1)
60
66
 
67
+
61
68
 
69
+ End With
62
70
 
63
- クリップ 000share
71
+ Else
64
72
 
65
- more_vert0 件の質問への追記・修正依頼
73
+ MsgBox "キャンセルされました"
66
74
 
67
- 回答0件sort 高評価順 sort 新着順 sort 古い順
75
+ End If
68
76
 
69
- まだ回答がありません。
77
+ End Sub
70
78
 
79
+ Private Sub btn_FilePrint_Click()
71
80
 
81
+ Dim wb As Variant
72
82
 
73
- 質問の解決につながる回答をしましょう。
83
+ Dim Fn As Variant, i As Long
74
84
 
75
- サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。
85
+
76
86
 
77
- また、読む側のことを考えた、分かりやすい文章を心がけましょう。
87
+ With Me.BookInput
78
88
 
89
+ For i = 0 To .ListCount - 1
79
90
 
91
+ Set wb = Workbooks.Open(.List(i,1) & .List(i,0),ReadOnly:=True)
80
92
 
81
- あなたの回答
93
+ wb.PrintOut 'ブック全体を印刷
82
94
 
95
+ wb.Close
83
96
 
97
+ Next
84
98
 
99
+ End with
85
100
 
101
+ Application.ScreenUpdateing = True
86
102
 
103
+ End Sub
87
104
 
88
-
89
-
90
-
91
-
92
-
93
-
94
-
95
-
96
-
97
-
98
-
99
- 回答を入力してください。
100
-
101
- ※Markdown記法を利用できます。
102
-
103
- 回答する
104
-
105
- 関連した質問
106
-
107
- 解決済
105
+ ```
108
-
109
- file_put_contentsを行おうとしたら、パーミッションのエラーが出た(PHP)
110
-
111
- 解決済
112
-
113
- サーバー転送ツールCyberduckのエラー表示について
114
-
115
- 解決済
116
-
117
- Mac/terminal sshを使ってサーバーにデータをUPするとパーミッションや所有者情報が変わってしまいます。
118
-
119
- 受付中
120
-
121
- [Google Calendar API]他人のカレンダーへのアクセス
122
-
123
- 解決済
124
-
125
- GPUでの実行ができない
126
-
127
- 解決済
128
-
129
- mysql別PCのデータベースにアクセス
130
-
131
- 解決済
132
-
133
- SSHKit::Runner::ExecuteErrorの原因がわからない
134
-
135
- 受付中
136
-
137
- Macにsshしようとすると、ssh_exchange_identification: Connection closed by remote hostと出て接続できない
138
-
139
- 同じタグがついた質問
140
-
141
- SAML
142
-
143
- タグ一覧
144
-
145
- ユーザーを探す(PC)
146
-
147
- エキスパートユーザー一覧
148
-
149
- ヘルプ
150
-
151
- 運営からのお知らせ(PC)
152
-
153
- 公式ブログ
154
-
155
- teratail Report
156
-
157
- teratail API(PC)
158
-
159
- お問い合わせ(PC)
160
-
161
- 運営会社
162
-
163
- 利用規約
164
-
165
- 個人情報の取り扱いについて
166
-
167
- 個人情報保護方針
168
-
169
- © 2014-2018 Leverages Co., Ltd.

7

2018/07/02 00:17

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- VBA フルパス、ファイル名制限
1
+ ユーザ情報について
test CHANGED
@@ -1,123 +1,169 @@
1
- ファイルを開くダイアログにて
2
-
3
- ファイルを選択してリストボックスに表示させる際に、特定のファイルだけ
4
-
5
- 「【実行時エラー53】そのようなファイルはありません」
6
-
7
- が出て来ました。
8
-
9
- デバッグした際に
10
-
11
- Filename = Dir(Target)
12
-
13
- でエラーが出ていることがわかりました。
14
-
15
- Dir関数の制限でファイルのフルパスが長すぎてエラーがでているようなのですが(おそらく)
16
-
17
-
18
-
19
- どうにかこのエラーを解決してファイルをリストボックスに表示させる方法はありますか？
20
-
21
- ちなみにファイルはありませんと出ていますが
22
-
23
- ちゃんと存在しています。
24
-
25
-
26
-
27
- よろしくお願い致します
28
-
29
-
30
-
31
- ```VBA
32
-
33
-
34
-
35
- Private Sub btn_FileOpen_Click()
36
-
37
- Dim OpenFileName As Variant, Target As Variant
38
-
39
- 'カレントディレクトリを指定
40
-
41
- ChDrive "C"
42
-
43
- ChDir "C:\test"
44
-
45
-
46
-
47
- OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
48
-
49
- MultiSelect:=True)
50
-
51
- If IsArray(OpenFileName) Then
52
-
53
- With Me.BookInput
54
-
55
-
56
-
57
- 'リストボックスにファイル名を表示
58
-
59
- For Each Target In OpenFileName
60
-
61
- Filename = Dir(Target)
62
-
63
- Pathname = Replace(Target, Filename, "")
64
-
65
- .AddItem ""
66
-
67
- .List(BookInput.ListCount - 1, 0) = Filename
68
-
69
- .List(BookInput.ListCount - 1, 1) = Pathname
70
-
71
- Next Target
1
+ teratail
72
-
73
- 'ファイルのあるフォルダーのパスをラベルに表示
74
-
75
- Me.lblPath.Caption = .List(0, 1)
76
-
77
-
78
-
79
- End With
80
-
81
- Else
82
-
83
- MsgBox "キャンセルされました"
84
-
85
- End If
86
-
87
-
88
-
89
- End Sub
90
-
91
-
92
-
93
- Private Sub btn_FilePrint_Click()
94
-
95
- Dim wb As Variant
96
-
97
- Dim Fn As Variant, i As Long
98
-
99
-
100
-
101
- With Me.BookInput
102
-
103
- For i = 0 To .ListCount - 1
104
-
105
- Set wb = Workbooks.Open(.List(i,1) & .List(i,0),ReadOnly:=True)
106
-
107
- wb.PrintOut 'ブック全体を印刷
108
-
109
- wb.Close
110
-
111
- Next
112
-
113
- End with
114
-
115
- Application.ScreenUpdateing = True
116
-
117
- End Sub
118
2
 
119
3
 
120
4
 
121
5
 
122
6
 
7
+ teraterm0503
8
+
9
+ 総合score8
10
+
11
+ ランキング7,422
12
+
13
+ あなたの回答
14
+
15
+ あなたの質問
16
+
17
+ クリップした質問
18
+
19
+ 各種設定
20
+
21
+ ログアウト
22
+
23
+ 質問する
24
+
25
+ notifications_none
26
+
27
+ search
28
+
123
- ```
29
+ 受付中
30
+
31
+ SAML認証のSSO時のユーザ情報について
32
+
33
+ SAML
34
+
35
+ 0
36
+
37
+ 21
38
+
39
+
40
+
41
+ usususa
42
+
43
+ score 1
44
+
45
+ 投稿 2018/06/29 15:31
46
+
47
+ SAML認証で、最初のSPにアクセスした際、IDPで
48
+
49
+ 認証した後、別のSPにアクセスした際に、
50
+
51
+ 再度IDPにリダイレクトされますが、
52
+
53
+ そこで再認証なしに、認証済みとIDPは判断すると思いますが、
54
+
55
+ IDPはどうやってユーザを判断するのでしょうか。
56
+
57
+ 現状も調べているのですがCookieは使わないということしか
58
+
59
+ わかっていませんので質問いたしました。
60
+
61
+
62
+
63
+ クリップ 000share
64
+
65
+ more_vert0 件の質問への追記・修正依頼
66
+
67
+ 回答0件sort 高評価順 sort 新着順 sort 古い順
68
+
69
+ まだ回答がありません。
70
+
71
+
72
+
73
+ 質問の解決につながる回答をしましょう。
74
+
75
+ サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。
76
+
77
+ また、読む側のことを考えた、分かりやすい文章を心がけましょう。
78
+
79
+
80
+
81
+ あなたの回答
82
+
83
+
84
+
85
+
86
+
87
+
88
+
89
+
90
+
91
+
92
+
93
+
94
+
95
+
96
+
97
+
98
+
99
+ 回答を入力してください。
100
+
101
+ ※Markdown記法を利用できます。
102
+
103
+ 回答する
104
+
105
+ 関連した質問
106
+
107
+ 解決済
108
+
109
+ file_put_contentsを行おうとしたら、パーミッションのエラーが出た(PHP)
110
+
111
+ 解決済
112
+
113
+ サーバー転送ツールCyberduckのエラー表示について
114
+
115
+ 解決済
116
+
117
+ Mac/terminal sshを使ってサーバーにデータをUPするとパーミッションや所有者情報が変わってしまいます。
118
+
119
+ 受付中
120
+
121
+ [Google Calendar API]他人のカレンダーへのアクセス
122
+
123
+ 解決済
124
+
125
+ GPUでの実行ができない
126
+
127
+ 解決済
128
+
129
+ mysql別PCのデータベースにアクセス
130
+
131
+ 解決済
132
+
133
+ SSHKit::Runner::ExecuteErrorの原因がわからない
134
+
135
+ 受付中
136
+
137
+ Macにsshしようとすると、ssh_exchange_identification: Connection closed by remote hostと出て接続できない
138
+
139
+ 同じタグがついた質問
140
+
141
+ SAML
142
+
143
+ タグ一覧
144
+
145
+ ユーザーを探す(PC)
146
+
147
+ エキスパートユーザー一覧
148
+
149
+ ヘルプ
150
+
151
+ 運営からのお知らせ(PC)
152
+
153
+ 公式ブログ
154
+
155
+ teratail Report
156
+
157
+ teratail API(PC)
158
+
159
+ お問い合わせ(PC)
160
+
161
+ 運営会社
162
+
163
+ 利用規約
164
+
165
+ 個人情報の取り扱いについて
166
+
167
+ 個人情報保護方針
168
+
169
+ © 2014-2018 Leverages Co., Ltd.

6

2018/06/30 08:40

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- VBA 実行時エラー53
1
+ VBA フルパス、ファイル名制限
test CHANGED
File without changes

5

2018/06/26 05:16

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -92,17 +92,17 @@
92
92
 
93
93
  Private Sub btn_FilePrint_Click()
94
94
 
95
- Dim wb As Integer
95
+ Dim wb As Variant
96
96
 
97
97
  Dim Fn As Variant, i As Long
98
98
 
99
- Application.ScreenUpdating = False
99
+
100
100
 
101
101
  With Me.BookInput
102
102
 
103
103
  For i = 0 To .ListCount - 1
104
104
 
105
- Set wb = Workbooks.Open(Me.lblPath.Caption & .List(i, 0))
105
+ Set wb = Workbooks.Open(.List(i,1) & .List(i,0),ReadOnly:=True)
106
106
 
107
107
  wb.PrintOut 'ブック全体を印刷
108
108
 
@@ -110,17 +110,9 @@
110
110
 
111
111
  Next
112
112
 
113
- End With
113
+ End with
114
114
 
115
-
116
-
117
- End Sub
118
-
119
-
120
-
121
- Private Sub UserForm_Initialize()
115
+ Application.ScreenUpdateing = True
122
-
123
- Me.lblPath.Caption = ""
124
116
 
125
117
  End Sub
126
118
 

4

2018/06/26 05:09

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -8,7 +8,7 @@
8
8
 
9
9
  デバッグした際に
10
10
 
11
- Filename = Dir(Target
11
+ Filename = Dir(Target)
12
12
 
13
13
  でエラーが出ていることがわかりました。
14
14
 

3

2018/06/26 03:53

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -8,7 +8,7 @@
8
8
 
9
9
  デバッグした際に
10
10
 
11
- .AddItem Dir(Target)
11
+ Filename = Dir(Target
12
12
 
13
13
  でエラーが出ていることがわかりました。
14
14
 
@@ -52,19 +52,29 @@
52
52
 
53
53
  With Me.BookInput
54
54
 
55
- .Clear
55
+
56
56
 
57
- 'リストボックスにファイル名を表示
57
+ 'リストボックスにファイル名を表示
58
58
 
59
59
  For Each Target In OpenFileName
60
60
 
61
- .AddItem Dir(Target)
61
+ Filename = Dir(Target)
62
+
63
+ Pathname = Replace(Target, Filename, "")
64
+
65
+ .AddItem ""
66
+
67
+ .List(BookInput.ListCount - 1, 0) = Filename
68
+
69
+ .List(BookInput.ListCount - 1, 1) = Pathname
62
70
 
63
71
  Next Target
64
72
 
65
73
  'ファイルのあるフォルダーのパスをラベルに表示
66
74
 
67
- Me.lblPath.Caption = Replace(OpenFileName(1), .List(0, 0), "")
75
+ Me.lblPath.Caption = .List(0, 1)
76
+
77
+
68
78
 
69
79
  End With
70
80
 

2

2018/06/26 03:53

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -16,7 +16,7 @@
16
16
 
17
17
 
18
18
 
19
- どうにかこのエラーを解決する方法はありますか？
19
+ どうにかこのエラーを解決してファイルをリストボックスに表示させる方法はありますか？
20
20
 
21
21
  ちなみにファイルはありませんと出ていますが
22
22
 

1

2018/06/26 03:31

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,6 +1,6 @@
1
1
  ファイルを開くダイアログにて
2
2
 
3
- ファイルを選択した際に特定のファイルだけ
3
+ ファイルを選択してリストボックスに表示させる際に、特定のファイルだけ
4
4
 
5
5
  「【実行時エラー53】そのようなファイルはありません」
6
6