請問VBA可以做到兩檔案比對後再產生另一檔案的比對結果嗎? - Excel程式區

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

11^# 跳轉到 »

發表於 2013-7-30 10:54 | 顯示全部帖子

回復 18# GBKEE

報告版大~

目前偵錯停在
Wb.SaveAs "D:\TEST\" & Wb_Name & "XLSX" '存檔的完整名稱

可是比對結果通通都是NO DATA耶~

請見附檔

ABC3.zip (58.66 KB)

TOP

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

12^#

發表於 2013-7-30 16:16 | 顯示全部帖子

回復 20# GBKEE

謝謝版大~~~成功了~~

但是是否可不指定儲存位置[ D:\TEXT ] 可讓使用者自行設定儲存位置或選擇要不要存檔?

再問一下比對檔案B.XLSX 欄位由"J"向後順延為"K"

只修改以下後偵錯沒有問題
With Wb.Sheets(1)
      Do While .Cells(i, "K") <> ""
         S = Join(Application.Transpose(Application.Transpose(.Range("A" & i & ":K" & i))), ",")
         If d.Exists(.Cells(i, "K").Value) Then
            S = S & "," & d(.Cells(i, "K").Value)
            d(.Cells(i, "K").Value) = Split(S, ",")
         Else
            d(.Cells(i, "K").Value) = Split(S & ",No Data", ",")
            S = d(.Cells(i, "K").Value)

         End If
         i = i + 1
      Loop
      .Parent.Close False             '關閉指定檔案不存檔
End With

但因為B.xlsx比對欄位"K"後還有一欄"L"
新產生的檔案資料會向後順延一欄填到"M"嗎?

偵錯現在停在
S = Application.Transpose(Application.Transpose(d.ITEMS))

ABC (4).zip (25.4 KB)

TOP

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

13^#

發表於 2013-7-31 12:11 | 顯示全部帖子

回復 20# GBKEE

報告版大~前一篇描述不清楚~我重新描述一下

目前B.xlsx的比對欄位要更動到"K"

再請教是否可以將比對好的值填到最後一個欄位呢?不要做覆蓋填上的動作呢?

請見附檔~~~謝謝~

0731.zip (23.49 KB)

ABC.xlsx
A B C D E
100-1 XXX XXX XXX DOG
100-2 XXX XXX XXX CAT
100-3 XXX XXX XXX CAT-1
100-4 XXX XXX XXX CAT-2

↑比對完畢後Show出此欄位值 ↑比對欄位

B.xlsx

A B C D E F G H I J K L 希望顯示在這欄位(M)
11 XX XX XX 1 A1 XX XX XX CC DOG XX
12 XX XX XX 2 A2 XX XX XX CC CAT XX
13 XX XX XX 2 A3 XX XX XX CC CAT1 XX
14 XX XX XX 1 A4 XX XX XX CC CAT-1 XX
15 XX XX XX 1 A5 XX XX XX CC CAT3 XX

↑比對欄位 ↑若有多一欄位產生的比對資料是否可向後順延到M呢?
應該說是否可自動填在最後一欄呢?

而且這次CAT1沒有被比對出來~~
附檔

0730.zip (24.12 KB)

11 XX XX XX XX XX XX XX CC DOG 100-1
12 XX XX XX XX XX XX XX CC CAT 100-2
14 XX XX XX XX XX XX XX CC CAT-1 100-3
13 XX XX XX XX XX XX XX CC CAT1 No Data
15 XX XX XX XX XX XX XX CC CAT3 No Data

請版大撥空看看好嗎~謝謝~!!!!

TOP

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

14^#

發表於 2013-8-1 09:06 | 顯示全部帖子

回復 23# stillfish00

哈囉~因為有這一段

比較(可忽略"-")

If InStr(i, "-") Then If Mid(i, InStr(i, "-"), 2) <> "-1" Then d.Remove i '可忽略"-"的步驟

所以應該要判斷成"100-3".....

TOP

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

15^#

發表於 2013-8-1 11:42 | 顯示全部帖子

回復 25# stillfish00

哈囉~~~

1.  所以你希望的是有含 "-"和沒含"-"的兩個是對應到相同結果?
   YES

2.  0730的檔案不含標頭，0731的含標頭哪個才是正確的資料?
   0730是原本請版主幫忙的 ,而0731含標頭是後來發現比對的欄位有向後移一欄因此FINAL是希望參考0731的樣子

3.  選擇比對的資料表欄位不固定，但是要比對的都是最後一欄?
   比對的欄位是固定的資料庫ABC.xlsx中的"E"欄位與待比對檔案B.xlsx的"K'欄位比較
   希望將比對後的結果(ABC.xlsx的"A"欄位資料)填入一個跟B.xlsx相同的新檔案最後一欄位(目前是"M"欄)
   現在的寫法若填入資料是會覆蓋原本的欄位希望能夠產生一新欄位而不是用覆蓋寫入

TOP

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

16^#

發表於 2013-8-1 12:52 | 顯示全部帖子

回復 27# stillfish00

謝謝stillfish00~~~~

我來run一下~感恩您的幫忙~~

TOP

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

17^#

發表於 2013-8-1 16:21 | 顯示全部帖子

回復 27# stillfish00

哈囉~~stillfish00 ~~^^

剛剛試過OK~

但是有幾個問題

1.若資料庫中有空白行,就會停止比對導致B.xlsx最後一個與資料庫對應的欄位下一行皆變成NO DATA
(目前資料庫預計有50000行左右的資料) 剛剛有先放進去比對發現結果通通都是NO DATA

ABC_0801.zip (30.21 KB)

2.是否可以讓user選擇存檔與否不要直接先跳出存檔的視窗呢?
p.s.目前儲存的檔案是沒有檔案類型的

3.是否可讓比對好的檔案資料有格線及自動調整欄寬?可設定字型與大小嗎?

抱歉問題很多~拜託拜託~~~~~~~

TOP

happycoccolin

　暱稱: NANAKO

中學生 Rank: 2

帖子: 72
主題: 7
精華: 0
積分: 88
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-28
最後登錄: 2018-11-14

18^#

發表於 2013-8-2 11:05 | 顯示全部帖子

回復 30# stillfish00

哈囉~stillfish00

太棒了~~^^ 太感恩~

只是還有兩個小問題~
1.目前若是空白的欄位他也會做判斷

若B.xlsx的"K"欄是空白的

他會去讀取資料庫的"E"欄空白位置第一個的對應值寫在新檔案裡面但是其實那欄應該要是空白

2.若是資料庫的"E"欄位同時在"A"欄位有兩筆以上對應那怎麼比對出來?
目前跟VLOOKUP一樣只能一對一 VBA可做出一對多嗎?

而本次比對結果出來不是對應到第一筆而是空白行後的第一筆(請見附檔Book21.xlsx)

ABC_0802.zip (30.5 KB)

謝謝謝謝!!!!持續研讀中

TOP

happycoccolin