想請問各位高手們
這是小弟寫的小程式
Private Sub OpenByAdo_Click()
Dim strPath As String
strPath = Me.PathTextBox.Text
Dim strFileName As String
strFileName = Me.FileNameTextBox.Text
Dim strSheetName As String
strSheetName = "清單"
OpenExcelByAdo2 strPath, strFileName, strSheet
End Sub
Public Sub OpenExcelByAdo2( path, file, sheet )
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'----------------------------------------------------------------------------------------------------------
Dim strSQL As String
strSQL = "select * from [" & sheet & "$] where F18 like '%A%' " '選取欄位 F18為R欄位 當中含有"A"字
If cn.State = adStateOpen Then
Set rs = cn.Execute(strSQL)
Do Until rs.EOF
Debug.Print rs.Fields.Item("F1") '顯示F1欄位
rs.MoveNext
Loop
MsgBox "Success"
cn.Close
End If
Set conn = Nothing
Set rs = Nothing
End Sub
小弟在VB能夠顯示出此sheet 的F18(及R欄位) 當中含有"A"字的欄位 ( 但會應檔案不同而改變 所以含有"A"字的欄位是隨機的)
小弟想請問如何能夠把這些欄位數列位數及內容暫存起來(以及其他欄位的內容) 或是可把各欄位列位的內容按照順序貼至另一SHEET呢?
EX :
A B C R
1 KK 小名 A
2 CC 小華 B
3 DD 小新 C
4 UU 小美 A
5 YY 小晶 A
6 TT 小易 A
