请问守柔斑竹关于word中vba读取excel数据的问题，再烦请铁杆会员赐教

xuweiwei

zNsJ0NPg.rar (8.33 KB, 下载次数: 44)

2006-4-30 11:12 上传

点击文件名下载附件
请问守柔斑竹关于word中vba读取excel数据的问题

请问斑竹，怎样才能实现在我的word中自动运行userform1后，其中的文本框的数据=基本数据表中的单元格的数据，例如word中的textbox1.text=excel中的sheet1.cells(1,1）；textbox2.text=sheet1.cells(1,2）；以此类推。 请求斑竹执教，非常感谢 请问，如果我读取后更改了textbox1.text中的数据，能否再将更改的数据再存回到excel中去，谢谢

[此贴子已经被作者于2006-4-30 12:49:56编辑过]

konggs

老大忙，我来说一下吧：

以下参考：

Private Sub Document_Open()
Dim a As Excel.Application, ab As Excel.Workbook
Dim a1, a2, a3, a4
Set a = CreateObject("excel.application")
Set ab = a.Workbooks.Open(ActiveDocument.Path & "\基本数据.xls")
With ab
a1 = .Sheets(1).Range("a1")
a2 = .Sheets(1).Range("b1")
a3 = .Sheets(1).Range("c1")
a4 = .Sheets(1).Range("d1")
End With
ab.Close
a.Quit

UserForm1.TextBox1.Text = a1
UserForm1.TextBox2.Text = a2
UserForm1.TextBox3.Text = a3
UserForm1.TextBox4.Text = a4
UserForm1.Show

End Sub

konggs

差一句，

先在VBE中工具、引用，勾选misrcosoft excel11.0 object libary控件

[em04]

konggs

看到老大在线，我想问一下：

我想用ADO来写，为什么不行？

最后一句通不过

Sub a()
Dim a1 As New ADODB.Connection
Dim a2 As New ADODB.Recordset
Set a1 = CreateObject("adodb.connection")
a1.Open "driver={microsoft excel driver (*.xls)};dbq=" & ActiveDocument.Path & "\基本数据.xls"
Sql = "select * from [Sheet1$a1:d200]"
Set yy = a1.Execute(Sql)

xuweiwei

非常感谢铁杆会员

konggs

同理啊，你把

ab.Close
a.Quit去掉，

在同理，在command1中写点击事件，反向写一次就是了。

gues1688

以下是引用[I]konggs[/I]在2006-4-30 12:11:36的发言：[BR]

看到老大在线，我想问一下：

我想用ADO来写，为什么不行？

最后一句通不过

Sub a()
Dim a1 As New ADODB.Connection
Dim a2 As New ADODB.Recordset
Set a1 = CreateObject("adodb.connection")
a1.Open "driver={microsoft excel driver (*.xls)};dbq=" & ActiveDocument.Path & "\基本数据.xls"
Sql = "select * from [Sheet1$a1:d200]"
Set yy = a1.Execute(Sql)

孔兄好！ 好久没来，上面代码没看出什么问题。 我重新按习惯写了一下，可以通过： Sub a() Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Set Conn = CreateObject("adodb.connection") Conn.Open "driver={microsoft excel driver (*.xls)};dbq=" & ActiveDocument.Path & "\基本数据.xls" Sql = "select * from [Sheet1$]" Set Rs = Conn.Execute(Sql) '可以通过，没看出问题 For i = 0 To Rs.Fields.Count - 1 Debug.Print Rs(i).Value Next End Sub

konggs

gues1688兄好。

谢谢gues1688兄指点。

我复制下去，再试试。

konggs

我试了你的与我的都通过了。

上次，可能是我的操作失误。

谢谢指点。

骷髅头

以下是引用[I]konggs[/I]在2006-4-30 12:11:36的发言：[BR]

看到老大在线，我想问一下：

我想用ADO来写，为什么不行？

最后一句通不过

Sub a()
Dim a1 As New ADODB.Connection
Dim a2 As New ADODB.Recordset
Set a1 = CreateObject("adodb.connection")
a1.Open "driver={microsoft excel driver (*.xls)};dbq=" & ActiveDocument.Path & "\基本数据.xls"
Sql = "select * from [Sheet1$a1:d200]"
Set yy = a1.Execute(Sql)

a1是创建一个连接，a2是记录集，你要处理是记录集，而不是连接啊！