vb显示excel软件(vb+excel)

1. vb+excel

1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；

2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；

3、代码如下：DimExAppAsNewExcel.ApplicationDimExbAsExcel.WorkbookDimExshAsExcel.WorksheetDimarr(6,6)AsInteger'定义一个二维数组，数据类型为整数ExApp.Workbooks.Open"c:\book1.xls"'打开EXEL文件，路径和文件名自己根据实际修改SetExb=ExApp.Workbooks(1)SetExsh=Exb.Worksheets("Sheet1")Fori=1To6'假设是读取A1:F6的6X6区域数据Forj=1To6arr(i,j)=Exsh.Cells(i,j)NextjNexti'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSetExApp=Nothing

2. vb Excel不同列组成数组

举例

Dim a(10) As Integer

3. vb Excel单元格值转化为文本

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

2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令：

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值xlSheet.PrintOut '打印工作表xlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象这是我收藏的，你试一下

4. vb Excel 判断 筛选

1、首先在电脑上打开wps表格2、然后打开需要筛选的数据3、首先选中表头并点击“开始”

4、接着点击“筛选”

5、然后会发现表头后面有一个倒三角，点击“高数”后面的倒三角6、接着会弹出筛选选项，如点击“数字筛选”

7、如果需要筛选在一个范围内的数据，可以点击“介于”

8、然后输入需要筛选的范围，如大于等于70，小于等于809、接着就可以将高数成绩在70-80范围内的学生筛选出来了

5. vb Excel数据导出,由于其他程序忙

真够菜的，VB程序如果编译成EXE文件，直接打开就好了（当然如果程序里有第三方DLL的话，打包没有放进去，运行时会提示少文件）。如果没有编译其实就是文本格式，记事本都能打开。

6. vb Excel制图

操作步骤：

一、创建一个ACTIVEX DLL cadPro工程二、添加一个模块命名为ModCad.代码如下Public acadApp As ObjectPublic acadDoc As Object(这里建立一个新块主要是为了以后在多个窗体、类或者多个工程中可以调用)二、添加一个类ClsTest代码如下：

Public Function MenuMain(MenuIndex As Integer) '下面的判断在VB中测试的时候可以用到，在生成DLL后VBA调用时可注释 If ModCad.acadApp Is Nothing Or ModCad.acadDoc Is Nothing Then ConnectToAcad setApp ModCad.acadApp setDoc ModCad.acadDoc End If Select Case MenuIndex Case 1 AutoCADTest Case 2 End SelectEnd FunctionPublic Function ConnectToAcad() On Error Resume Next Set ModCad.acadApp = GetObject(, "AutoCAD.Application.16.2") '16.2是CAD的版本 If Err Then Err.Clear Set ModCad.acadApp = CreateObject("AutoCAD.Application.16.2"

) End If If Err Then Err.Clear Set ModCad.acadApp = GetObject(, "AutoCAD.Application"

) If Err Then Err.Clear Set ModCad.acadApp = CreateObject("AutoCAD.Application"

) End If If Err Then Unload Me End If End If ModCad.acadApp.Visible = True Set ModCad.acadDoc = ModCad.acadApp.ActiveDocumentEnd FunctionPublic Function setApps(acadObj As AcadApplication) Set ModCad.acadApp = acadObj Set ModCad.acadDoc = acadApp.ActiveDocumentEnd Function'VB中要在CAD中实现的功能Private Function AutoCADTest() Dim cadLine As AcadLine Dim cadPoint As Variant cadPoint = ModCad.acadDoc.Utility.GetPoint(, "请选取一个插入点：") ModCad.acadDoc.ModelSpace.AddCircle cadPoint, 5End Function三、如果要在VB中调试，在添加一个EXE工程，引用ACTIVEX工程，添加一个窗体，在窗体上添加一个按钮，Private Sub Command1_Click() Dim Rec As New cadPro.MenuMain Rec.MenuMain 1 End Sub四、生成DLL文件在VBA中调用。在工具----设定引用项目中加入生成的DLL。代码如下：

Option ExplicitPrivate clsGre As New cadPro.ClsTestPublic Sub cadtest() On Error Resume Next clsGre.setApp ThisDrawing.Application clsGre.MenuMain 1 End Sub按照以上四个步骤就可实现VB与AutoCAD的连接。以上程序在本机测试通过。OS:winxp sp2 chtAuotCAD Version:AutoCAD 2006

7. vb Excel做数据库

vb的数据导入到excel中去方法：

1、先打开控制面板-管理工具-打开数据源-系统DSN-添加驱动程序

 2、这里要输入你想要连接的哪个服务器上的数据库

 3、这里要输入数据库的帐户跟密码

4、然后一直点下一步，到这一步可以先测试能不能连到连据库

 5、连接成功后、接下来就是用VB连接SQL SERVER、导入数据到EXCEL表格中

6、先打开EXCEL表-开发工具-点击命令按扭-在表格中随便拉开

7、先点开发工具里的--设计模式--然后双击按扭

8、打开按扭是这样的、如果按扭是英文名、可以在左边的地方设置中文，然后把下面的代码复制到中间这里

9、只要改这2行里的就行了、strcn='数据源；服务器地址；数据库名称；帐户；密码'

10、第2行就是改SQL语句了

11、修改EXCEL单元表格开始列、还有右边的修改数据库表里的字段名称

 11、保存、然后返回EXCEL表格、点击查询、就可以了