mdbをテキストに変換するツールありますか？

Question

mdbファイルを開きたいのですがAccessは持っておらず，Excelで開こうとするとデータが大きすぎて全部は表示しきれないとメッセージが出て困っています．
そこで質問なのですが，mdbファイルをcsvなどのテキスト形式のファイルに変換するフリーウェアがあればご教示ください．

16August · Accepted Answer

エクセルvbaでcsv変換できるコードを書いてみました。

ツール→参照設定で
Microsoft ActiveX Data Object 2.x Library
Microsoft Scripting Runtime
にチェックを入れておいてください。

あとコマンドボタンを一つ作りそのクリック時のイベントに以下を書き加え「ｍｄｂファイル名」、「テーブル名」、「出力ファイル名」を適宜書き換えてコマンドボタンを押すとＣＳＶ変換できると思います。　（コマンドボタンのキャプションが抽出中から終了に変わればファイルは出来上がっています）

Private Sub CommandButton1_Click()
    Dim Con As New ADODB.Connection
    Dim Rst As New ADODB.Recordset
    Dim strMDBName As String
    Dim strSQL As String
    Dim FSO As New FileSystemObject
    Dim TS As TextStream
    Dim strMDBFILEName As String
    Dim strTXTFILEName As String
    Dim strConName As String
    Dim strTBLName As String
    Dim strOUTText As String
    Dim lngFieldNum As Long
    Dim lngCount As Long
    'mdbファイル名（フルパスで）
    strMDBFILEName = "C:\Documents and Settings\...............\mdbname.mdb"
    'テーブル名
    strTBLName = "テーブルＡ"
    '出力ファイル名（フルパスで）
    strTXTFILEName = "C:\Documents and Settings\..............\OUTPUT.TXT"
    strSQL = "SELECT * FROM " & strTBLName
    strConName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMDBFILEName
    Set TS = FSO.CreateTextFile(strTXTFILEName, True)
    Me.CommandButton1.Caption = "抽出中"
    Con.Open strConName
    Rst.Open strSQL, Con, adOpenKeyset, adLockOptimistic
    lngFieldNum = Rst.Fields.Count
    Do Until Rst.EOF
        strOUTText = """" & Rst.Fields(0) & """"
        For lngCount = 1 To lngFieldNum - 1
            strOUTText = strOUTText & ",""" & Rst.Fields(lngCount) & """"
        Next lngCount
        TS.WriteLine strOUTText
    Rst.MoveNext
    Loop
    TS.Close
    Set TS = Nothing
    Set FSO = Nothing
    Rst.Close
    Con.Close
    Set Rst = Nothing
    Set Con = Nothing
    Me.CommandButton1.Caption = "終了"
End Sub

小さいファイルではできましたが、何万件というレコードでは実験していません。　（メモリ不足などの問題がおきないとは言い切れません。）　汎用性があるようには作っていませんので、複数のテーブルを出力されたい場合などはご自分で使いやすいように改造してください。

16August · Answer

ついでにでっかいｍｄｂファイルでも試してみました。
フィールド数80以上、レコード数４０万件以上のリンクテーブルをテキストに書き出してみました。およそ４分３０秒くらいで725ＭＢのテキストファイルが出来上がりました。　頭の部分しか確認はできませんでしたが、（テキストエディタが読み込むのに時間がかかりすぎるため）とりあえず正常に書けているようでした。　利用可能なメモリの状況をモニタしていましたが、開始前は670ＭＢ程度ありましたが、ぐんぐん下がっていきましたが、170ＭＢ程度になった時点でそれ以上下がることはなくなりました。　どうやらＦＳＯはそのあたりを考慮してくれるようです。
他の方法が見当たらなければ、お試しください。　すべてのデータをテキストとして出していますので、もしかしたら改造が必要かもしれません。　ただ、このＣＳＶファイル他のｄｂにインポートさせる以外には使いようがないですね。　開こうにもワードパッドではいつまでたっても開けませんでした。

16August · Answer

No4はＶＢＡしか使っていません（エクセルにデータを入れていません）ので、エクセルの行数が問題になることはないと思います。

celtis · Answer

１、Baseでファイルを開いたあと、Calcの新規書類を作成。
２、Baseの書き出ししたいテーブル名の上で右クリック、コピーを選択。
３、Calcの新規書類に切り替えて、貼り付け。
４、保存するときにcsv形式を選択。

これで書き出せるはずです。実際にOpenOffice2.2で確認しました。詳しい手順はOpenOfficeのヘルプで「エクスポート」を検索してください。

データベースが大きいとメモリを大量に消費するでしょうから、あらかじめ仮想記憶を大きめに設定するか、もしくは十分なメモリを積んだマシンで作業しましょう。

celtis · Answer

OpenOfficeで開けたのなら、csv形式でエクスポートできるような気がします。ファイル保存または書き出しのメニューから、形式を選んで保存ができないか確認してみてください。

また、SQL Studioというフリーウェアでも同様のことが可能でしょう。
このソフトは大変高機能なので、データベースを扱う作業をするならぜひ持っておいた方がいいと思います。
http://kuronekosoft.nobody.jp/

16August · Answer

使ったことはないけれど、
http://cowscorpion.com/file/MDBView.html
自分でsqlを発行するものを作るのもそう難しくはない。
http://www.asahi-net.or.jp/~ef2o-inue/download/sub09_010_080.html

mdbをテキストに変換するツールありますか？

エクセルvbaでcsv変換できるコードを書いてみました。

ついでにでっかいｍｄｂファイルでも試してみました。

No4はＶＢＡしか使っていません（エクセルにデータを入れていません）ので、エクセルの行数が問題になることはないと思います。

１、Baseでファイルを開いたあと、Calcの新規書類を作成。

OpenOfficeで開けたのなら、csv形式でエクスポートできるような気がします。

使ったことはないけれど、

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング