[發問] 請問如何連結並複製外部資料

icefire722

請教各位大大，我有指定巨集給按鈕去搜尋指定儲存格(B3)輸入的資料，搜尋不同工作表裡的資料並COPY到第一個工作表裡指定的指定的儲存格
這部份小弟有寫出來，想請教各位大大一些問題，還請不吝指教
1. 工作表(IQC查詢)這邊，如果再輸入新的要查詢資料的值，原本的欄位資料會被蓋掉，請問有什麼方法解決?
2. 如果要從儲存格(B7&C7)的值再去搜尋其他資料夾裏的EXCEL檔案，找到符合字串的檔名並複製指定儲存格裡的值到工作表(IQC查詢)相同欄位名稱裡的值?

請各位大大看附件資料，因為要搜尋的檔案有很多，小弟先放幾個讓各位大大可以參考


謝謝!

luhpro

1. 工作表(IQC查詢)這邊，如果再輸入新的要查詢資料的值，原本的欄位資料會被蓋掉，請問有什麼方法解決?
icefire722 發表於 2011-11-2 19:42

要讓它不覆蓋前查資料的方法我想到的有兩種:
1. 每次都找最後一行資料, 然後新增到其底下一行.(查詢資料列號會一直累加下去)

1. Sub DateButton_Click()
   
2. 
   
3. Dim srcRange As Range, fndRange As Range
   
4. Dim fstAddress As String, CurRow As Long
   
5. Sheets("IQC查詢").Select
   
6. Set srcRange = Sheets("每日IQC").Range("A19").CurrentRegion.Columns(3)
   
7. Set fndRange = srcRange.Find(what:=Range("B3").Value)
   
8. If Not fndRange Is Nothing Then
   
9.     fstAddress = fndRange.Address
   
10.     CurRow = Cells(7, 1).End(xlDown).Row + 1
    
11.     Do
    
12.         Cells(CurRow, 1).Value = fndRange.Offset(, -2).Value
    
13.         Cells(CurRow, 2).Value = fndRange.Offset(, 0).Value
    
14.         Cells(CurRow, 3).Value = fndRange.Offset(, 2).Value
    
15.         Set fndRange = srcRange.FindNext(after:=fndRange)
    
16.     Loop Until fndRange.Address = fstAddress
    
17. Else
    
18.     MsgBox "無此批號!!"
    
19. End If
    
20. End Sub

複製代碼

2. 記錄最後一列列號, 每次新增後將該列號加1.(每次重開檔列號會重新從第7列開始)

1. Public CurRow As Long
   
2. Option Explicit
   
3. 
   
4. Sub DateButton_Click()
   
5. Dim srcRange As Range, fndRange As Range
   
6. Dim fstAddress As String
   
7. CurRow = CurRow + 1 - (CurRow < 6) * 6
   
8. Sheets("IQC查詢").Select
   
9. Set srcRange = Sheets("每日IQC").Range("A19").CurrentRegion.Columns(3)
   
10. Set fndRange = srcRange.Find(what:=Range("B3").Value)
    
11. If Not fndRange Is Nothing Then
    
12.     fstAddress = fndRange.Address
    
13.     Do
    
14.         Cells(CurRow, 1).Value = fndRange.Offset(, -2).Value
    
15.         Cells(CurRow, 2).Value = fndRange.Offset(, 0).Value
    
16.         Cells(CurRow, 3).Value = fndRange.Offset(, 2).Value
    
17.         Set fndRange = srcRange.FindNext(after:=fndRange)
    
18.     Loop Until fndRange.Address = fstAddress
    
19. Else
    
20.     MsgBox "無此批號!!"
    
21. End If
    
22. 
    
23. End Sub

複製代碼

看看是否符合你的需求.

題外話 :
若需要用變數來存放列號以便使用時不建議用 Integer ,
因為它只能存到 32767 ,
距離舊版 Excel 的最大列號 65536 是不夠用的.

icefire722

回復 2# luhpro


    感謝大大，小弟試試看，如有不懂的地方再跟大大請教

謝謝