1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；3、代码如下：...

'首先通过VB的菜单[工程]--[引用]，勾选：MicrosoftExcelXX.XObjectLibrary'其中XX.X，要看你计算机安装的OFFICE版本而定PrivateSubCommand1_Click()DimxlsAppAsExcel.Application'声明对象变量Set...

1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。3.在弹出的查找...

1、在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim...

一个按钮，五个文本框（文本框用复制方式）dimxlsappasexcel.applicationdimxlsbookasexcel.workbookdimxlssheetasexcel.worksheetsetxlsapp=newexcel.applicationsetxlsbook=xlsapp.workbooks.adds...

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

excel.worksheetprivatesubcommand1_click()onerrorresumenext'后台进程运行excel程序，并得到该工作簿setxlbook=xlapp.workbooks.open("f:\1.xls")xlapp.visible=false'获得该工作簿的“sheet1”表se...

SetAppExcel=CreateObject("Excel.Application")'创建Excel对象SetxlBook=AppExcel.Workbooks.Open("D:\数据表.xls")'打开工作簿IfAppExcelIsNothingThenExitSub'错误则退出Forx=1ToAppExcel....

a(3,3)asintegefori=1to3forj=1to3'这步是利用a到c之间的ascii码来处理，如果是i循环1,5的话，那就会是a,b,c,d,e,内循环j管a3~a5,a(i,j)=int(xlsheet.range(chr(asc("a")+...

'打开Excel连接xlConn.OpenstrConn'像打开数据库一样，使用SQL语言，打开名称为“sheet1”的工作表xlRs.Open"select*from[sheet1$]",xlConn,adOpenStatic,adLockReadOnly'获得表中数据的记录数xlCnt=...