CSVを開いてExcelですべてのワークブックを再計算するのはなぜですか？

Question

この例のVBAコードを実行するとExcelがすべてオープンブックを計算するのはなぜですか？それを止める方法はありますか？

Public Sub Test() 
    Application.Calculation = xlCalculationManual 
    Workbooks.Open "C:\Test.csv" 
End Sub 

これはCSVファイルタイプでのみ発生するようです。

ピボットテーブルをプログラムで更新する場合も同様の現象が発生します。

Answer 1

まず、計算があるすべてのワークシートでEnableCalculation = Falseを実行する必要があります。開いたCSVファイルの後。

うまくいけば、このようなものは動作します：

Public Sub Test() 
    Dim ws As Worksheet 
    For Each ws In Worksheets 
     ws.EnableCalculation = Flase 
    Next ws 

    Application.Calculation = xlCalculationManual 
    Workbooks.Open "C:\Test.csv" 
End Sub 

あなたは成功したのtest.CSVファイルをインポートした後、あなたは真= EnableCalculationsを行う必要があります。

私がダウンロードできる場所にExcelファイルをアップロードできる場合は、これを手伝ってください。