根据Excel模板将相应的Access数据库数据导入到表格中

来源：百度知道 编辑：UC知道 时间：2024/06/17 20:18:05
需要实现以下功能：
对于任意制定的Excel模板，VB代码能根据模板中要求填充的数据，将Access中的相应数据填入。
譬如：有一个Excel表格，要求填充的内容是姓名、年龄、籍贯，但位置不确定，不能通过使用行、列的方法来实现。是否能通过定位“姓名、年龄、籍贯”这些名称来实现此功能？
求高手给出详细代码。答案满意另外追加分，谢谢了。
所使用的Access数据库中有相应项目的数据，主要是通过VB代码将Access中与Excel模板相应项目的数据导入至该模板中。

“oConn.Open "MyDataSource" ”我调试的时候，显示这里出错。——未发现数据库名称
这段代码是用来调用数据库吗？可是怎么没有显示数据库路径？

你的问题在于如何定位“姓名、年龄、籍贯”吧？
如果该表除了“姓名、年龄、籍贯”这几个字段有数据外，其实很好办，只要获取该表格已使用区域的最上面的行就可以了。

oWorkSheet.UsedRange.Row '姓名字段所在行
oWorkSheet.UsedRange.Column '姓名字段所在行

希望对你有所帮助！
-----------------------------------------------------------
呵呵，我从你的提问中我还认为你英爱对EXCEL、ACCESS的操作应该很熟啊，算了，帮你写一段吧
Dim oExcel,oBook,oWorkSheet
Dim iStartRow,iStartColumn
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("d:\test.xls")
Set oWorkSheet = oBook.Worksheets("sheet1")
iStartRow = oWorkSheet.UsedRange.Row
iStartColumn = oWorkSheet.UsedRange.Column

dim oConn,oRs
set oConn = CreateObject("ADODB.Connection")
oConn.Open "MyDataSource"
set oRs = CreateObject("ADODB.RecordSet")
dim strSQL
strSQL = "SELECT * FROM templet"
oRs.Open strSQL,oConn,1,1
Do While Not oRs.EOF
iSt