返回列表 上一主題 發帖

[發問] 讀取最新檔案內資料

taiwan

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
WIN XP 
軟體版本
32BIT 
閱讀權限
20 
註冊時間
2014-11-7 
最後登錄
2018-9-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-8 08:48 | 顯示全部帖子

[發問] 讀取最新檔案內資料

最新檔案存在A路徑內

這個最新檔案產生條件為每日定時產生

例如:2014-11-08 000846.xls
這樣下一個次產生檔案為  2014-11-08 000946.xls

我要讀取最新檔案內資料  請問我該怎麻做會比較好
收藏 分享

taiwan

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
WIN XP 
軟體版本
32BIT 
閱讀權限
20 
註冊時間
2014-11-7 
最後登錄
2018-9-2 
2#
發表於 2014-11-8 18:32 | 顯示全部帖子
回復  taiwan
試試看
GBKEE 發表於 2014-11-8 16:27



以下有點看不太懂

Ay(i) = Val(Replace(Split(xDir, " ")(1), ".xls", "")) '取得數字


loop

s = Application.Max(Ay)

    s = Application.Match(s, Ay, 0)

    If MsgBox("開啟最新  檔案 " & vbTab & Ar(s - 1) & vbLf & Join(Ar, vbLf), vbYesNo) = vbYes Then

        Workbooks.Open xPath & Ar(s - 1)

麻煩大大

TOP

taiwan

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
WIN XP 
軟體版本
32BIT 
閱讀權限
20 
註冊時間
2014-11-7 
最後登錄
2018-9-2 
3#
發表於 2014-11-11 09:07 | 顯示全部帖子
回復  taiwan
有點看不太懂
慢慢來,不懂的函數,方法 可察看vba的說明

DIR 會依檔案名稱遞增來排序
2 ...
GBKEE 發表於 2014-11-8 19:04


For GBKEE:

以下這段是用你分享的語法改的  感謝你

我也把測試成功的語法分享給大家
  1. Sample
  2. Sub data()

  4.     Dim xPath, xDir, overdata As String
  5.     Dim best As Long

  7.    

  9.     xPath = "A:\路逕\"
  10.    
  11.     'Dir: 表示合乎條件、檔案屬性、磁碟標記的一個檔案名稱、或目錄、檔案夾名稱。
  12.     xDir = Dir(xPath & "WIP_Status_" & Format(Date, "yyyy-mm-dd") & "-" & "*.xls", vbDirectory)
  13.    
  14.       best = 0
  15.         Do While xDir <> ""

  17.             If Val(Mid(xDir, 23, 6)) > best Then

  19.                 best = Val(Mid(xDir, 23, 6))
  20.                 overdata = xDir                                      
  21.                     End If

  23.             xDir = Dir()
  24.             
  25.                 i = i + 1
  26.                
  27.             Loop
  28.             
  29.         Workbooks.Open xPath & overdata
  30.         

  32.    
  33. End Sub
複製代碼

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題