vba開啟並抓取指定資料夾內關鍵字檔案&活頁名稱資料 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » vba開啟並抓取指定資料夾內關鍵字檔案&活頁名稱資料

返回列表下一主題上一主題發帖

[發問] vba開啟並抓取指定資料夾內關鍵字檔案&活頁名稱資料

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

4^# 跳轉到 »

發表於 2018-2-9 19:57 | 只看該作者

回復 2# GBKEE

G大~~~~~不好意思，小妹好像遇到了一個超蠢的問題耶!!!就是如果同時有4個檔案要匯入，而且檔名都不一樣的時候該怎麼修改呢???例如：檔1『list*.xls』要匯入活頁「list報表」的A1
檔2『CCMOP*.xls』要匯入活頁「有資料」的B1
檔3『CCMOP_NAME*.xls』要匯入活頁「無資料」的B1
檔4『預約表單*.xls』要匯入活頁「預約表單」的A1

因為我發現我自己怎麼改好像都不行那~~~~~

*宅女一枚無誤*

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

3^#

發表於 2018-2-7 21:16 | 只看該作者

回復 2# GBKEE

G大非常感謝幫忙~~~~~測試已成功喔!!!再次感謝ㄟ

*宅女一枚無誤*

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2018-2-7 10:05 | 只看該作者

回復 1# msmplay

自動開啟指定資料夾內檔案『list*.xls』第一個工作表的 A:Z資料複製到活頁[list報表]A欄，再將檔案『list*.xls』關閉

Option Explicit
Sub Ex()
Dim xDir As String, xPath As String, xWb As Workbook
xPath = ThisWorkbook.Path
xDir = Dir(xPath & "\list*.xls", vbDirectory)
Do While xDir <> ""
Set xWb = Workbooks.Open(xPath & "\" & xDir)
With ThisWorkbook.Sheets("list報表").Range("A1").End(xlDown)
If .Row = .Parent.Rows.Count Then
xWb.Sheets(1).UsedRange.Copy .Cells.End(xlUp)
Else
xWb.Sheets(1).UsedRange.Copy .Cells.Offset(1)
End If
End With
xWb.Close
xDir = Dir
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 口說好話、心想好意、身行好事。

返回列表下一主題上一主題