excel與vb.net的數據雙項操作,求高手幫忙!

	哈,那不如用VBA直接在数据库与EXCEL间交换行了.可以不用NET吧
Top

	lzmtw(水如烟) 信誉：133	2006-4-6 15:57:06	得分: 70
	比如EXECL中的一个类模块,跟数据库的联系一般是这样的: Private cn As ADODB.Connection Private Sub Initialize() Set cn = New ADODB.Connection With cn .ConnectionString = "ck" '这是我ODBC32里的一个DSN. .CursorLocation = adUseClient End With End Sub Private Sub Terminate() Disconnect Set cn = Nothing End Sub Private Sub Connect() If cn.State <> ADODB.adStateOpen Then cn.Open Password:="9w928" End If End Sub Private Sub Disconnect() If cn.State = ADODB.adStateOpen Then cn.Close End If End Sub Public Function Excute(Sql As String) As ADODB.Recordset Connect Set Excute = cn.Execute(Sql) End Function Public Function ExcuteProcedure(Procedure As String, Code As String) As ADODB.Recordset Dim cm As New ADODB.Command Connect With cm .ActiveConnection = cn .CommandType = adCmdStoredProc .CommandText = Procedure .Parameters("Code") = Code Set ExcuteProcedure = .Execute End With End Function '构造函数 Private Sub Class_Initialize() Initialize End Sub '析构函数 Private Sub Class_Terminate() Terminate End Sub
Top

	lzmtw(水如烟) 信誉：133	2006-4-6 16:01:28	得分: 0
	EXCEL中的工具条可以这样设置: Private BarName As String Public ClassCtr As CommandBarControl Public NameCtr As CommandBarControl Public SpecCtr As CommandBarControl Public Sub Add() If IsExist Then Exit Sub Dim cb As CommandBar Set cb = Application.CommandBars.Add(Name:=BarName, Position:=msoBarTop) cb.Visible = True With cb.Controls.Add(Type:=msoControlButton, Before:=1) .Caption = "数据初始化" .FaceId = 0 .Style = msoButtonCaption .OnAction = "Menu.Initialize" End With Set ClassCtr = cb.Controls.Add(Type:=msoControlDropdown, Before:=2) With ClassCtr .Caption = "材料类别" .Style = msoComboLabel .Width = 120 .OnAction = "Menu.ClassCtrTextChanged" End With Set NameCtr = cb.Controls.Add(Type:=msoControlDropdown, Before:=3) With NameCtr .Caption = "材料名称" .Style = msoComboLabel .Width = 180 .OnAction = "Menu.NameCtrTextChanged" End With Set SpecCtr = cb.Controls.Add(Type:=msoControlDropdown, Before:=4) With SpecCtr .Caption = "材料规格" .Style = msoComboLabel .Width = 180 End With With cb.Controls.Add(Type:=msoControlButton, Before:=5) .Caption = "输出报表" .FaceId = 0 .Style = msoButtonCaption .OnAction = "Menu.Output" End With With cb.Controls.Add(Type:=msoControlButton, Before:=6) .Caption = "复制当前报表" .FaceId = 0 .Style = msoButtonCaption .OnAction = "Menu.Copy" End With End Sub Public Sub Remove() If IsExist Then For Each cb In Application.CommandBars If cb.Name = BarName Then cb.Delete Exit For End If Next End If End Sub Private Function IsExist() As Boolean IsExist = False BarName = "仓管营销帐" For Each cb In Application.CommandBars If cb.Name = BarName Then IsExist = True Exit For End If Next End Function Private Sub Initialize() Center.Initialzie End Sub Private Sub ClassCtrTextChanged() Center.ClassCtrTextChanged End Sub Private Sub NameCtrTextChanged() Center.NameCtrTextChanged End Sub 呵,也只能贴这么多了.如果没接触过,那麻烦些,还不如直接用NET吧. 如果用NET的话,应该这样吧: 数据库->EXCEL; EXCEL 编辑,存盘; EXCEL->数据库.
Top

	sanjie88(菜鸟依旧) 信誉：100	2006-4-6 16:07:32	得分: 0
	我要收藏此贴。
Top

	shine28(屠鼠英雄) 信誉：100	2006-4-6 16:20:29	得分: 0
	不错不错，我只知道存到excel里，不知如何写回数据库
Top

	illfe(陳思嘉) 信誉：100	2006-4-6 16:26:19	得分: 0
	............lzmtw(水如烟)謝謝你啊 雖然看不太懂,但是仍要謝謝你 我再想想.....
Top

	sz_lgp(longguoping) 信誉：100	2006-4-7 8:24:31	得分: 0
	ok!
Top

	MSTOP(陈建华) 信誉：99	2006-4-7 9:56:45	得分: 30
	控件添加: MICROSOFT WEB 浏览器. 引用添加 MICROSOFT EXCEL 对象 用EXCEL做一个模板放到: E:\BOOK1.XLS 如果要保存文件到数据库里.按保存到数据库的 IMAGE 字段即可. 取出来时,按流取出到文件,再用这里的方法打开. '============================ Imports System.Reflection Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() '该调用是 Windows 窗体设计器所必需的。 InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改此过程。 '不要使用代码编辑器修改它。 Friend WithEvents AxWebBrowser1 As AxSHDocVw.AxWebBrowser Friend WithEvents Button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)) Me.AxWebBrowser1 = New AxSHDocVw.AxWebBrowser Me.Button1 = New System.Windows.Forms.Button CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'AxWebBrowser1 ' Me.AxWebBrowser1.Enabled = True Me.AxWebBrowser1.Location = New System.Drawing.Point(22, 16) Me.AxWebBrowser1.OcxState = CType(resources.GetObject("AxWebBrowser1.OcxState"), System.Windows.Forms.AxHost.State) Me.AxWebBrowser1.Size = New System.Drawing.Size(750, 558) Me.AxWebBrowser1.TabIndex = 0 ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(654, 588) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(108, 32) Me.Button1.TabIndex = 1 Me.Button1.Text = "Button1" ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.ClientSize = New System.Drawing.Size(788, 655) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.AxWebBrowser1) Me.Name = "Form1" Me.Text = "Form1" CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim refmissing As Object = System.Reflection.Missing.Value Dim strFileName As String strFileName = "E:\BOOK1.XLS" AxWebBrowser1.Navigate(strFileName, refmissing, refmissing, refmissing, refmissing) End Sub Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2 'Dim o As Object = e.pDisp 'Dim oDocument As Object = o.GetType().InvokeMember("Document", BindingFlags.GetProperty, Nothing, o, Nothing) 'Dim oApplication As Object = o.GetType().InvokeMember("Application", BindingFlags.GetProperty, Nothing, oDocument, Nothing) 'Dim oName As Object = o.GetType().InvokeMember("Name", BindingFlags.GetProperty, Nothing, oApplication, Nothing) Dim refmissing As Object = System.Reflection.Missing.Value sender.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, refmissing, refmissing) Dim o As Object = e.pDisp Dim oDocument As Object = o.GetType().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, o, Nothing) Dim oApplication As Object = o.GetType().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing) Dim theExcelApp As Excel.Application = oApplication theExcelApp.Cells("1:1") = "ADFSADSF" End Sub Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed AxWebBrowser1.Dispose() End Sub
Top

	MSTOP(陈建华) 信誉：99	2006-4-7 13:37:51	得分: 0
	这句写错,应该是: theExcelApp.Cells(1, 1) = "ADFSADSF" 这可以实现将 EXCEL,WORD 等放到窗体中显示.而不是别开一个窗口. theExcelApp 就是 当前操作的EXCEL对象.可以运行象 VBA一类的内容.