我是靠谱客的博主 清爽方盒,最近开发中收集的这篇文章主要介绍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和其他语言中使用。其优点如下:

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

(2)下载:

  1. 百度搜索libxl
    在这里插入图片描述
  2. 进入libxl官网主页
    在这里插入图片描述
  3. 进入libxl下载页面
    在这里插入图片描述
  4. 解压后文件的说明
    在这里插入图片描述
文件名称说明
bin32位动态链接库(非VB6所用库)
bin6464位动态链接库(非VB6所用库)
doc函数说明的文档,用C++讲解的
examples多种语言使用libxl的例子
include_cC的文件头
include_cppC++的文件头
lib32位微软Visual C++的库
lib6464位微软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

最后

以上就是清爽方盒为你收集整理的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 的全部内容,希望文章能够帮你解决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 所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错,欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(57)

评论列表共有 0 条评论

立即
投稿
返回
顶部