将EXECL变成ACCESS.doc

将EXECL变成ACCESS: ? 此一模块共有四个参数： ? 1、sSheetName：要导出资料的文件名称 ? (Sheet ? name)，例如 ? Sheet1 ? 2、sExcelPath：要导出资料的 ? Excel ? 档案路径名称 ? (Workbook ? path)，例如 ? C:\book1.xls ? 3、sAccessTable：要导入的 ? Access ? Table ? 名称，例如 ? TestTable ? 4、sAccessDBPath：要导入的 ? Access ? 档案路径名称，例如 ? C:\Test.mdb ? 在声明中加入以下： ? Private ? Sub ? ExportExcelSheetToAccess(sSheetName ? As ? String, ? _ ? sExcelPath ? As ? String, ? sAccessTable ? As ? String, ? sAccessDBPath ? As ? String) ? Dim ? db ? As ? Database ? Dim ? rs ? As ? Recordset ? Set ? db ? = ? OpenDatabase(sExcelPath, ? True, ? False, ? Excel ? 5.0 ) ? Call ? db.Execute( Select ? * ? into ? [;database= ? ? sAccessDBPath ? ? ]. ? ? _ ? sAccessTable ? ? ? FROM ? [ ? ? sSheetName ? ? $] ) ? MsgBox ? Table ? exported ? successfully. , ? vbInformation, ? Yams ? End ? Sub ? 使用范例如下：將 ? C:\book1.xls ? 中的 ? Sheet1 ? 导入 ? C:\Test.mdb ? 成为 ? TestTable ? ExportExcelSheetToAccess ? Sheet1 , ? C:\book1.xls , ? TestTable , ? C:\Test.mdb 首先，建立odbc的ado访问方法，取得access的数据连接。 然后参考下面的实例： 首先建立一个窗体（FORM1）在窗体中加入一个DATA控件和一按钮， 引用Microsoft ? Excel类型库: 从 工程 菜单中选择 引用 栏; 选择Microsoft ? Excel ? 8.0 ? Object ? Library; 选择 确定 。 在FORM的LOAD事件中加入： 　　Data1.DatabaseName ? = ? 数据库名称 　　Data1.RecordSource ? = ? 表名 　　Data1.Refresh 在按钮的CLICK事件中加入 　　Dim ? Irow, ? Icol ? As ? Integer 　　Dim ? Irowcount, ? Icolcount ? As ? Integer 　　Dim ? Fieldlen() ? 存字段长度值 　　Dim ? xlApp ? As ? Excel.Application 　　Dim ? xlBook ? As ? Excel.Workbook 　　Dim ? xlSheet ? As ? Excel.Worksheet 　　Set ? xlApp ? = ? CreateObject( Excel.Application ) 　　Set ? xlBook ? = ? xlApp.Workbooks.Add 　　Set ? xlSheet ? = ? xlBook.Worksheets(1) 　　With ? Data1.Recordset 　　.MoveLast 　　If ? .RecordCount ? ? 1 ? Then 　　　　MsgBox ? ( Error ? 没有记录! ) 　　　　Exit ? Sub 　　End ? If 　　Irowcount ? = ? .RecordCount ? 记录总数 　　Icolcount ? = ? .Fields.Count ? 字段总数 　　ReDim ? Fieldlen(Icolcount) 　　.MoveFirst 　　For ? Irow ? = ? 1 ? To ? Irowcount ? + ? 1 　　　For ? Icol ?