回答編集履歴
1
理由追記
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("顧客")で処理しようとしていますが、その操作対象となるセルが別ブックのシートのセルであるため、見つける事ができずに処理エラーとなります。
|