怎样在Excel中添加用c语言编写的程序?

通过ODBC来把Excel的表格文件的当成数据库文件来进行读、写等 *** 作，所以在Excel表格的文件的中写入的行头名必须是唯一（不要重名，相当于数据库中的id值）。本文中对Excel的文件的 *** 作的都被封装进了一个类CSpreadSheet中，通过它我们可以非常的简单的实现各种Excel的表格数据 *** 作，并且可以对该类的进行了扩充来满足自己需求。

具体实现

一、 包含Excel文件的 *** 作类头文件

#Include ‘cspreadSheet.h’

二、 新建Excel的文件，并写入了默认的数据

// 新建excel的文件名以及路径，testsheet为内部的表名

cspreadSheet SS(‘c:\\Test.xls’, ‘TestSheet’)

cstringArray SampleArray, testRow；

ss.beginTransaction（）；

// 加入标题

SampleArray.RemoveAll（）；

SampleArray.Add（‘姓名’）

sampleArray.Add（‘年龄’）‘

ss.AddHeaders（sampleArray）；

// 加入数据

cstring strName【】= ｛‘徐景周’,‘徐志慧’,‘郭徽’,‘牛英俊’,‘朱小鹏’｝

cstring strAg【】 = ｛‘27’,’23‘,‘28’,‘27’,‘26’｝；

for（int i = 0； i <sizeOf(strName)/sizeOf(cstring)；i++；）

{

SampleArray.RemoveAll（）

SampleArray.Add（strName[i]）；

SampleArray.Add（strAge[i]）；

ss.AddRow（sampleArray）；

}

ss.Commit（）

可使用Vba，代码如下：

Sub Object_Insert()

Dim my_Link, my_Doc As String

Dim i As Single

i = 1

Application.FileDialog(msoFileDialogFolderPicker).Show

my_Link = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

my_Doc = Dir(my_Link &"\")

Do While Len(my_Doc) <>0

Cells(i, 3).Select

ActiveSheet.OLEObjects.Add(Filename:=my_Link &"\" &my_Doc, _

Link:=False, DisplayAsIcon:=True, IconFileName:= _

"C:\Windows\system32\packager.dll", IconIndex:=0, IconLabel:= _

my_Doc).Select

my_Doc = Dir

i = i + 1

Loop

End Sub

---