2

Excelで約200フィールドの少量のデータを取得し、各項目のwhere句にそのフィールドを使用してSQLからデータを取得しようとしています。

TABLE:

ID  Name    Phone
1   Test1   1234
2   Test2   1235
3   Test3   1236


Excel:
Date   ID
2/1/11 1
2/1/11 2
2/1/11 3

Excel内で取得できるようにしたい（できれば、追加のコード自体を記述せずに、単にクエリを使用したExcel ODBCまたはSQL接続である可能性があります。そのため、Excelドキュメントではデータがそのままになります：

Excel:
Date   ID  Name    Phone 
2/1/11 1   Test1   1234
2/1/11 2   Test2   1235
2/1/11 3   Test3   1236

私は自分自身を十分に明確に説明しているかどうかわかりません....

私はExcel 2007を使用していますが、2010もどこかに置いています。SQL は SQL Server 2000 です。

ありがとう！

4

2 に答える 2

5

ADO、恐れ入ります。

Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer

''This is not the best way to refer to the workbook
''you want, but it is very convenient for notes
''It is probably best to use the name of the workbook.

strFile = ActiveWorkbook.FullName

''Note that if HDR=No, F1,F2 etc are used for column names,
''if HDR=Yes, the names in the first row of the range
''can be used.
''This is the Jet 4 connection string, you can get more
''here : http://www.connectionstrings.com/excel

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

''Late binding, so no reference is needed

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")


cn.Open strCon

strSQL = "SELECT * " _
       & "FROM [Sheet1$] a " _
       & "LEFT JOIN " _
       & "[ODBC;Driver={SQL Server Native Client 10.0};" _
       & "Server=servername;Database=test;" _
       & "Trusted_Connection=yes].tbl b " _
       & "ON a.[Id]=b.[Id] "

rs.Open strSQL, cn, 3, 3


''Pick a suitable empty worksheet for the results
Worksheets("Sheet3").Cells(2, 1).CopyFromRecordset rs

''Tidy up
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
于 2011-02-16T00:29:45.693 に答える
-3

これをコードで実行しない正当な理由がない限り、SQL の代わりにコードを使用する必要があります。

于 2011-02-16T00:50:11.347 に答える