0

行 6 まで続くいくつかの見出しを含む xlsx ファイルがあります。クエリの結果を取得し、それらをファイルの行 7 以降に配置する必要があります。クエリ結果を追加またはエクスポートするかどうかはわかりません。

Const acExportQuery = 1
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "\HealthyImmunity Contact Manager - V1.53.adp"
objAccess.ExportXML acAppendData, "c:\scripts\testOrder.xlsx", "col_USbatchOrders"

誰にもアイデアはありますか？

4

1 に答える 1

0

Below is an example code which you can trigger from excel.. add it to workbook_open even in excel and it should import the query execution result from database

 Sub GetData()

 Dim cnn As ADODB.Connection

 Dim rs As ADODB.Recordset

 Dim sQRY As String

 Dim strFilePath As String

 strFilePath = "\HealthyImmunity Contact Manager - V1.53.adp"   
 Set cnn = New ADODB.Connection
 Set rs = New ADODB.Recordset
 Sheet1.Range("DataRange").ClearContents
 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & strFilePath & ";"
 sQRY = "SELECT tblData.* FROM tblData"
 rs.CursorLocation = adUseClient
 rs.Open sQRY, cnn, adOpenStatic, adLockReadOnly
 Application.ScreenUpdating = False
 Sheet1.Range("B2").CopyFromRecordset rs
 rs.Close
 Set rs = Nothing
 cnn.Close
 Set cnn = Nothing
 Exit Sub

End Sub

于 2013-06-21T15:40:33.597 に答える