帖子: 16
主題: 5
精華: 0
積分: 27
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-10-3
最後登錄: 2012-10-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-10-17 14:58 | 只看該作者

[發問] 兩個excel以上，查詢方法

請問我有兩個excel(甲和乙)

甲是用來當資料庫使用
裡面的a欄事項次。ex1-99

乙是用來查詢的
點選項次1可查詢到甲excel內的a2-f2的資料

目前小弟的程式碼是將甲excel打開，用迴圈的方式搜尋
但當資料越來越多的時候，這樣有點慢....
還有查詢的excel增加到丙、丁、戊.....等，這樣會衝突

請問有人知道比較好的方法嗎??

樓主熱帖

dakiu

中學生 Rank: 2

帖子: 47
主題: 11
精華: 0
積分: 76
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-24
最後登錄: 2024-2-5

13^#

發表於 2012-10-19 21:00 | 只看該作者

回復 7# Hsieh

版大:
試過了,真的好用，但是如果是10位元只取其中5位元近似資料的話，那要怎麼做.....用星號無法替代.....謝謝了.

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

12^#

發表於 2012-10-19 17:20 | 只看該作者

上文也可改寫成多筆資料比對，甚至可不用特定欄位對照..

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

11^#

發表於 2012-10-19 17:10 | 只看該作者

本帖最後由 mark15jill 於 2012-10-19 17:11 編輯

回復 10# swtseng

比較簡略的方法..
簡單判斷

Windows("乙.xlsm").Activate
daa = [d2]

ChDir "C:\Users\user\Desktop\swtseng"
Workbooks.Open Filename:="C:\Users\user\Desktop\swtseng\甲.xlsx"
      For paa = 1 To ActiveSheet.Range("a2").CurrentRegion.Rows.Count
         If Cells(paa, 1) = daa Then
            spad = Cells(paa, 1)
            spbd = Cells(paa, 2)
            spcd = Cells(paa, 3)
            spdd = Cells(paa, 4)
            sped = Cells(paa, 5)
            spfd = Cells(paa, 6)

            Windows("乙.xlsm").Activate
            [e2] = spbd
            [f2] = spcd
            [g2] = spdd
            [h2] = sped
            [i2] = spfd


            Windows("甲.xlsx").Activate
         End If
      Next
ActiveWorkbook.Save
ActiveWindow.Close

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

swtseng

小學生 Rank: 1

帖子: 16
主題: 5
精華: 0
積分: 27
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-10-3
最後登錄: 2012-10-29

10^#

發表於 2012-10-19 16:26 | 只看該作者

可以了，原本已連線的資料不可以刪除
加路徑和檔名的變數後就可以使用了

另外，這種方法，檔案就1mb以上......
不知道各位高手們，有沒有其他的方法??

TOP

swtseng

小學生 Rank: 1

帖子: 16
主題: 5
精華: 0
積分: 27
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-10-3
最後登錄: 2012-10-29

9^#

發表於 2012-10-18 17:37 | 只看該作者

請問Hsieh版主，可以用程式碼來呈現嗎??
我用錄製的方式，出現"陣列索引超出範圍"，無法執行..

TOP

swtseng

小學生 Rank: 1

帖子: 16
主題: 5
精華: 0
積分: 27
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-10-3
最後登錄: 2012-10-29

8^#

發表於 2012-10-18 15:44 | 只看該作者

受教了，我在試試看可不可以用錄的方式，以程式碼來呈現

因為路徑會做更改.......

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章