如有100個以訂單號命名的excel檔案A001，A002，…A100，需要按訂單號自動提取每個電子表固定位置sheet1!B1的資料，怎么通過vb程式批量自動提取資料？由于檔案較多，希望能實作自動讀取。
uj5u.com熱心網友回復：
使用dir函式遍歷指定檔案：Dir 函式示例
本示例使用 Dir 函式來檢查某些檔案或目錄是否存在。在 Macintosh 計算機上，默認驅動器名稱是 “HD” ，并且路徑部分由冒號取代反斜線隔開。而且 Microsoft Windows 的通配符在 Mac 中可以作為有效字符出現在檔案名中。也可以使用 MacID 函式來指定檔案組。
Dim MyFile, MyPath, MyName
' 回傳“WIN.INI” （如果該檔案存在）。
MyFile = Dir("C:\WINDOWS\WIN.ini")
' 回傳帶指定擴展名的檔案名。如果超過一個 *.ini 檔案存在，
' 函式將回傳按條件第一個找到的檔案名。
MyFile = Dir("C:\WINDOWS\*.ini")
' 若第二次呼叫 Dir 函式，但不帶任何引數，則函式將回傳同一目錄下的下一個 *.ini 檔案。
MyFile = Dir
' 回傳找到的第一個隱式 *.TXT 檔案。
MyFile = Dir("*.TXT", vbHidden)
' 顯示 C:\ 目錄下的名稱。
MyPath = "c:\" ' 指定路徑。
MyName = Dir(MyPath, vbDirectory) ' 找尋第一項。
Do While MyName <> "" ' 開始回圈。
' 跳過當前的目錄及上層目錄。
If MyName <> "." And MyName <> ".." Then
' 使用位比較來確定 MyName 代表一目錄。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一個目錄，將其名稱顯示出來。
End If
End If
MyName = Dir ' 查找下一個目錄。
Loop
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93857.html
標籤：VB基礎類
上一篇：VB亂數的問題，求解
下一篇：如何區分出多把USB掃描槍資訊