2 Excelシートの列の値を比較する方法 - C＃、Excel、Excel 2007、オフィスオートメーション

2つのExcelシートがあります（Excel 2007を使用）

列名を含むExcelシート1

name
kumar
manu
kiran
anu

列名を含むExcelシート2

name
kumar
anu

シートをアップロードしてから、ボタン（ここでは、各シートの名前列を比較します）から、シート2にない名前を別のExcelシートに追加し、D：names.xlsxに保存する必要があります

したがって、names.xlsxシートには

names
manu
kiran

私の質問が明確であることを願って、どんな助けも素晴らしいヤールになるでしょう

回答：

これを行う最も簡単な方法は次のとおりです。

1. ExcelファイルをC＃のデータテーブルに読み込む
2. データテーブルのマージ機能を使用して列をマージする
3. データをExcelファイルに書き戻します。

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 [Name] " _
& "FROM [Sheet1$] a " _
& "LEFT JOIN [Sheet2$] b " _
& "ON a.[Name]=b.[Name] " _
& "WHERE b.Name Is Null"

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