1. 在StdAfx.h文件中加入:
#include <afxdb.h> #include <odbcinst.h>2. 通過ODBC直接創建Excel文件並在表中插入數據(暫定文件名:Demo.xls)
//創建並寫入Excel文件 void CRWExcel::WriteToExcel() { CDatabase database; CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安裝驅動 CString sExcelFile = "c:\\demo.xls"; // 要建立的Excel文件 CString sSql; TRY { // 創建進行存取的字符串 sSql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", sDriver, sExcelFile, sExcelFile); // 創建數據庫 (既Excel表格文件) if( database.OpenEx(sSql,CDatabase::noOdbcDialog) ) { // 創建表結構(姓名、年齡) sSql = "CREATE TABLE demo (Name TEXT,Age NUMBER)"; database.ExecuteSQL(sSql); // 插入數值 sSql = "INSERT INTO demo (Name,Age) VALUES (''徐景周'',26)"; database.ExecuteSQL(sSql); sSql = "INSERT INTO demo (Name,Age) VALUES (''徐志慧'',22)"; database.ExecuteSQL(sSql); sSql = "INSERT INTO demo (Name,Age) VALUES (''郭徽'',27)"; database.ExecuteSQL(sSql); } // 關閉數據庫 database.Close(); } CATCH_ALL(e) { TRACE1("Excel驅動沒有安裝: %s",sDriver); } END_CATCH_ALL; }3. 通過ODBC直接讀取Excel文件(暫定文件名:Demo.xls)
// 讀取Excel文件 void CRWExcel::ReadFromExcel() { CDatabase database; CString sSql; CString sItem1, sItem2; CString sDriver; CString sDsn; CString sFile = "Demo.xls"; // 將被讀取的Excel文件名 // 檢索是否安裝有Excel驅動 "Microsoft Excel Driver (*.xls)" sDriver = GetExcelDriver(); if (sDriver.IsEmpty()) { // 沒有發現Excel驅動 AfxMessageBox("沒有安裝Excel驅動!"); return; } // 創建進行存取的字符串 sDsn.Format("ODBC;DRIVER={%s};DSN='''';DBQ=%s", sDriver, sFile); TRY { // 打開數據庫(既Excel文件) database.Open(NULL, false, false, sDsn); CRecordset recset(&database); // 設置讀取的查詢語句. sSql = "SELECT Name, Age " "FROM demo " "ORDER BY Name "; // 執行查詢語句 recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly); // 獲取查詢結果 while (!recset.IsEOF()) { //讀取Excel內部數值 recset.GetFieldValue("Name ", sItem1); recset.GetFieldValue("Age", sItem2); // 移到下一行 recset.MoveNext(); } // 關閉數據庫 database.Close(); } CATCH(CDBException, e) { // 數據庫操作產生異常時... AfxMessageBox("數據庫錯誤: " + e->m_strError); } END_CATCH; }4. 獲取ODBC中Excel驅動的函數
CString CRWExcel::GetExcelDriver() { char szBuf[2001]; WORD cbBufMax = 2000; WORD cbBufOut; char *pszBuf = szBuf; CString sDriver; // 獲取已安裝驅動的名稱(涵數在odbcinst.h裏) if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut)) return ""; // 檢索已安裝的驅動是否有Excel... do { if (strstr(pszBuf, "Excel") != 0) { //發現 ! sDriver = CString(pszBuf); break; } pszBuf = strchr(pszBuf, ''\0'') + 1; } while (pszBuf[1] != ''\0''); return sDriver; }