想通過在ACCESS表單創建按鈕+VB程式 獲取指定目錄下EXCEL資料到ACCESS資料表里，但是一直不成功，麻煩指教下，謝謝
Sub getInfosEs(sourcepath, Tname)
Dim xlApp As Excel.Application
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open “Tname”, CurrentProject.Connection, adOpenDynamic,
adLockOptimistic
Dim adrs As ADODB.Recordset
Set adrs = New ADODB.Recordset
adrs.Open "TempFiles",CurrentProject.Connection,adOpenDynamic, adLockOptimistic
Dim objFiles, objmulu, intCount, strNames
intCount = 0
Set objFiles = CreateObject("Scripting.FileSystemObject")
Set objmulu = objFiles.GetFolder(sourcepath)
For Each strFile In objmulu.Files
intCount = intCount + 1
If LCase(Right(strFile.Name, 3)) = "xls" Then
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open (sourcepath & "/" & strFile.Name)
xlApp.Visible = False
xlApp.Sheets(1).Activate
With rs
.AddNew
.Fields.Item(0) = DCount("*", Tname) + 1
.Fields.Item(1) = xlApp.Worksheets(1).Cells(2, 2)
.Fields.Item(2) = xlApp.Worksheets(1).Cells(3, 2)
.Update
End With
Rs.MoveNext
End if
Next
MsgBox"ok"
End Sub
uj5u.com熱心網友回復：
請詳細說說 ,你想干什么?uj5u.com熱心網友回復：
詳細就是在ACCESS上建立個表單，在表單上放一個Command1按鈕，點擊一下按鈕，把指定目錄下所有EXCEL表格內的相關內容全部復制到ACCESS建立的一個表格上。uj5u.com熱心網友回復：
既然知道Excel.Application為何就不能試試用物件的方式操作access呢,
Access物件內置的excel匯入匯出功能比用ado之類的方法讀取再逐條處理要快大概100倍.
uj5u.com熱心網友回復：
要實作批量自動讀取指定檔案夾下的EXCEL內容。uj5u.com熱心網友回復：
能說一下Access和Excel中表格的格式嗎?能發個Access和 Excel的樣本檔案嗎?
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/37004.html
標籤：VB基礎類