- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
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 |
|
發表於 2018-1-9 13:23
| 
