Excel の VBA ではまった…
まぁ、自分が悪いんだけどサー 今回Excel VBAの Function についてです。 Excel VBAでAccess(mdb)を使用したプログラムを書くことがあると思うんですよ。 で、下記コードを書きました。(一部のみ) Private adoCn As ADODB.Connection Private adoRs As ADODB.Recordset 'DBA接続用プロバイダーを取得する Public Function getProvider() getProvider = "Microsoft.Jet.OLEDB.4.0" End Function 'DBA接続用ファイルパスを取得する Public Function getDBAFilePath() getDBAFilePath = ThisWorkbook.Path & "\データ.mdb" End Function 'DBへ接続する Private Sub getConnection() If adoCn Is Nothing Then Set adoCn = New ADODB.Connection 'データ ソースへの接続 adoCn.Provider = getProvider() 'Accessへ接続プロバイダ名 adoCn.Open getDBAFilePath() '接続するmdbファイル名 End If End Sub コレで問題なく動くんですよ。正しく…きちんと… でも、たまーーーーーーーーーーーーーーーにエラーを出します。 「""を開くことができません。アプリケーションで認識できないデータベースであるか、またはファイルが破損しています。」 と… 問題なのは「""」の部分。普通は「"データ.mdb"を開くことが…」とエラーがでます。 でも「""を開くことが…」と出ます。 なんだこれっ！？と２・３テストしながら悩んだ結果、解りましたっ！ 判る人はもう判ると思います。 下記2つのFunc...