[BUG] ActiveX データ オブジェクト (ADO) を使用して、開いている Excel ワークシートを照会するときメモリ リークに発生します。

方法 1

• Excel データを新しいワークシートにエクスポートするのにには、Jet OLE DB プロバイダーの SELECT INTO 構文を使用します。については、SELECT INTO 構文を使用してデータをエクスポートする方法についてをクリックして以下「サポート技術情報」(Microsoft Knowledge Base) 資料を参照。
  295646? (http://support.microsoft.com/kb/295646/ ) ADO を使用して ADO データ ソースから Excel にデータを転送する方法

方法 2

• プログラムで開かれている Excel ファイルを新しい名前でを保存するのに Excel オブジェクト モデルで、 ブック のオブジェクトの SaveCopyAs メソッドを使用します。 ADO アプリケーションから新しい名前で以前に保存したファイルのコピーを照会することができます。

先頭へ戻る

動作を再現する手順

1. 作成するか、行と列のデータを ADO を使用して照会できる Excel のワークシートを探します。 たとえば、Excel を使用して、サンプルの Northwind データベースから、[得意先] テーブルをインポートすることができます。
2. Visual Basic 6. 0 で標準 EXE プロジェクトを作成します。 既定では、Form1 が作成されます。 ADO への参照を設定します。
3. モジュールをプロジェクトに追加してアプリケーション プログラミング インターフェイス (API) 呼び出しパフォーマンス モニター カウンターを使用してメモリ使用量を確認するための次の宣言を入力、:

   Option Explicit
   
   'Performance monitor functions for Visual Basic from PDH.DLL
   Declare Function PdhVbOpenQuery Lib "pdh.dll" _
       (ByRef QueryHandle As Long) As Long
   Declare Function PdhCloseQuery Lib "pdh.dll" _
       (ByVal QueryHandle As Long) As Long
   Declare Function PdhVbAddCounter Lib "pdh.dll" _
       (ByVal QueryHandle As Long, ByVal CounterPath As String, _
       ByRef CounterHandle As Long) As Long
   Declare Function PdhRemoveCounter Lib "pdh.dll" _
       (ByVal CounterHandle As Long) As Long
   Declare Function PdhCollectQueryData Lib "pdh.dll" _
       (ByVal QueryHandle As Long) As Long
   Declare Function PdhVbGetDoubleCounterValue Lib "pdh.dll" _
       (ByVal CounterHandle As Long, ByRef CounterStatus As Long) As Double
   Declare Function PdhVbIsGoodStatus Lib "pdh.dll" _
       (ByVal StatusValue As Long) As Long
   Declare Function PdhVbGetOneCounterPath Lib "pdh.dll" _
       (ByVal PathString As String, ByVal PathLength As Long, _
       ByVal DetailLevel As Long, ByVal CaptionString As String) As Long
   Declare Function PdhVbCreateCounterPathList Lib "pdh.dll" _
       (ByVal DetailLevel As Long, ByVal CaptionString As String) As Long
   Declare Function PdhVbGetCounterPathFromList Lib "pdh.dll" _
       (ByVal Index As Long, ByVal Buffer As String, _
       ByVal BufferLength As Long) As Long
   Declare Function PdhVbGetCounterPathElements Lib "pdh.dll" _
       (ByVal PathString As String, ByVal MachineName As String, _
       ByVal ObjectName As String, ByVal InstanceName As String, _
       ByVal ParentInstance As String, ByVal CounterName As String, _
       ByVal BufferSize As Long) As Long
   					

4. コマンド ボタンを Form1 に追加し、次のコードを Click イベントに挿入するには。 このコードは繰り返し Excel ファイルを照会し、(イミディエイト) ウィンドウでメモリ使用量を表示します

       Dim cn As ADODB.Connection
       Dim rs As ADODB.Recordset
       Dim i As Integer
       Dim max As Integer
       Dim r As Long
       Dim hPDHQuery As Long            'Handle to performance monitor query
       Dim hPDHCounter As Long          'Handle to performance monitor counter
       Dim strCounterPath               'Path to performance monitor counter
       Dim lngCounterStatus As Long     'Status of counter when checked
       Dim dblPrivateBytes As Double    'Value of counter when checked
       Set cn = New ADODB.Connection
   'Jet connection string.
       cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path & "\test.xls;" & _
           "Extended Properties=Excel 8.0"
       'Initialize PDH query object.
       r = PdhVbOpenQuery(hPDHQuery)
       'Initialize counter.
   'Edit the value of the "strCounterPath" variable.
       strCounterPath = "\\<computername>\Process(Excel)\Private Bytes"
       r = PdhVbAddCounter(hPDHQuery, strCounterPath, hPDHCounter)
       'Gather data.
       r = PdhCollectQueryData(hPDHQuery)
       'Get counter value and process data.
       dblPrivateBytes = PdhVbGetDoubleCounterValue(hPDHCounter, _
           lngCounterStatus)
       If PdhVbIsGoodStatus(lngCounterStatus) Then
           Debug.Print "Memory used by Excel: " & CLng(dblPrivateBytes)
       Else
           Debug.Print "Invalid data."
       End If
   'Edit the value of the "max" variable.
       max = 100
       ReDim alngPrivateBytes(max)
       For i = 1 To max
           Set rs = New ADODB.Recordset
           rs.CursorLocation = adUseClient
   'Edit the query to reflect the name of the worksheet.
           rs.Open "SELECT * FROM [Customers$]", cn
           Do Until rs.EOF
               rs.MoveNext
           Loop
           rs.Close
           Set rs = Nothing
           r = PdhCollectQueryData(hPDHQuery)
           'Get counter value and process data.
           dblPrivateBytes = PdhVbGetDoubleCounterValue(hPDHCounter, _
               lngCounterStatus)
           'Process data.
           If lngCounterStatus = 0 Then
               Debug.Print "Memory used by Excel: " & CLng(dblPrivateBytes)
               alngPrivateBytes(i) = CLng(dblPrivateBytes)
           Else
               Debug.Print "Invalid data."
               alngPrivateBytes(0) = 0
           End If
       Next
       cn.Close
       Set cn = Nothing
       Debug.Print "Total increase for " & max & " iterations: " & _
           (CStr(alngPrivateBytes(max) - alngPrivateBytes(0)))
       Debug.Print "Average increase per iteration: " & _
           (CStr((alngPrivateBytes(max) - alngPrivateBytes(0))) / max)
       'Clean up.
       r = PdhRemoveCounter(hPDHCounter)
       r = PdhCloseQuery(hPDHQuery)
   					

   。
5. コードでの次変更を行います。
   
   
   • Jet 接続文字列を Excel のテスト ファイルの場所を反映を編集します。
     メモ: 次のようにコメントは、: ' 接続文字列を Jet。
   • ローカルのワークステーション名を使用するには、"strCounterPath"変数の値を編集します。
     メモ: 次のようにコメントは、: '、"strCounterPath"の変数の値を編集します。
   • テスト データ ファイル内のワークシートの名前を反映するクエリを編集します。
     メモ: 次のようにコメントは、: '、ワークシートの名前を反映するクエリを編集します。
   • 繰り返しの必要な数の「最大」変数の値を編集します。
     メモ: 次のようにコメントは、: '「最大」、変数の値を編集します。
6. Excel アプリケーションを実行して、テスト Excel 開きますファイル。
7. Visual Basic アプリケーションの実行。 ADO オブジェクトを閉じてされリリースされた場合でも、Excel プロセスで使用されるメモリ内で一定が増加があることを確認します。

先頭へ戻る