VB6无excel环境下，ADO方法创建excel文件并创建工作表

Excel工作圈

已于 2023-04-20 08:38:01 修改

阅读量693

点赞数 1

文章标签： excel microsoft

于 2023-04-14 20:44:57 首次发布

本文链接：https://blog.csdn.net/csdn_gdde/article/details/130161702

版权

在没有Excel的情况下，通过安装AccessDatabaseEngine，使用VBA和ADODB.Connection可以创建Excel文件并建立多个工作表。生成的exe程序不需要额外安装驱动或引用，即可运行并创建Excel文件。

摘要由CSDN通过智能技术生成

代码环境，如果没Excel，则需要安装AccessDatabaseEngine，并引用。
生成exe程序后，无需安装任何驱动、引用，无需excel、WPS环境，即可生成Excel文件，并增加工作表。

'无Excel环境下，安装AccessDatabaseEngine（编译exe后无需安装），创建Excel文件，并新建工作表，注意C盘创建可能要管理员权限
'引用Microsoft ADO Ext 2.8 for DDL and Security
'引用Microsoft ActiveX Data Objects Recordset 2.8 Library
Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    '连接字符串中指定Excel文件名及版本号
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.xls;Extended Properties=""Excel 8.0;HDR=Yes;"""
    cn.Open
    
    cn.Execute "CREATE TABLE [新建表A] (ID INT, Name VARCHAR(50))"
    cn.Execute "CREATE TABLE [新建表B] (ID INT, Name VARCHAR(50))"
    cn.Execute "CREATE TABLE [新建表C] (ID INT, Name VARCHAR(50))"
    '从数据库中删除表用语句DROP TABLE sheetname，Excel中无法删除表
    cn.Close
End Sub