参照設定なしでACCESSからExcelファイルを作成する方法です。
罫線等の定数は使用できないため、実際の数値を与えています。

Dim xlApp    As Object
Dim xlBook   As Object
Dim xlSheet  As Object
Dim FileName As String

FileName = Environ("USERPROFILE") & "\デスクトップ\test.xls"

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileName)
Set xlSheet = xlBook.WorkSheets(1)

続きを読む…»

Dim db As Object
Dim rst As Object

Set db = DBEngine.Workspaces(0).Databases(0)

MsgBox db.Name

Set rst = db.OpenRecordset("テーブルまたはクエリ名")

Do Until rst.EOF
    Debug.Print rst("フィールド名")
    DoEvents
    rst.MoveNext
Loop

rst.Close: Set rst = Nothing
db.Close: Set db = Nothing

OpenRecordsetメソッドにdbOpenDynasetなどの引数を指定したい場合
定数が使用できないので、下記を参考に数値を入力してください。

SQL Serverへ接続する場合について（※2016.06.14追記）

SQL ServerのID列を持つテーブルを開くときは、dbSeeChanges(512)オプションを使用するようエラーが発生します。
その場合は以下のように開きます。

Set rst = db.OpenRecordset("テーブルまたはクエリ名", 2, 512)

CurrentDbの推奨（※2020.10.28追記）

Access2000以降ではデータベースをする際、上記のコードにある「DBEngine.Workspaces(0).Databases(0)」よりも「CurrentDb」の使用が推奨されているようです。

Set db = CurrentDb

また、別のデータベースを参照する必要があるときは以下のようにしてください。

Set db = DBEngine.Workspaces(0).OpenDatabase("Another.mdb")

参考URL：CurrentDb メソッド (Access) | Microsoft Docs

Visual Basicでは改行を表現する際、vbCrLfと表記しますが、
更新クエリ等で改行を含んだ処理をしたいときは利用できません。

その場合、以下のように改行を表現します。

Chr(13) & Chr(10)

Chr(10) = LF（ラインフィード）
Chr(13) = CR（キャリッジリターン）

Microsoft ACCESSのクエリーの中で、Replaceなどの関数を使おうとした場合、
未定義関数とのエラーが出て使えません。
これはOffice2000では使用できない機能となっているようです。
使用できるのは2002以降。

要は例の「VBE6.DLL」のバージョンアップである。
これは以前にもACCESS 2007のランタイムをインストールした際にアップデートされたが、
この時、MDBファイルが最適化できなくなって結局元に戻した。

今回おこなったのは
「Microsoft® Visual Basic® for Applications (VBA) アップデート – Q822150」
http://www.microsoft.com/downloads/details.aspx?FamilyId=DA1A7ABA-CD3D-458B-9729-AB9094C9BD3F&displaylang=ja
以前のことがあったので心配だったが、結果大丈夫そうだ。
今回は6.0.87.14から6.4.99.69にアップデートされた。

ACCESSを触っていたら、完全に固まったわけではないが、動かなくなったので
強制終了ではなくファイルメニューより終了させた。

その後、再起動する際にメモリのエラー（？）が出た。
恐らくアドレス不明でメモリが開放できない、みたいなことだと思われる。

再起動後、MDBを開いて空のテーブルにクエリでデータを追加しようとしたら、
更新可能なクエリである必要があります。と言われ追加できなくなってしまった。

他のＰＣから試みても、どうも読取専用になってしまっているようで、できなかった。
他のＰＣからはデータ元の削除などもアクセス拒否され、できなかった。

はじめは、「ACCESS　更新可能なクエリ」等で調べたが、有用な結果は得られなかった。

そこで、[コンパネ]->[管理ツール]->[イベントビューワ]でエラーログを見ると、レジストリのエラーが４件出ていた。

で、「XP　レジストリ　復元」調べたが、解決方法として出てきたのは
システムの復元、もしくはデフラグ、ブートプロンプトで「scanreg /fix /opt」を実行する、など。
scanregはXPで実行ができないので、msconfigにてセーフモードで起動してみる。
しかし、scanregが使用できるわけではなかった。

ので、システムの復元をしてみることに。
システムの復元は[スタート]->[アクセサリ]->[システムツール]->[システムの復元]
１日前まで復元したら復活した。