vb写的程序导出excel表的问题

wps不支持vb链接的卸载wps应该是没卸载干净你重新安装wps然后用完美卸载卸载wps然后装回excel

打开vb重新引用一下excel

打开你写的vb程序点击工程-引用

勾选确定

只要选文件-》生成exe选项就可以了

如果想导入图标，可以修改form1的ICON属性，这个属性可以更换图标。因为VB生成的exe是默认为form1的ICON属性中的图标，所以这样就可以。当然你也可以换上其他控件的图标，比如form2的图标，可以选 工程-》工程1（工程名）属性-》在 生成 选项卡里面可以更改图标

以前在网上抠的，看看对您有没有帮助：

举例：

1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：

Dim xlApp As ExcelApplication '定义EXCEL类

Dim xlBook As ExcelWorkbook '定义工件簿类

Dim xlsheet As ExcelWorksheet '定义工作表类

Private Sub Command1_Click() '打开EXCEL过程

If Dir("D:\temp\excelbz") = "" Then '判断EXCEL是否打开

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL应用类

xlAppVisible = True '设置EXCEL可见

Set xlBook = xlAppWorkbooksOpen("D:\temp\bbxls") '打开EXCEL工作簿

Set xlsheet = xlBookWorksheets(1) '打开EXCEL工作表

xlsheetActivate '激活工作表

xlsheetCells(1, 1) = "abc" '给单元格1行驶列赋值

xlBookRunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏

Else

MsgBox ("EXCEL已打开")

End If

End Sub

Private Sub Command2_Click()

If Dir("D:\temp\excelbz") <> "" Then '由VB关闭EXCEL

xlBookRunAutoMacros (xlAutoClose) '执行EXCEL关闭宏

xlBookClose (True) '关闭EXCEL工作簿

xlAppQuit '关闭EXCEL

End If

Set xlApp = Nothing '释放EXCEL对象

End

End Sub

2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bbxls"的EXCEL文件。

3、在"bbxls"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：

Sub auto_open()

Open "d:\temp\excelbz" For Output As #1 '写标志文件

Close #1

End Sub

Sub auto_close()

Kill "d:\temp\excelbz" '删除标志文件

End Sub

4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行 *** 作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

引用方法为：点击VB工程菜单，选择引用，选择Microsoft DAO 36 Compatibility Library并确定

'------------------------------------------------

Private Sub Form_Load() '窗口load过程

Dim myDb As Database

Dim myTb As Recordset

Set myDb = OpenDatabase("c:\datamdb") '打开数据库文件

Set myTb = myDbOpenRecordset("xpress") '打开表文件

If myTbRecordCount < 4 Then '表文件记录小于4条退出程序

Set myTb = Nothing

Set myDb = Nothing

Exit Sub

End If

myTbMoveFirst '记录指针移动到第一条

myTbMove 2 '记录指针向下移动2条即移动到第三条

Text1Text = myTb!DefaultValue 'text1赋值为xpress表的DefaultValue字段的第三条记录

myTbMoveNext '记录指针下移一条

Text2Text = myTb!DefaultValue 'text2赋值为xpress表的DefaultValue字段的第四条记录

Set myTb = Nothing

Set myDb = Nothing

End Sub

Private Sub Command1_Click()

Dim myDb As Database

Dim myTb As Recordset

Set myDb = OpenDatabase("c:\datamdb")

Set myTb = myDbOpenRecordset("xpress")

myTbMoveFirst '记录指针移动到第一条

myTbMove 2 '记录指针下移到第三条

myTbEdit '数据库为编辑状态

myTb!DefaultValue = Text1Text '数据库xpress表的DefaultValue字段第三条赋值为text1的文本

myTbUpdate '保存更改的记录

myTbMoveNext '记录指针下移一条到第四条

myTbEdit

myTb!DefaultValue = Text2Text

myTbUpdate

Set myTb = Nothing

Set myDb = Nothing

End Sub

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 90 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As ExcelApplication

Dim xlBook As ExcelWorkBook

Dim xlSheet As ExcelWorksheet

3、在程序中 *** 作EXCEL表常用命令：

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

Set xlBook = xlAppWorkbooksOpen("文件名") '打开已经存在的EXCEL工件簿文件

xlAppVisible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBookWorksheets("表名") '设置活动工作表

xlSheetCells(row, col) =值 '给单元格（row,col）赋值

xlSheetPrintOut '打印工作表

xlBookClose (True) '关闭工作簿

xlAppQuit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBookRunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

xlBookRunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

4、在运用以上VB命令 *** 作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它 *** 作，也能够关闭EXCEL，同时也可对EXCEL进行 *** 作。但在EXCEL *** 作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

以上就是关于vb写的程序导出excel表的问题全部的内容，包括:vb写的程序导出excel表的问题、在vb net 2003中如何导出已完成的windows程序 导出已完成的windows程序、求代码，这是我做的VB程序，运行后点击“打印”按钮，将所有数据导出到Excel中。有谁会啊，帮帮忙！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！