返回列表 上一主題 發帖

依據欄位裡的月份，開啟excel檔

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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

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




收藏 分享

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
3#
發表於 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進來

TOP

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
2#
發表於 2017-11-17 15:45 | 只看該作者
另外補充說明
請除排當月份
當月份不需要開檔
謝謝

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題