標題: 依據欄位裡的月份，開啟excel檔 [打印本頁]

---

作者: 52ee24    時間: 2017-11-17 15:06     標題: 依據欄位裡的月份，開啟excel檔

請問大家
想依A欄所顯示的月份
開啟相關月份的excel檔
主要是要比對資料把需要的資料vlookup進來
而每天會出現的月份不同、次數也不同
我寫開啟的程式如下
Data1 = "DailyIPQCData-" & Format(Today, "yyyy-mm-dd") & ".xls"
Workbooks.Open Filename:="http://rptap/report/Daily/DailyIPQCData/" & Data1
Data11 = "DailyProcessBrick-" & Format(Today, "yyyy-mm-dd") & ".xls"
Workbooks.Open Filename:="http://rptap/report/Daily/DailyProcessBrick/" & Data11

開啟檔案時都預設為要開啟月份的最後一天



[attach]27983[/attach]
[attach]27984[/attach]

---

作者: 52ee24    時間: 2017-11-17 15:45

另外補充說明
請除排當月份
當月份不需要開檔
謝謝

---

作者: 52ee24    時間: 2017-11-20 15:27

回復 1# 52ee24


G大版主不好意思~
我再把問題說清楚些
我主要是整合二個檔
一檔名:DailyProcessBrick-yyyy-mm-dd
二檔名:DailyIPQCData-yyyy-mm-dd
把我要二檔欄位值帶入一檔
但因為二個檔案有時間差資料會找不到
需要開啟前幾個月的檔來比對

目前我寫的程式如下
Data1 = "DailyIPQCData-" & Format(Today, "yyyy-mm-dd") & ".xls"
Workbooks.Open Filename:="http://rptap/report/Daily/DailyIPQCData/" & Data1
Data11 = "DailyProcessBrick-" & Format(Today, "yyyy-mm-dd") & ".xls"
Workbooks.Open Filename:="http://rptap/report/Daily/DailyProcessBrick/" & Data11

r11 = Sheets("IPQC 確認入庫").Range("a1").CurrentRegion.Rows.Count
c11 = Sheets("IPQC 確認入庫").Range("a1").CurrentRegion.Columns.Count
'一次阻
For I = 3 To r11
BTM = Application.VLookup(Sheets("IPQC 確認入庫").Range("c" & I), Workbooks(Data1).Sheets("Brick資料庫_1次IR (月)").Range("i:ae"), 23, False)
If IsError(BTM) Then
Else
Sheets("IPQC 確認入庫").Cells(I, c11 + 1) = BTM
End If
Next I
希望可以改成
依CN欄位裡的月份
去開啟相同月份的檔
再把圖二的CC欄位
vlookup進來
[attach]27999[/attach]
[attach]28000[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)