避け側workbooks.open .csvファイル

Question

の効果私は、.csvファイルを開くには、VBAを使用してい

Sub open_csv_file()   
    Workbooks.Open("c:\test.csv") 
    ActiveWorkbook.Close  
End Sub 

それは動作しますが、副作用を持つ：csvファイルが開かれ、元.xlsmファイルが再計算を開始します。

副作用を避ける方法はありますか？

ps。私は既にExcelの計算をManualとして設定しています。手動で、F9キーを押しを計算するには

Application.Calculation = xlCalculateManual 

：

Answer 1

一つの方法は、Excelの別のインスタンスを使用してファイルを開くことです。

Dim app As Excel.Application 
Dim csv As Workbook 

Set app = New Excel.Application 
app.Visible = True 

Set csv = app.Workbooks.Open("c:\test.csv") 

Answer 2

がWorkbooks.Open前にこの行を追加します。計算を避けるために

それとも

Sub open_csv_file()   
    Application.Calculation = xlCalculateManual 
    Workbooks.Open("c:\test.csv") 
    ActiveWorkbook.Close  
    Application.Calculation = xlCalculateAutomatic 
End Sub 

Answer 3

.csvファイルを開くときに呼び出す.xlsmファイルを再計算しますが、 .xlsファイルを開くときではありません。開く前に.csvファイルの名前を.xlsに変更すると、再計算が防止され、通常どおりファイルが開かれます。

Sub open_csv_file() 
    Name "c:\test.csv" As "c:\test.xls" 
    Workbooks.Open "c:\test.xls", Format:=2 
End Sub 

新しいファイル名が既に存在する状況を処理するために、いくつかのエラー処理を追加する必要があります。

Answer 4

ワークシートごとにWorksheet.EnableCalculationをFalseに設定するのが唯一の回避策です。

は、それが動作しません。この

Sub open_csv_file() 
    Dim ws As Worksheet 
    For Each ws In ThisWorkbook.Worksheets 
     ws.EnableCalculation = False 
    Next ws 
    Workbooks.Open ("c:\users\test\desktop\test.csv") 
    ActiveWorkbook.Close 
End Sub