如何將excel里的數(shù)據(jù)批量導(dǎo)入ACCESS

1、下面是對(duì)EXECL的基礎(chǔ)操作說(shuō)明： Set xlApp = CreateObject("Excel.Application") 激活EXCEL應(yīng)用程序 xlApp.Visible = False 隱藏EXCEL應(yīng)用程序窗口 Set xlBook = xlApp.Workbooks.Open(strDestination) 打開工作簿，strDestination為一個(gè)EXCEL報(bào)表文件 Set xlSheet = xlBook.Worksheets(1) 設(shè)定工作表 1、定義EXCEL對(duì)象變量 dim x as excel.application 2、VB中，啟動(dòng)EXCEL

2、 set x=createobject("excel.application") 3、新建一個(gè)EXCEL工作簿 x.workbooks.add 4、選定工作表1 set xsheet=xbook.worksheets(1) 5、指定單元格，并賦值 xsheet.cell(1,1)=ret.fields(0) 6、指定EXCEL列寬 xsheet.column(1).columnwidth=10 7、RANGE（）函數(shù)，選定單元格區(qū)域 range(cells(1,1),cells(10,20) 8、設(shè)置EXCEL字體 xsheet.range(cells(1,1),cells

3、(10,20).="黑體" 9、設(shè)置EXCEL為粗體 xsheet.range(cells(1,1),cells(10,20).fontbold=true 10、設(shè)置EXCEL表格邊框 xsheet.range(cells(1,1),cells(10,20).borders.linestyle=xlcontinuous 11、運(yùn)行時(shí)，顯示EXCEL或隱藏EXCEL x.visible=true 12、保存工作簿 xbook save 13、退出EXCEL x.quit 14、交還控制權(quán)給EXCEL set x=nothing 15、打印EXCEL表 x.a

4、ctive.window.selectedsheets.printout copies=numcopies 16、退出EXCEL時(shí)，不出現(xiàn)保存提示。 x.displayalerts=false 17、怎樣運(yùn)用EXCEL公式？ x.range("A3").formula= "=max(A1,A2)" 18、EXCEL代碼獲取技巧 打開EXCEL中的工具-宏-錄制新宏，然后進(jìn)行手工操作，結(jié)束后把所錄的宏代碼貼進(jìn)你的VB程序就行。 19、合并單元格代碼 x.range("A2:A5").inergecells=true 20、自動(dòng)調(diào)整列寬代

5、碼 x.column("A:I").autofit ' a到 I列自動(dòng)調(diào)整列寬 21、文本自動(dòng)換行代碼 x.rows(3).wraptext=true 22、設(shè)置字體顏色 x.rows(1).font.colorindex=4 23、打印預(yù)覽代碼 x.worksheets.printpreview 24、打開EXCEL文件 x.workbooks.open filename:="c:my documentsmy vb lgx dy.xls" 下面是如何從EXECL文件中讀寫數(shù)據(jù)： 使用Excel Sheet對(duì)象的技術(shù)可以處理可變數(shù)量的數(shù)據(jù)，并將結(jié)

6、果最后送到你的Visual Basic 應(yīng)用程序中。例子如下： 新建一個(gè)工程并在新建的窗體上放置兩個(gè)TextBox控件和一個(gè)CommandButton控件及六個(gè)Label控件。建設(shè)中的窗體如圖2所示。 程序代碼如下： Option Explicit Private Sub Command1Click() Dim xObject As Object Set xObject = CreateObject("Excel.Sheet") Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet xObject.Rang

7、e("A1").Value = Text1.Text 將數(shù)值送入Excel的A1單元格 xObject.Range("A2").Value = Text2.Text 將數(shù)值送入Excel的A2單元格 xObject.Range("A3").Formula = "=MAX(A1,A2)" 將最大值送入A3單元格 xObject.Range("A4").Formula = "=ATAN(A1/A2)180/PI()" 將反正切值送入A4單元格 顯示計(jì)算的結(jié)果 Label1.Cap

8、tion = xObject.Range("A3").Value'從EXECL讀出數(shù)值 Label2.Caption = xObject.Range("A4").Value Set xObject = Nothing End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Label1.Caption = "" Label2.Caption = "" End Sub 該程序的作用是：首先在兩個(gè)文本

9、框（Text1和Text2）輸入數(shù)值并分別將輸入的數(shù)值送入Excel的"A1"和"A2"單元格中，然后用Excel中的"Max()"函數(shù)將計(jì)算的結(jié)果送入"A3" 單元格中；用反正切函數(shù)"ATAN()"進(jìn)行計(jì)算并將結(jié)果送入"A4" 單元格中，最后輸出。 有了以上說(shuō)明，再加上你已經(jīng)學(xué)會(huì)的ACCESS數(shù)據(jù)庫(kù)操作技術(shù)，就可以實(shí)現(xiàn)EXECL里的數(shù)據(jù)批量導(dǎo)入ACCESS了。/用VB代碼插入的時(shí)候，excel表中有一列前幾行數(shù)據(jù)是空的，結(jié)果整個(gè)一列都導(dǎo)不進(jìn)access，還有一列是日期格式，

10、但有些卻是常規(guī)格式，結(jié)果這一列中常規(guī)格式的也導(dǎo)不進(jìn)去，代碼如下，望高手能協(xié)助解決，謝謝。 sub ImportToAccess() on error resume next dim db1 as database, db2 as database '打開excel表 set db1=opendatabase("d:111.xls",true,false,"Excel 5.0") '刪除acces表中數(shù)據(jù) db1.execute "delete * from ;database='d:222.mdb'.ssc&qu

11、ot; '讀取excel表中字段，共3個(gè)字段，其中第2個(gè)字段是日期格式，問題就在這里，有些非日期型的數(shù)據(jù)就算用了cdate函數(shù)也導(dǎo)不進(jìn)去 fields1="" for a=0 to 2 if a=1 then fields1=fields1 + "cdate("_ _+db1.tabledefs("sheet1$").fields(a).name + "), " else fields1=fields1 + "trim("_ _+db1.tabledefs("sheet1$&q

12、uot;).fields(a).name + "), " end if next fields1=left(fields1,len(fields1)-2) 讀取acces表中字段 set db2=opendatabase("d:222.mdb") table2=db2.tabledefs("ssc") fields2="" for b=0 to 2 fields2=fields2 + "" + table2(b).name + ", " next fields2=left(fields2,len(fields2)-2) db2.close '用SQL語(yǔ)言插入數(shù)據(jù) sql="insert into ;database='d:222.mdb'.ssc (" sql=sql + fiel