VB中如何调用EXCEL中的数据然后在VB中计算在VB中输

话题：VB中如何调用EXCEL中的数据然后在VB中计算在VB中输

问题详情：现在是想用Excel作为VB的数据库进行 作,看到网上有很多写的

回答：点击工程引用 把M EXCEL11.0哪项点上,类似DAO或ADO用法可以参见帮助,简单说就是他提供了 多类,分别对应不同的EXCEL元素如单元格等,通过类方法或属性来 作目标EXCEL,随便下一本vb数因该有介绍DAO的 作EXCEL类似!

话题：怎样通过vb设定一个按钮,自动调用excel加载以前录制好宏

问题详情：点击按钮后,vb就能调用excel宏程序,并对相关数据进行 作,获

回答：Set ExlApp=CreateObject("Excel.Application") ExlApp.Workbooks.Open “ 名”ExlApp.Run "宏名" ExlApp.Visible=True

参考回答：我觉得这个问题你应该换个思路,试试把EXCEL里的宏直接写在VB里面面。 码不用改太多的。把excel视作数据库

话题：我现在用vb做个小程序,需要调用excel中的数据,不知道需

问题详情：具体细节是:在VB窗口中输入某个人的姓名然后显示对应的excel

回答：伸手 啊 : zhidao.baiduhttp://www.zhishizhan.net/xiaozhishi/question/316531

参考回答：这个我觉得还是用数据库比较好。。。

话题：VB调用

问题详情：模块 码如下:Public xlApp As Excel.Application '定义EXCEL类

回答：你上面的程序出错后会直接 的。解决方法是在主程序装载时检测系统是否安装了EXCEL. 码如下:Private Declare Function RegOpenKey Lib _"advapi32" Alias "RegOpenKeyA" (ByVal hKey _As Long, ByVal lpSubKey As String, _phkResult As Long) As LongPrivate Declare Function RegQueryValueEx _Lib "advapi32" Alias "RegQueryValueExA" _(ByVal hKey As Long, ByVal lpValueName As _String, lpReserved As Long, lpType As _Long, lpData As Any, lpcbData As Long) _As LongPrivate Declare Function RegCloseKey& Lib _"advapi32" (ByVal hKey&)Private Const REG_SZ=1Private Const REG_EXPAND_SZ=2

参考回答：我不知道你是怎么想的,Set xlApp=CreateObject("Excel.Application") 和Public xlApp As Excel.Application作用是一样的。一种叫隐

话题：用VB 连接 EXCEL做一个报表的实例,要源 码,最好连工

问题详情：要求要用VB做一个报表,我连EXCEL做一个实例报表,谁能给我

回答：需要引用microsoft excel object library ..这样就可以把数据输出到excel中Public Sub seToExcel12() Dim xl As Excel.Application Dim xlBook As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim I As Integer, J As Integer Set xl=CreateObject("excel.application") If xl Is Nothing Then MsgBox "请确认系统是否正确安装了Microsoft Excel?", vbQuestion Exit Sub End If xl.Visible=True Set xlBook=xl.Workbooks.Add Set xlsheet=xlBook.ActiveSheet xlsheet.Name="结果数据" For J=0 To msgrid1.Rows - 1 For I=0 To 2 msgrid1.Row=J msgrid1.col=I xlsheet.Cells(J + 1, I + 1)=msgrid1.Text Next I Next JEnd

话题：VB调用EXCEl后,在excel中输入数据,经过VB的确认才能在

回答：应该可以,不过如果你在Excel用VBA来处理岂不更容易?

话题：vb 求 控件号的excel 作 码

问题详情：baidu: b: b.jpg" target="_blank" class=

回答：在你的显示按钮中加入以下 码;);''.Text=CarWeight'然后将CarWeight赋值给你的皮重文本框'.TextBox1;'打开 Set excel_Book=excel_App;如Form1;引用程序对象实例'如 valuesearch=Form1;'''''要在VB中 作Excel;''''关闭Excel Set excel_sheet=NothingSet excel_Book=Nothingexcel_App,在菜单里选择[工程] -- [引用]:"这里需要先将你的车号存入valuesearch变量才能搜索''Sheet1也可以改为你的 表的名字, 2;',存入carweight变量CarWeight=Application,要带双引号Dim excel_App As Excel;':C"'''1; "'.Workbooks;'.Application") '中加入你的excel , False)'Excel;'启动ExcelSet excel_App=

话题：VB调用EXCEL 码中的问题

问题详情：xls.Workbooks.Add With xls.ActiveWorkbook.ActiveSheet 以上两句

回答：第一句是添加一 第二句是with语句,意思是在with之后,End With之前的语句都是针对xls.ActiveWorkbook.ActiveSheet(当前 中当前 表)来说的. 有with语句,下面肯定会有End With语句,以结束这种声明.

参考回答：添加 和处于激活(或焦点吧。。)状态的 表

话题：谁知道怎样在VB调用已经存在的EXCEL表格,其余的 作就

回答：先在工程--引用中选中microsoft excel,然后用下列 码可以打开电子表格 :Dim mxlApp As Excel.ApplicationDim mxlBook As Excel.WorkbookDim mxlSheet As ObjectDim sSource As StringSet mxlApp=New Excel.ApplicationSet mxlApp=CreateObject("Excel.Application")sSource="路径及 名"mxlApp.Visible=TrueSet mxlBook=mxlApp.Workbooks.Open(sSource)Set mxlSheet=mxlBook.Worksheets(1)

参考回答：方法一:用 OLE 控件试试? 方法二:用API函数,直接打开Excel Private Declare Function ShellExecute Lib "shell32.dll" Alias

话题：VB调用EXCEL后无法结束EXCEL结程(附 码)

问题详情：Set xlApp=CreateObject("Excel.Application") xlApp.Visible=

回答：其他 码不变,最后几行作如下修改试试:xlBook2.Close True xlBook1.Se xlBook1.Close True xlApp.Quit Set xlsheet=Nothing Set xlsheet1=Nothing Set xlBook2=Nothing Set xlBook=Nothing Set xlBook1=Nothing Set xlApp=Nothing

参考回答：先注销 s,然后再F走单步试试