-1

我有 2 张 Excel 工作表（使用 Excel 2007）

带有列名的 Excel sheet1

name  
kumar 
manu  
kiran  
anu

带有列名的 Excel sheet2

name 
kumar   
anu

我将上传工作表，然后单击一个按钮（在这里我将比较每个工作表中的名称列）然后我需要将工作表 2 中缺少的名称添加到另一个 Excel 工作表并保存到 D:\names.xlsx

所以 names.xlsx 表应该包含

names
manu  
kiran

希望我的问题很清楚，任何帮助都会很棒

4

2 回答 2

2

您可以使用 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
于 2010-07-13T12:20:03.850 回答
1

最简单的方法是：

  1. 将excel文件读入C#中的数据表
  2. 使用数据表的合并功能合并列
  3. 将数据写回excel文件。
于 2010-07-13T09:16:50.130 回答