標題:
[發問]
想請教是否有比較簡單的作法
[打印本頁]
作者:
小路西法
時間:
2018-8-8 10:45
標題:
想請教是否有比較簡單的作法
[attach]29168[/attach]想請教各位前輩~我有一個檔案裏面的資訊要分別存到單獨的活頁簿裡面並設定檔案裏面的某一儲存格為檔名~
想請問的是有更簡單的vba寫法嗎?還是只能這樣重複複製2-30個這樣的vba~感覺好多@@
感謝!!{:3_46:}
作者:
a5007185
時間:
2018-8-8 15:05
目前看下來你唯一會變的就只有活頁簿1、活頁簿2、活頁簿3、活頁簿4....
你可以針對這部分做設計，
不過你有更具體更完整的內容嗎？
這樣很容易會誤會你的需求。
作者:
小路西法
時間:
2018-8-8 16:20
[attach]29171[/attach]回復
2#
a5007185
不好意思~因為小弟只會簡單的錄製這邊錄一段那邊錄一段~然後在東拼西湊的@@有時問題若不明確請見諒~另外想請教一個問題~如附圖~非常感謝
作者:
a5007185
時間:
2018-8-8 16:24
請問你主要的目的是不是要將彙整好的工單，
以分頁作為單位，然後拆分成獨立檔案？
若工單內無內容則直接跳過？
作者:
小路西法
時間:
2018-8-8 16:53
本帖最後由 小路西法 於 2018-8-8 16:55 編輯
回復
4#
a5007185
是的!!
原來我表達能力還不夠ˊˋ非常抱歉
作者:
a5007185
時間:
2018-8-8 17:05
方便提供範例檔嗎？
作者:
小路西法
時間:
2018-8-9 10:37
[attach]29183[/attach]
回復
6#
a5007185
以附上檔案~感謝
作者:
Kubi
時間:
2018-8-9 20:56
回復
7#
小路西法
請教一下：
1.當匯出的檔案存檔時，發現路徑中已存在相同檔名時應如何處理？
2.是另外用一個檔案(*.xlsm)來操控 "出貨表1070807-0808早.xlsx" 的資料匯出成新檔？
還是將"出貨表1070807-0808早.xlsx"轉成含巨集的xlsm檔來處理匯出？
作者:
a5007185
時間:
2018-8-10 08:47
回復
7#
小路西法
我已經看到你的檔案，
但我跟我想像中的有點落差，
我想更確認你實際的狀況，
這樣比較好給你比較準確的答案，
以私訊你我的Line，
如果有其他的聯繫方式，
我們私下溝通。
p.s 最後我也會把過程PO上來讓大家一起參考
作者:
小路西法
時間:
2018-8-10 09:20
回復
8#
Kubi
你好~基本上因該不會有重複的~有設定f1為檔名~
作者:
GBKEE
時間:
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
複製代碼
作者:
a5007185
時間:
2018-8-16 16:22
回復
10#
小路西法
請參考
[attach]29230[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
