国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Public Sub 入庫()
Dim myData As String, myTable As String, SQL As String
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Dim MyBh As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("入庫查詢").Select
ActiveSheet.Cells.Clear

myData = ThisWorkbook.Path & "\" & Sheets("主控").Range("E8") & ".mdb"
myTable = "入庫"
Set cnn = New ADODB.Connection
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.Open myData
End With

SQL = "SELECT 入庫.編號, 入庫.物料憑證, 入庫.車號, 入庫.物料號, 入庫.品種, 入庫.牌號, " _
& "入庫.規(guī)格, 入庫.定尺, 入庫.入庫根數(shù), 入庫.牌重, 入庫.吊號, 入庫.爐批號, 入庫.庫房, " _
& "入庫.銷售狀態(tài), 入庫.入庫時間, 入庫.盤盈, 入庫.單價, [牌重]*[單價] AS 金額 " _
& "FROM " & myTable & " WHERE 入庫時間<=#" & Sheet2.Range("E11") & "# and 入庫時間>=#" & Sheet2.Range("E10") & "#"
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
For i = 1 To rs.Fields.Count
Cells(1, i) = rs.Fields(i - 1).Name
Next i
With Range(Cells(1, 1), Cells(1, rs.Fields.Count))
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With
Range("A2").CopyFromRecordset rs
ActiveSheet.Cells.Font.Size = 10
ActiveSheet.Columns.AutoFit
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

Application.EnableEvents = True

Application.ScreenUpdating = True
End Sub


上面的這個過程里，包括了使用ADODB打開Access庫，用SQL提取記錄集，然后寫入Excel單元格的完整示例，希望對你有所啟發(fā)