質問するログイン新規登録

回答編集履歴

2

脱字

2019/12/26 00:42

投稿

Rocky
Rocky

スコア261

answer CHANGED
@@ -12,7 +12,7 @@
12
12
  ---追記
13
13
 
14
14
  やられた。さてはこれどっかのコピペを合体させてますね?
15
- = Application.GetOpenFilename(...
15
+ csv = Application.GetOpenFilename(...
16
16
  としているのですから、当然
17
17
  If csv <> "False" Then
18
18
  としてください。OpenFileNameはどこにも存在してませんよ。

1

勘違いしました。

2019/12/26 00:42

投稿

Rocky
Rocky

スコア261

answer CHANGED
@@ -7,4 +7,12 @@
7
7
  If OpenFileName <> False Then
8
8
 
9
9
  のどちらかです。
10
- VBAは内部的に自動型変換をしてくれることが多いですが、これを機会にチェックしてみるとよいでしょう。
10
+ VBAは内部的に自動型変換をしてくれることが多いですが、これを機会にチェックしてみるとよいでしょう。
11
+
12
+ ---追記
13
+
14
+ やられた。さてはこれどっかのコピペを合体させてますね?
15
+ = Application.GetOpenFilename(...
16
+ としているのですから、当然
17
+ If csv <> "False" Then
18
+ としてください。OpenFileNameはどこにも存在してませんよ。