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

[發問] 資料BU欄秀出請教

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-1-9 13:23 | 只看該作者

[發問] 資料BU欄秀出請教

DEAR ALL 大大
1.如圖一程式會秀出於儲存格B4往下.
2.若我寫改秀出於儲存格B4往右.該如何修改??
3.煩不吝賜教  THANKS*10000

圖一
Sub aa()
Range("B4:D65536").ClearContents
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
Z = 4

Do Until Range("A" & Z) = ""
cn.Open "Provider=MSDAORA.1;Password=BATCH;User ID=URCE01B;Data Source=QSRS05A"
strsql = "SELECT TBDD2002.PN" & Chr(13) & "" & Chr(10) _
   & "FROM TBDD2002,TBDD2040" & Chr(13) & "" & Chr(10) _
   & "Where TBDD2002.PN=TBDD2040.PN AND SUBSTR('" & Range("A" & Z) & "',1,6)=SUBSTR(TBDD2002.PN,1,6) and NVL(FORMALPN,'A') IN 'FS'"

rs.Open strsql, cn
Range("B" & Z).CopyFromRecordset rs

rs.Close
cn.Close
Z = Z + 1
Loop
End Sub