- 帖子
- 52
- 主題
- 12
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- window
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-8-15
- 最後登錄
- 2023-3-24
|
2#
發表於 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
|
|
i大~~~~~~你好厲害喔!!!!!!!!!真的是非常非常非常感謝你熱心幫忙喔~~~~~~~
