兩個excel以上，查詢方法 - Excel程式區

返回列表下一主題上一主題發帖

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

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

mark15jill