PTT數位生活區 / Office

[請問] excel的巨集套用每個檔案

看板Office作者 (甜水胡同)時間7年前 (2018/07/31 12:14), 7年前編輯推噓0(0推 0噓 35→)
留言35則, 2人參與, 7年前最新討論串1/1
想請問擅長excel的大大們 如果要開啟多個檔案，每次開啟都套用某模式開啟 巨集開啟檔案那部分要怎麼改會比較好呢@@? 目前錄製僅能開啟相同的檔案， 如果開啟其他舊檔案變成還要手動再去全部重案 跪求高手大大解答TT 只能手動一個一個把檔名複製貼上嗎? 還是可以用甚麼方法去套用在每個檔案上呢? 謝謝.. 以下是巨集內容 Sub TEST3() ' ' TEST3 巨集 ' ' Workbooks.OpenText Filename:="W:\●個人工作區\XXXXXXXXXXXXXXXXXXXXXXX.TXT", _ Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _ Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _ Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _ Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _ , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _ Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1)), TrailingMinusNumbers:=True Range("H4:I9").Select With Selection.Font .Name = "Arial Unicode MS" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With With Selection.Font .Name = "Arial Unicode MS" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub ※ 編輯: meowde (1.169.17.162), 07/31/2018 12:15:38
→
07/31 12:18, 7年前 , 1F
文字檔如在同一目錄內，迴圈，配合dir來取得檔名
07/31 12:18, 1F
→
07/31 12:19, 7年前 , 2F
將取得的檔名置於filename:=後面
07/31 12:19, 2F
→
07/31 13:47, 7年前 , 3F
soyoso大大謝謝您回覆，如果檔案非常大量，也需要全數新增
07/31 13:47, 3F
→
07/31 13:48, 7年前 , 4F
才有辦法一開excel就自己運行嗎?
07/31 13:48, 4F
→
07/31 14:01, 7年前 , 5F
不太了解問題，檔案非常大量是指檔案數量多還是檔案內的資
07/31 14:01, 5F
→
07/31 14:02, 7年前 , 6F
料量大？
07/31 14:02, 6F
→
07/31 14:03, 7年前 , 7F
也需要全數新增，新增什麼？才有辦法一開excel就自己運行
07/31 14:03, 7F
→
07/31 14:05, 7年前 , 8F
？這個問題是指開啟excel檔案就執行該巨集嗎？
07/31 14:05, 8F
→
07/31 14:05, 7年前 , 9F
檔案數量多，不固定檔名，固定路徑，檔案內資料小QQ
07/31 14:05, 9F
→
07/31 14:09, 7年前 , 10F
不是每次開啟excel就自動執行，是希望開啟檔透手動執行一
07/31 14:09, 10F
→
07/31 14:09, 7年前 , 11F
鍵(即巨集) 來簡化每次開啟特定檔案需要的步驟@@
07/31 14:09, 11F
→
07/31 14:10, 7年前 , 12F
或是巨集可設定固定開啟某資料夾路徑就執行，而開啟其他位
07/31 14:10, 12F
→
07/31 14:10, 7年前 , 13F
置的檔案不會自動執行...
07/31 14:10, 13F
→
07/31 14:13, 7年前 , 14F
那是否是於固定路徑下的，所有文字檔(txt)，亦或有什麼篩
07/31 14:13, 14F
→
07/31 14:13, 7年前 , 15F
選條件的檔名呢？
07/31 14:13, 15F
→
07/31 14:19, 7年前 , 16F
是在固定路徑下的所有文字檔
07/31 14:19, 16F
→
07/31 14:22, 7年前 , 17F
那以迴圈配合dir("路徑\*.txt")，可取檔名
07/31 14:22, 17F
→
07/31 14:23, 7年前 , 18F
暫存於變數用，原文的巨集就可將filename:=後面的字串，置
07/31 14:23, 18F
→
07/31 14:24, 7年前 , 19F
換為"路徑" & 變數方式
07/31 14:24, 19F
→
07/31 14:25, 7年前 , 20F
如果路徑的選擇上要以對話框的話，可以
07/31 14:25, 20F
→
07/31 14:26, 7年前 , 21F
application.filedialog()括號內以...folderpicker
07/31 14:26, 21F
→
07/31 14:32, 7年前 , 22F
以原文來看，如整合在一個工作表內，且開啟的文字檔所抓取
07/31 14:32, 22F
→
07/31 14:34, 7年前 , 23F
的儲存格範圍相同(H4:I9)的話，可以range.copy到指定的活
07/31 14:34, 23F
→
07/31 14:35, 7年前 , 24F
s大，謝謝您，我研究一下怎麼用QQ" 要多做功課了，好多都
07/31 14:35, 24F
→
07/31 14:36, 7年前 , 25F
不懂
07/31 14:36, 25F
→
07/31 14:36, 7年前 , 26F
頁簿.工作表.range內，或以range = range.value方式
07/31 14:36, 26F
→
07/31 14:37, 7年前 , 27F
整合上應會要確認某一欄最後一筆有值的儲存格，可用
07/31 14:37, 27F
→
07/31 14:38, 7年前 , 28F
range.end()、range.find，如要取得列號則是range.row或
07/31 14:38, 28F
→
07/31 14:39, 7年前 , 29F
工作表函數counta或count
07/31 14:39, 29F
→
07/31 14:42, 7年前 , 30F
關閉活頁簿workbooks(檔名).close如關閉不存檔參數
07/31 14:42, 30F
→
07/31 14:42, 7年前 , 31F
savechanges為false或0
07/31 14:42, 31F
→
07/31 14:54, 7年前 , 32F
so大，我用了最陽春的方法，跟您報告一下xd..
07/31 14:54, 32F
→
07/31 14:55, 7年前 , 33F
就直接錄製，檔案自己拖曳到excel活頁簿..
07/31 14:55, 33F
→
07/31 14:57, 7年前 , 34F
跳過開啟檔案方式，幸運這個時間遇到您願意詳細解說><
07/31 14:57, 34F
→
07/31 14:57, 7年前 , 35F
謝謝soyoso老師
07/31 14:57, 35F
‣ 更多 meowde 的文章
文章代碼(AID): #1RN-935W (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 meowde 的文章
文章代碼(AID): #1RN-935W (Office)