回答編集履歴

1

理由追記

2020/07/08 07:29

投稿

tosi
tosi

スコア553

test CHANGED
@@ -6,4 +6,22 @@
6
6
 
7
7
  ActiveCell.SpecialCells(xlLastCell)
8
8
 
9
+ 及び、Workbooks.Open varFileNameを削除する。
10
+
11
+
12
+
9
- では。
13
+ (理由)
14
+
15
+ ttyp03様が言われています様に、この度のエラーはCSVファイルをWorkbooks.OpenとOpen varFileName(Text)の両方を開いている事に起因すると思われます。
16
+
17
+ オープン後の処理はLine Inputで行われているので、元々Open varFileName(Text)が正しく、
18
+
19
+ Workbooks.Openは後で付け加えられたと思われます。
20
+
21
+
22
+
23
+ エラー部ではActiveCell.SpecialCellsを使っている為、アクティブなシートからセルを取得します。
24
+
25
+ しかし、Workbooks.Openがあることで読み込んだシートが前面に出てしまい、こちらがActiveシートとなります。
26
+
27
+ エラー部では、Worksheets("顧客")で処理しようとしていますが、その操作対象となるセルが別ブックのシートのセルであるため、見つける事ができずに処理エラーとなります。