返回列表 上一主題 發帖

[發問] 如何輸入某字串再搜查多個檔案複製到主檔案中

rcyw

帖子
17 
主題
6 
精華
0 
積分
73 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
註冊時間
2018-11-2 
最後登錄
2025-12-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-5-4 19:08 | 顯示全部帖子

[發問] 如何輸入某字串再搜查多個檔案複製到主檔案中

本帖最後由 rcyw 於 2019-5-4 19:12 編輯

請教各位:

本人想將放在同一folder(e.g. C\Temp\..) 的4個檔案中(A,B,C,D), 先輸入想搜尋的code, 再複製到 main.xls 檔的指定位置...
自己的vba程度真的太差, 希望有高人指導一下, 自覺好像很複雜...先感謝..

1. 先開啟 main 檔,  建立一個按鈕彈出 或 建立一個可輸入的位, 輸入想要搜查的code, 如輸入 "KTRIG")
2. 輸入後, 會到 C\Temp\ 中, 搜查 A,B,C,D 檔中的相同 code, 再順序 (xxxxxG11, xxxxxG1B, xxxxxG21,...) 整行複製到指定的 A File Data, B File Data, C File Data, D File Data 下,

A,B,C,D 檔案的欄位都是固定的, 但code的次序更新後都不會是順序排列. 和code都會一路增加的...

Main.zip (104.04 KB)

收藏 分享

rcyw

帖子
17 
主題
6 
精華
0 
積分
73 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
註冊時間
2018-11-2 
最後登錄
2025-12-26 
2#
發表於 2019-5-5 14:43 | 顯示全部帖子
先感謝版主准提部林的協助...複製到主檔案的都是需要的資料, 但可能是自己之前沒說清楚..

因資料在檔案A,B,C,D複製到主程式後, 自己還需用vlookup取出分別在A,B,C,D相同code後的不同資料....
所以希望綠色行 20,35,50,64..的 " x File Data" 是不變, .....A,B,C,D複製出的資料都在綠色行之下, 有些code會是有空行, 就如附圖..

輸出到這個結果是否可行呢?...先感謝.

copy.jpg (68 KB)

copy.jpg

TOP

rcyw

帖子
17 
主題
6 
精華
0 
積分
73 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
註冊時間
2018-11-2 
最後登錄
2025-12-26 
3#
發表於 2019-5-5 15:15 | 顯示全部帖子
真的很感謝和佩服版主准提部林的幫忙, 這麼快就改到了, 這正是自己所需要的....

自己的程度實在太差了, 要加倍努力一下......

再次感謝...

TOP

rcyw

帖子
17 
主題
6 
精華
0 
積分
73 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
註冊時間
2018-11-2 
最後登錄
2025-12-26 
4#
發表於 2019-5-6 21:21 | 顯示全部帖子
本帖最後由 rcyw 於 2019-5-6 21:22 編輯

另外發現有一個問題....就是由A,B,C,D搜尋出來 複製到主程式中,,..不是順序的.
例如: 當A檔被更新過後, 排列不是順序的話..複製出來的結果會不是順序..xxxxxG21, xxxxxG11, xxxxxG3B...

自己多加了下列的程式, 分別先將A,B,C,D先排列一次, 才執行版主准提部林的程式...這樣出來的結果就可以4個檔案出來的都是順序....輸出來的數據都是自己想要的....

    Workbooks.Open Filename:="C:\Temp\A.csv"
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("A").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("A").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("A").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Save
    ActiveWorkbook.Close SaveChanges:=True

但都想學習一下, 是否有更好的更改, 不需先將想搜尋的檔案逐個排列, (e.g. xxxxxG11, xxxxxG1B, xxxxxG21...) 出來時的結果就可以"順序"輸出來呢?

先感謝...

TOP

rcyw

帖子
17 
主題
6 
精華
0 
積分
73 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
註冊時間
2018-11-2 
最後登錄
2025-12-26 
5#
發表於 2019-5-7 20:29 | 顯示全部帖子
再次感謝版主准提部林...原來就這樣加了三行左右就已經改變了,

真的非常感謝...

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題