DAOによるExcelへのエクスポート

'MDB内のすべてのユーザテーブルをExcel97形式のブックにエクスポートする
'動作確認：Access97SR2 + Excel97 , VB6.0SP4 + Excel2000
Function tbl2book(mdbname As String, bookname As String)
Dim sqlstr As String
Dim db As DAO.Database
Dim td As DAO.TableDef

    Set db = OpenDatabase(mdbname)
     
    For Each td In db.TableDefs
        If InStr(td.Name, "MSys") = 0 Then
            sqlstr = "SELECT * INTO [Excel 8.0;Database=" & bookname & "].[" & _
            td.Name & "] FROM [" & td.Name & "];"
            Debug.Print td.Name, sqlstr
            db.Execute sqlstr
        End If
    Next td
    
    db.Close
    Set db = Nothing
    Set td = Nothing
    
End Function

トップページに戻る

Tips一覧に戻る