想請教是否有比較簡單的作法 - Excel程式區

[發問] 想請教是否有比較簡單的作法

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

11^# 跳轉到 »

發表於 2018-8-11 09:38 | 只看該作者

回復 10# 小路西法

Option Explicit
Sub Ex()
Dim Rng(1 To 2) As Range, xPath As String
xPath = "C:\Users\Eternity\Desktop\新增資料夾 (3)\"
Set Rng(1) = Workbooks("出貨表1070807-0808早 (version 1).xlsb").Sheets("工作表1").Range("A2:H9")
'**Rng(1)-> 所指定的第一個範圍
Set Rng(2) = Rng(1).Range("F1") '**指定範圍的"F1"
Do While Rng(2) <> "" '**指定範圍的"F1"有存檔的名稱,是迴圈執行下去的條件.
With Workbooks.Add(1) '**請查看 Excel 開發人員參考資料-> Workbooks.Add 方法參數 1 為 xlWBATWorksheet
Rng(1).Copy .Sheets(1).Range("a1")
.SaveAs xPath & Rng(2)
.Close
End With
Set Rng(1) = Rng(1).Offset(9) '** 下一個所指定的範圍與上一個範圍固定差9個列
Set Rng(2) = Rng(1).Range("F1")
Loop
End Sub