急求在Access中打开并读写Excel工作表!在线等!!!!

Question

Access中打开并读写Excel工作表的VBA代码：
要求在Access窗体中读写Excel工作表，把信息写入Excel工作表代中!

Answer 1

SQL SERVER 与ACCESS、EXCEL的数据转换:http://www.microsoft.com/china/community/Column/31.mspx

Answer 2

Private Sub CommandExcel_Click()
On Error GoTo ErrDim names As String
Dim ii As Integer
ii = MsgBox("正准备将数据输出到Excel。" + Chr(10) + Chr(13) + Chr(10) + Chr(13) + "按“确定”开始输出到Excel，按“取消”返回", vbOKCancel, "输出到Excel表")
If ii = vbCancel Then
   Exit Sub
End If'下面的代码是在Access中操作Excel的核心，和在Excel中的VBA有差异
Dim ex As New Excel.Application
Dim exwbook As Excel.Workbook
Dim sh 
Set ex = CreateObject("excel.application")
Set exwbook = ex.Workbooks.Open(CurrentProject.Path & "\打印样表.xls")
Set sh = exwbook.Sheets(1)'下面是把窗体控件的数据写入单元格
姓名.SetFocus
sh.Range("B4") = 姓名.Text
出生日期.SetFocus
sh.Range("B5") = 出生日期.Value
'…………（省略其它读写数据代码）'显示工作表
ex.Visible = Trueii = MsgBox("“你需要保存该工作表的数据吗？" + Chr(10) + Chr(13) + "按“是”保存并退出，按“否”不保存直接退出。", vbYesNo, "退出Excel")
If ii = vbYes Then
names = sh.Range("B4").Value
names = CurrentProject.Path + "\excel\" + names + ".xls"
exwbook.SaveAs names
End Ifexwbook.Save
ex.Quit
Set sh = Nothing
Set exwbook = Nothing
Set ex = NothingErr:End Sub你看看行不?

Answer 3

2楼你那个是sql.....
不懂阿
我要的是vba