Need help with loop to import data

[silvest]

I need some help with importing data on excel (.csv format).
This is briefly what i've done:

Dim Share(1 to 6) as string
Dim j as integer

House(1) = ABC
House(2) = DEF
House(3) = GHI
House(4) = JKL
House(5) = MNO
House(6) = PQR

For j = 1 To 6 Step 1

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Excel\"House(j)".csv" _
, Destination:=Range("A1"))
...
..
..

 

[silvest]

Oops, a typo here...

In the 3rd line, it should read:

Dim *House*(1 to 6) as string

instead of Dim Share(1 to 6) as string

Thank