返回列表下一主題上一主題發帖

EXCEL 欄位選擇及貼上問題

g93353

中學生 Rank: 2

帖子: 40
主題: 17
精華: 0
積分: 62
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-27
最後登錄: 2014-11-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-10 11:33 | 只看該作者

EXCEL 欄位選擇及貼上問題

小弟又來發問了>"<

想請問各位高手們
這是小弟寫的小程式
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

cn.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _
            "Extended Properties=""Excel 8.0; HDR=NO"";" & _
            "Data Source=" & path & "\" & file

'----------------------------------------------------------------------------------------------------------
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

經過SECLET後

A    B       C                      R
1 KK    小名                   A
4 UU    小美                   A
5 YY    小晶                   A
6 TT    小易                   A

貼至另一SHEET( 可以的話把資料暫存起來)

A    B       C          D
1 KK    小名       A
2 UU    小美       A
3 YY    小晶       A
4 TT    小易       A

請教各位大大們了>"<