A. vb,连接EXCEl数据库
首先要在项目里添加Excel object library
声明变量
Dim xlSheet As Object
Dim MobjExcel As Excel.Application
Dim mobjworkbook As Object
在代码部分：
Set MobjExcel = CreateObject("Excel.Application")
'MobjExcel.Visible = False
Set mobjworkbook = MobjExcel.Workbooks.Open(“数据表”)
Set xlSheet = mobjworkbook.Worksheets(1)
B. VB与EXCEL连接
两个文件？还是同一个文件两个工作表？或者是同一工作表中？
同一个工作表的技巧方法：
选择B2：D6复制这个区域，选择B2，右键选择性粘贴，把转置选上，确定，搞定了
VBA代码：
Sub zz()
Dim arr
arr = Range("B2:D6").Value '提取区域的数据
ragne("B2:D6").ClearContents '清除原数据区域数据
Range("B2").Resize(UBound(arr, 2), UBound(arr)) = Application.Transpose(arr) '写入你要求的数据
End Sub
直接运行这个宏，搞定了
不明白，直接HI我
C. 如何实现VB与EXCEL的无缝连接
用以下代码：SetObjExcel=NewExcel.ApplicationObjExcel.SheetsInNewWorkbook=1SetObjWorkbook=ObjExcel.Workbooks.Open("e:\111.xls")‘xls的文件名路径可以修改SetExcelSheet=ObjWorkbook.Worksheets(1)’指定为sheet1ObjExcel.Visible=TrueExcelSheet.Cells(1,1)=“123456”‘给第一行第一列赋值ExcelSheet.Cells(2,1)=“45679”’给第二行第一列赋值’类推，括号中第1个数表示行，第2个数表示列，比如A1就是1,1，B1就是2，1‘同理ExcelSheet.Cells(1,2)=“1111”’A2单元格ExcelSheet.Cells(2,2)=“2222”‘B2单元WithObjExcel.ActiveSheet.Range("A1:B4").Borders'边框设置.LineStyle=xlBorderLineStyleContinuous.Weight=xlThin.ColorIndex=1EndWithObjWorkbook.SaveObjWorkbook.CloseSetObjExcel=Nothing
D. vb adodc 连接excel
使用
ADO
连接到
Excel
ADO
使用
MDAC
中以下两个
OLE
DB
提供程序中的任何一个都可以连接到
Excel
数据文件。
Microsoft
Jet
OLE
DB
Provider
—
或
—
Microsoft
OLE
DB
Provider
for
ODBC
Drivers
如何使用
Microsoft
Jet
OLE
DB
Provider
Jet
提供程序只需要两条信息就可以连接到
Excel
数据源：路径（包括文件名），和
Excel
文件版本。
Jet
提供程序使用连接字符串
Dim
cn
as
ADODB.Connection
Set
cn
=
New
ADODB.Connection
With
cn
.Provider
=
"Microsoft.Jet.OLEDB.4.0"
.ConnectionString
=
"Data
Source=C:\MyFolder\MyWorkbook.xls;"
&
_
"Extended
Properties=Excel
8.0;"
.Open
End
With
提供程序版本：必须使用
Jet
4.0
提供程序；Jet
3.51
提供程序不支持
Jet
ISAM
驱动程序。如果指定了
Jet
3.51
提供程序，在运行时会出现以下错误信息：
Couldn't
find
installable
ISAM.
Excel
版本：对于
Excel
95
工作簿（Excel
版本
7.0），应指定
Excel
5.0；对于
Excel
97、Excel
2000
或
Excel
2002
(XP)
工作簿（Excel
版本
8.0、9.0
和
10.0），应指定
Excel
8.0
版本。
使用“数据链接属性”对话框的
Jet
提供程序
如果在应用程序中使用“ADO
数据控件”或“数据环境”，就会出现数据链接属性对话框来收集必要的连接设置。
在提供程序选项卡上，选择
Jet
4.0
提供程序；Jet
3.51
提供程序不支持
Jet
ISAM
驱动程序。如果指定了
Jet
3.51
提供程序，在运行时会出现以下错误信息：
Couldn't
find
installable
ISAM.
在连接选项卡上，浏览到您的工作簿文件。忽略“用户
ID”和“密码”项，因为这些不适用于
Excel
连接。（无法打开受密码保护的
Excel
文件作为数据源。本文后面有关于此主题的详细信息。）
在所有选项卡上，从列表中选择扩展属性，然后单击编辑值。输入
Excel
8.0;，用分号
(;)
将其与任何其他已有的项分隔。如果忽略此步骤，测试连接时将出现一条错误信息。这是因为，如果不另行指定，Jet
提供程序期望
Microsoft
Access
数据库。
返回到连接选项卡，并单击
测试连接。将出现一个消息框，通知您测试已成功完成。
E. vb.net如何与excel建立连接，并从里面查询并读取数据
三种方式
1.用OLEDB ，将Excel视为数据源
2.采用Office 的API
3.将Excel作为Zip文件解压缩，获得内容的Xml文档
F. VB和excel的无缝链接
这个太简单了。。。在面板上加上一个部件就OK了。
G. VB与EXCEL怎么连接
http://..com/question/88880156.html
http://..com/question/88863340.html
H. vb的数据库怎么和excel连接
你所说的数据库是access数据库吗？
access数据连接execl直接通过文件里的获取外部数据，即可连接。