Prevent recalculation when opening .csv file

**duffry** · 06-05-2014, 09:03 AM

Hi

I have a sheet that holds a fair bit of data so I have calculation set to manual when using it, 'manual' full recalculations take about 30 seconds or so.

I'm writing some VBA to import some data from a set of 30 .csv files. It requires each one be opened and the data moved as required. When I run it it seems that the main sheet performs a full recalc before the file opens.

I have checked the options and it's set to manual.
I have added the following just before the file opens to check with no change.

Application.Calculation = xlCalculateManual

Here's the line I'm using to open the file.

Workbooks.OpenText _
            fileName:=pathWFMFiles & sheetsToLoad, local:=True, DataType:=xlDelimited, comma:=True

Is there any way I can stop this recalculation?

TIA

**ranman256** · 06-05-2014, 09:20 AM

I would have suggested that very way...so try an alternative
keep the app.calc manual
instead of .opentext ,... try "ActiveSheet.QueryTables.Add(Connection:= "TEXT;" & vCsvFile, _"

(Data, import Text)