把Excel当成数据库操作

近日老弟有个需求，要从excel中筛选数据出来。他只需要把筛选出来的数据放到另外一个Sheet里就行了。我的想法是用VBA 或者 c++。 c++是个人喜好，VBA是Office默认支持的，之间没有用过。于是Google了一把，发现还挺简单的，代码直接粘来用。用的是VBA 和 ODBC，微软自己的一套东西兼容性真是好。

事先当然是要有一个存了数据的excel文件
示例数据：

Emp Id	Name	Age	Dept
1	Sumit	20	IT
2	Raghav	13	CS
3	Gaurav	20	MS
4	Neel	30	EEE
5	Nemish	25	IT
6	Harish	22	IT
7	Bharath	21	EEE
8	Rishab	23	Civil
9	Gagan	27	IT
10	Abhishek	31	Art

主要步骤：

1. 设置目标文件为数据源 DSN
   64位系统注意”ODBC driver could not be found”，调用正确的位置设置数据源[1][2] ，如 windows 7 64位使用：
   c:\windows\sysWOW64\odbcad32.exe

2. 打开VB编辑器
   我是从developer[3]标签打开的。Excel Options -> Popular -> Show Developer tab in Ribbon

3. 执行得出结果

下面的代码就可以了，都是数据库操作的常规代码：
目的是把Sheet1 里 A1到Z500里 Dept 为 ‘IT’ 的行筛选出来放到Sheet2中

Sub ReadDB()
Dim mainWorkBook As Workbook
Dim intRowCounter
Set mainWorkBook = ActiveWorkbook
intRowCounter = 2
mainWorkBook.Sheets("Sheet2").Range("A2:Z100").Clear
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "DSN=SumitODBC"
strQuery = "SELECT * FROM [Sheet1$A1:Z500] where Dept = 'IT'"
Set resultSet = Connection.Execute(strQuery)
Do While Not resultSet.EOF
    mainWorkBook.Sheets("Sheet2").Range("A" & intRowCounter).Value = resultSet.Fields("Emp Id").Value
    mainWorkBook.Sheets("Sheet2").Range("B" & intRowCounter).Value = resultSet.Fields("Name").Value
    mainWorkBook.Sheets("Sheet2").Range("C" & intRowCounter).Value = resultSet.Fields("Age").Value
    mainWorkBook.Sheets("Sheet2").Range("D" & intRowCounter).Value = resultSet.Fields("Dept").Value
    intRowCounter = intRowCounter + 1
  resultSet.movenext
Loop
resultSet.Close
End Sub

可以把代码保存成宏。我的结果是：

当然也有用 csv 的，导出为 csv 再操作。比如 ref [4], 如果 用MFC的话 还有 CDatabase Class, CDaoDatabase Class 可以研究下。

[1]https://excel-macro.tutorialhorizon.com/vba-excel-make-excel-file-as-odbc-sourcedatabase-using-microsoft-excel-driver/
[2]https://support.microsoft.com/en-us/kb/2721825
[3]https://support.office.com/en-us/article/Show-the-Developer-tab-or-run-in-developer-mode-1b4a8529-3094-432a-9a7f-53935089e5ed
[4] http://www.cplusplus.com/forum/windows/28103/
[5]http://excel-macro.tutorialhorizon.com/vba-excel-read-excel-workbook-as-database-using-odbc-source/