Office中国论坛/Access中国论坛

标题: [分享]自動識別範圍匯入excel資料 [打印本页]

作者: ADAM 时间: 2003-10-20 23:18
标题: [分享]自動識別範圍匯入excel資料
以下這段代碼是我系統里匯入匯出模塊的,
可自動識別excel中的數據範圍,并匯入access中
現貼出來與大家分享
FUNCTION Importexcel(inAccesstable as string,inexcelpath as string) AS BEALOON
On Error GoTo Err_inexcel_Click
Dim Address1 As Variant
Dim obj As New Excel.Application
Dim sheettest As Excel.Workbook

Set sheettest = obj.Workbooks.Open(inexcelpath)
Address1 = sheettest.Sheets(1).Range("a1").CurrentRegion.Address(RowAbsolute:=False, ColumnAbsolute:=False)
DoCmd.SetWarnings False
CurrentDb.Execute "DELETE * FROM " & inaccesstable
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, inAccesstable, inexcelpath, True, Address1
DoCmd.SetWarnings True

Importexcel=true
Exit_inexcel_Click:
Exit Sub

Err_inexcel_Click:
MsgBox Err.Description
importexcel=false
Resume Exit_inexcel_Click

End Sub

[此贴子已经被作者于2003-10-20 15:27:17编辑过]

作者: katercn 时间: 2004-10-18 19:53
有没有例子啊..................偶是菜鸟,看不明白啊...最好给个实例!

作者: cg1 时间: 2004-10-18 20:06
导入、导出 Excel 表格

http://access911.net/eg/swf/i_o_excel.htm

http://access911.net/eg/swf/i_o_excel.swf

作者: cg1 时间: 2004-10-18 20:07
http://access911.net/77FAB01E16DC.htm 中的方法同样适用

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)