です。これは、私がしばらくの間、ラウンドおよびラウンドしていたものです。本質的には、ExcelのダイナミックAccessテーブルの範囲。Accessデータベースエンジンがオブジェクトオブジェクトを見つけることができませんでした。範囲はExcel
私は、例えば、範囲を参照することでこれを行うことに成功しましたが、少し自立するためには、ダイナミックレンジを使用することをお勧めします。次のように
私が持っているコードは次のとおりです。
Sub ExportDistDatatoSql()
Dim cn As ADODB.Connection
Dim STRQUERY As String
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\uMyDB.accdb;"
.Open
End With
ssql = "INSERT INTO Crude_Prods_DB Select * from [Excel 12.0;HDR=YES;DATABASE=C:\TEST\mysheet.xlsm].[n_range]"
cn.Execute ssql
End Sub
私は見ていますエラーが装着されていると私は[n_range]ワークブックには存在しないにチェックしています。
[エクセル名前付き範囲からアクセステーブルにデータを挿入しようとしたときに見られるエラー]
任意の提案をいただければ幸いです。
エラーメッセージのスクリーンショットは表示されません。そのエラーに遭遇したら、デバッグモードに入り、イミディエイトウィンドウにこのハイライトされたテキストを1行として貼り付け、その行の最後にEnterキーを押します: 'Debug.Print err.Number; err.Description'あなたは 'Debug.Print'の出力をコピーしてあなたの質問に貼り付けることができます。 – HansUp
...またはCtrl + Cは、通常、メッセージボックスのテキストをクリップボードにコピーします。 –