標題:
[發問]
自動抓取指定資料夾所有檔案資料
[打印本頁]
作者:
msmplay
時間:
2017-6-23 23:27
標題:
自動抓取指定資料夾所有檔案資料
[attach]27371[/attach][attach]27372[/attach][attach]27374[/attach]
請教一下網大們，如何在「資料導入」excel檔內按下【資料導入】按鈕後，自動抓取『測試』資料夾裡的所有檔案資料到
「資料導入」excel檔
。
問題如下：
1.『測試』資料夾裡的所有檔案名稱，除了開頭「TEST」是固定外，後面的日期、編號每天都會不一樣，
所以非固定檔名
。
2.
『測試』資料夾裡的
檔案非固定3個
，有時只會有1個檔案，有時只有2個，但最多就3個。
3. 每個檔案除了標題不需抓取外，第二列以下所有資料均需抓取至「資料導入」檔對應欄，但
3個檔案資料沒有分先後上下、哪個先哪個後，只要逐一
抓取
每個檔案資料並持續向下推疊即可
。
例如:
只有1個檔案時，將該檔第二列以下資料抓取至
「資料導入」檔第二列以下貼上。
有2個檔案時，先
抓取
第1個檔
第二列以下資料
，再
抓取
第2個檔
第二列以下資料至
「資料導入」檔第X列以下貼上。（X列為
第1個檔最後一筆資料下一空白列
）
有3個檔案時，先
抓取
第1個檔
第二列以下資料
，再
抓取
第2個檔
第二列以下資料
，再
抓取
第3個檔
第二列以下資料
至
「資料導入」檔第X列以下貼上。（X列為
第2個檔最後一筆資料下一空白列
）
以上~~~~~~因為網路上一直找不到相關的VBA寫法，所以希望大師們可以熱心幫忙
[attach]27375[/attach]
作者:
idnoidno
時間:
2017-6-25 20:39
Option Explicit
Sub test12()
Dim p As String
Dim f As String
Dim ws As Worksheet
Dim wb As Workbook
Dim r As Range
p = "D:\TEMPWS\" 'CVS檔案的資料夾
f = Dir(p & "*.csv")
If f = "" Then Exit Sub
Set ws = Workbooks.Open(p & f).Sheets(1)
f = Dir()
Do While f <> ""
Set wb = Workbooks.Open(p & f)
Set r = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1)
wb.Sheets(1).Cells(1).CurrentRegion.Offset(1).Copy Destination:=r
wb.Close
f = Dir()
Loop
Application.Goto ws.Cells(1)
End Sub
複製代碼
作者:
msmplay
時間:
2017-6-25 21:49
回復
2#
idnoidno
i大~~~~~~你好厲害喔!!!!!!!!!真的是非常非常非常感謝你熱心幫忙喔~~~~~~~
作者:
idnoidno
時間:
2017-6-26 14:39
別客氣，只是剛好有答案可以給你參考，幫到忙是我的福氣啦
作者:
msmplay
時間:
2017-7-8 14:21
回復
4#
idnoidno
i大~~~~上次非常感謝你的熱心幫忙，不過小妹又有新的問題想問問看有沒解，可以也請你再幫我看看嗎？跟你上次幫我解的有關，只是變成導入資料時希望直接導入原執行檔，然後........多了一堆希望自動執行的問題
[attach]27447[/attach][attach]27448[/attach][attach]27449[/attach][attach]27450[/attach][attach]27451[/attach]
[attach]27452[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
i大~~~~~~你好厲害喔!!!!!!!!!真的是非常非常非常感謝你熱心幫忙喔~~~~~~~
