- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
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
|
|
發表於 2018-8-8 10:45
| 
