通过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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)