VB6使用libxl操作Excel

目录

---

一、libxl的简介及下载说明

（1）定义：
LibXL 是一个不依赖Microsoft Excel和.NET框架，可以直接读取和写入Excel文件的库。该库可以在C，C ++，C＃，VB6，Delphi，Fortran，Python和其他语言中使用。其优点如下：

1. 直接读写Excel文件；
2. 简单的互操作，不再依赖Excel；
3. 高性能写入

（2）下载：

1. 百度搜索libxl
   
2. 进入libxl官网主页
   
3. 进入libxl下载页面
   
4. 解压后文件的说明
   

文件名称	说明
bin	32位动态链接库（非VB6所用库）
bin64	64位动态链接库（非VB6所用库）
doc	函数说明的文档，用C++讲解的
examples	多种语言使用libxl的例子
include_c	C的文件头
include_cpp	C++的文件头
lib	32位微软Visual C++的库
lib64	64位微软Visual C++的库
net	.NET使用的文件
stdcall	使用stdcall调用约定的32位动态库（VB6可以调用的libxl库）

二、VB6使用libxl库操作Excel

1. VB6示例libxl的说明
   

Option Explicit

Private Sub Form_Load()
On Error Resume Next

    Dim book As Long '存放操作Excel的指针
    Dim sheet As Long '存放操作当前sheet的指针

    '创建一个操作xls格式的Excel的一个实例（指针）
    book = xlCreateBook()     

    If book <> 0 Then
		'许可证绑定
		'license name:购买许可证的name
		'license key:购买许可证的key
		'Call xlBookSetKey(book,  "license name", "license key")
		
        '新增一个工作表sheet
        sheet = xlBookAddSheet(book, "Sheet1", 0)
        
        If sheet <> 0 Then
            '在新增的Sheet1中写入数据
            
            '在Sheet1的第三行第二列单元格写入字符串"Hello, World !"
            '（位置计算说明：3 = 2 + 1 , 2 = 1 + 1 ）
            Call xlSheetWriteStr(sheet, 2, 1, "Hello, World !", 0)
            
            '在Sheet1的第四行第二列单元格写入数值123.456
            '(位置计算说明：4 = 3 + 1 , 2 + 1 + 1)
            Call xlSheetWriteNum(sheet, 3, 1, 123.456, 0)
        End If
        
        '在sheetindex = 0 的工作表（Sheet1）
        '前面插入一个工作表MySheet2
        sheet = xlBookInsertSheet(book, 0, "MySheet2", 0)
        
        '在sheetindex = 1 的工作表（Sheet1）
        '前面插入一个工作表MySheet3
        sheet = xlBookInsertSheet(book, 1, "MySheet3", sheet)
        
        '计算该Excel总共有多少个工作表（sheet）
        Dim sheetCnt As Integer: sheetCnt = xlBookSheetCount(book)
        Me.Caption = "SheetCount = " & sheetCnt
        
        '删除sheetindex = 1 的工作表（MySheet3）
        Call xlBookDelSheet(book, 1)
        
        '保存该Excel，并命名为"example.xls"
        Call xlBookSave(book, "example.xls")
        
        '释放操作Excel的资源
        Call xlBookRelease(book)

    End If

End Sub

VB6示例无许可证的返回结果

VB6示例有许可证的返回结果

本文参考：
1、http://www.libxl.com/download.html
2、https://blog.csdn.net/zt_xcyk/article/details/72846042

---

原文链接：https://blog.csdn.net/qq_35844043/article/details/103116752