VB6使用libxl操作Excel一、libxl的简介及下载说明二、VB6使用libxl库操作Excel 本文参考： 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

90 阅读 0 评论 60 点赞

我是靠谱客的博主清爽方盒，这篇文章主要介绍VB6使用libxl操作Excel一、libxl的简介及下载说明二、VB6使用libxl库操作Excel 本文参考： 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 ，现在分享给大家，希望可以做个参考。

文章目录

一、libxl的简介及下载说明
二、VB6使用libxl库操作Excel

一、libxl的简介及下载说明

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

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

（2）下载：

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

文件名称	说明
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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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