作者:乔山办公网日期:
返回目录:excel表格制作
3.37 icePub_appendTextToFile
l 函数原型:
int WINAPI icePub_appendTextToFile(char *strText,char *strFilename,int traceFlag)
输入:strText 待写入文本串
strFilename 待写入文件名
traceFlag 非0即可;只方便e5a48de588b6e79fa5e98193331自用
输出:
l VC连接Lib方式声明
__declspec(dllexport)
int WINAPI icePub_appendTextToFile(char *strText,char *strFilename,int traceFlag);
l 动态调用例程
VC sample代码:
char strExeName[1024];
typedef int (WINAPI ICEPUB_APPENDTEXTTOFILE)(char *strText,char *strFilename,int traceFlag);
ICEPUB_APPENDTEXTTOFILE *icePub_appendTextToFile = 0;
HINSTANCE hDLLDrv = LoadLibrary("icePubDll.dll");
if(hDLLDrv)
{
icePub_appendTextToFile = (ICEPUB_APPENDTEXTTOFILE *)GetProcAddress(hDLLDrv, "icePub_appendTextToFile");
}
if(icePub_appendTextToFile != NULL)
{
icePub_appendTextToFile("头晕、眼花、走路打晃晃!","D:\\program files\\test\\c.txt",1);
}
if(hDLLDrv)
FreeLibrary(hDLLDrv);
VB sample 代码:
Private Declare Function icePub_appendTextToFile Lib "icePubDll.dll" (ByVal strText As String,ByVal strFilename As String,ByVal traceFlag As Integer) As Integer
Dim a2 As Integer
a2 = icePub_appendTextToFile("回家休息!","D:\program files\test\d.txt",1)
download:
http://dl.icese.net/dev.php?f=icePubDll.rar
文库有示范代码,比如这个
http://wenku.baidu.com/link?url=0H-FcNMjZBGsuhVrOSzzSj1qz-5C2tzZoKsQK6E1I3P6t0mthwwCrd_udX5OLHJGEiytAQy48YPlUCcknBOsxm_0RXUsD0p2DAZIb36UfIO
其中copyVC的操作,我个人建议以百AUTOMATION的方式,不建议用ADO ODBC,因为自动化对象更容易理度解和解析。
excel的版本是2007
用C++标准输出流输到excel中,如果没有回车,数据都在一个单元格中。希望能解决跳到同一行中的下一个单元格中。
你可以输出一个文本文件(.txt) ,
每行开始不要有空白,数据与数据之间用抄空白隔开。
鼠标光标放到 excel 窗的左上角 那个 圆型的 "Office Button", 揿鼠标左键,出来的菜袭单里有
Open,
揿了Open以后弹出 文件选择窗,选文件类型 .txt, 并找到你的vc++ 程序的文本输出文件。
接下来的 Text Import Wizard 里,选 Delimited, 然后zd 揿下面的 Next,下来 Delimiters 里选
Space(空白),( 如果你用 tab, 逗号分隔,也在这里选)。接下来 揿 finish。 就进了excel2007。
再下来你存放为 xlsx 文件就好了。