Accessの自動並べ替えについて (ID:118865)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になります。
環境はVB6.0  およびAccess2000です。

Accessのテーブル内容を一括でExcelに書き込んでいる処理を行っているのですが
途中でIDを削除してからデータをそのまま貼り付けているのですが
アクセスのデータの順番とエクセルに出力された順番が違ってしまいます。

これは  プログラムで並べ替えを行わないように制御したりできるのでしょうか？

どなたか  知っておられます方がおりましたら  教えて下さい。
よろしくお願いいたします。

具体的なロジックは下記のとおりです。

'*****************************************************
'* 印刷処理(ACCESS  ---->>  EXCEL)
'*****************************************************
Public Sub ps_PRINT()

Dim cn        As ADODB.Connection
    Dim rst       As ADODB.Recordset
    Dim objExcel  As Excel.Application
    Dim xlBook    As Excel.Workbook
    Dim xlSheet   As Excel.Worksheet
    
    Dim s_path_xlsname As String         'エクセルファイルのアドレスパス名
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\access\SAMPLE.mdb;"
    cn.Open
    
    rst.ActiveConnection = cn
    rst.CursorType = adOpenStatic
    rst.Open
    
    s_path_xlsname = "C:\EXCEL\sample.xls" 'エクセルファイル（出力用）
    
    Set objExcel = New Excel.Application
    Set xlBook = objExcel.Workbooks.Open(s_path_xlsname)
    Set xlSheet = xlBook.Worksheets(s_sheetname)
    
    xlSheet.Cells(1, 1).CopyFromRecordset rst
            
    Set xlSheet = Nothing   
    xlBook.Save                      'エクセルブック保存
    xlBook.Close                     'エクセルブック閉じる
    
    Set xlBook = Nothing             'エクセルブックの解放
    
    objExcel.Quit           'エクセルアプリケーションの終了
    Set objExcel = Nothing  'エクセルアプリケーションの解放
    
    rst.Close               'レコードセットのクローズ
    cn.Close
    
    Set rst = Nothing
    Set cn = Nothing

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る