https://blog.
想实现一下vb 转vfp的代码请帮助落实一下谢谢

我在ID大师那学习到了一点点儿，仅供参考哈

LoadLIBXL()

Book = xlCreateBookCA()
sheet = xlBookAddSheetA(Book, [stu] ,0)
* 写
xlSheetWriteStrA(sheet,1,1,[姓名],0)
xlSheetWriteStrA(sheet,1,2,[年龄],0)

xlSheetWriteStrA(sheet,2,1,[张三],0)
xlSheetWriteStrA(sheet,3,1,[李四],0)

xlSheetWriteNumA(sheet,2,2,22,0)
xlSheetWriteNumA(sheet,3,2,23,0)
* 读
? xlSheetReadStrA(sheet, 1 , 1 , 0)
? xlSheetReadNumA(sheet, 2 , 2 , 0)
* 存    
xlBookSaveA(BOOK,[测试.xls])
* 放
xlBookReleaseA(BOOK)



***
***
PROC LoadLIBXL

    DECLARE LONG    xlCreateBookCA         in libxl.dll 
    DECLARE LONG    xlCreateXMLBookCA      in libxl.dll 
                                                    
    DECLARE INTEGER xlBookLoadA            in libxl.dll LONG handle , STRING filename
    DECLARE INTEGER xlBookSaveA            in libxl.dll LONG handle , STRING filename
                                                    
    DECLARE LONG    xlBookAddSheetA        in libxl.dll LONG handle , STRING name , LONG initSheet

    DECLARE         xlBookReleaseA         in libxl.dll LONG handle
                                                    
    DECLARE STRING  xlSheetReadStrA        in libxl.dll LONG handle , INTEGER row , INTEGER col , LONG @format
    DECLARE INTEGER xlSheetWriteStrA       in libxl.dll LONG handle , INTEGER row , INTEGER col , STRING value , LONG format
                                                    
    DECLARE DOUBLE  xlSheetReadNumA        in libxl.dll LONG handle , INTEGER row , INTEGER col , LONG @format
    DECLARE INTEGER xlSheetWriteNumA       in libxl.dll LONG handle , INTEGER row , INTEGER col , DOUBLE value , LONG format

libxl有无类似VBA的编程支持?

这个是一个可以不安装EXCEL就可以实现写入数据的东西，目前只是知道在速度上飞快。但没有上手学习明白，谢谢！！！

https://www.

Code example: generate a new spreadsheet from scratch

#include "libxl.h"


int main()
{
    BookHandle book = xlCreateBook(); // xlCreateXMLBook()
    if(book)
    {
        SheetHandle sheet = xlBookAddSheet(book, L"Sheet1");
        if(sheet)
        {
            xlSheetWriteStr(sheet, 2, 1, L"Hello, World !", NULL);
            xlSheetWriteNum(sheet, 3, 1, 1000, NULL);
        }
        xlBookSave(book, L"example.xls");
        xlBookRelease(book);
    }
    return 0;
}

这个可以，DLL的API库，文件1M多点不大，提供了618个函数，不知有无版权问题?

有版权的，在程序中Key一下就行了，否则生成的EXCEL文件有提示试用的一条显示的Created by LibXL trial version. Please buy the LibXL full version for removing this message.

有那么多函数吗

怎么key?