作者meowde (甜水胡同)
看板Office
标题Fw: [请问] excel的巨集
时间Tue Jul 31 12:14:58 2018
想请问擅长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
1F：→ soyoso: 文字档如在同一目录内，回圈，配合dir来取得档名 07/31 12:18
2F：→ soyoso: 将取得的档名置於filename:=後面 07/31 12:19
3F：→ meowde: soyoso大大谢谢您回覆，如果档案非常大量，也需要全数新增 07/31 13:47
4F：→ meowde: 才有办法一开excel就自己运行吗? 07/31 13:48
5F：→ soyoso: 不太了解问题，档案非常大量是指档案数量多还是档案内的资 07/31 14:01
6F：→ soyoso: 料量大？ 07/31 14:02
7F：→ soyoso: 也需要全数新增，新增什麽？才有办法一开excel就自己运行 07/31 14:03
8F：→ soyoso: ？这个问题是指开启excel档案就执行该巨集吗？ 07/31 14:05
9F：→ meowde: 档案数量多，不固定档名，固定路径，档案内资料小QQ 07/31 14:05
10F：→ meowde: 不是每次开启excel就自动执行，是希望开启档透手动执行一 07/31 14:09
11F：→ meowde: 键(即巨集) 来简化每次开启特定档案需要的步骤@@ 07/31 14:09
12F：→ meowde: 或是巨集可设定固定开启某资料夹路径就执行，而开启其他位 07/31 14:10
13F：→ meowde: 置的档案不会自动执行... 07/31 14:10
14F：→ soyoso: 那是否是於固定路径下的，所有文字档(txt)，亦或有什麽筛 07/31 14:13
15F：→ soyoso: 选条件的档名呢？ 07/31 14:13
16F：→ meowde: 是在固定路径下的所有文字档 07/31 14:19
17F：→ soyoso: 那以回圈配合dir("路径\*.txt")，可取档名 07/31 14:22
18F：→ soyoso: 暂存於变数用，原文的巨集就可将filename:=後面的字串，置 07/31 14:23
19F：→ soyoso: 换为"路径" & 变数方式 07/31 14:24
20F：→ soyoso: 如果路径的选择上要以对话框的话，可以 07/31 14:25
21F：→ soyoso: application.filedialog()括号内以...folderpicker 07/31 14:26
22F：→ soyoso: 以原文来看，如整合在一个工作表内，且开启的文字档所抓取 07/31 14:32
23F：→ soyoso: 的储存格范围相同(H4:I9)的话，可以range.copy到指定的活 07/31 14:34
24F：→ meowde: s大，谢谢您，我研究一下怎麽用QQ" 要多做功课了，好多都 07/31 14:35
25F：→ meowde: 不懂 07/31 14:36
26F：→ soyoso: 页簿.工作表.range内，或以range = range.value方式 07/31 14:36
27F：→ soyoso: 整合上应会要确认某一栏最後一笔有值的储存格，可用 07/31 14:37
28F：→ soyoso: range.end()、range.find，如要取得列号则是range.row或 07/31 14:38
29F：→ soyoso: 工作表函数counta或count 07/31 14:39
30F：→ soyoso: 关闭活页簿workbooks(档名).close如关闭不存档参数 07/31 14:42
31F：→ soyoso: savechanges为false或0 07/31 14:42
32F：→ meowde: so大，我用了最阳春的方法，跟您报告一下xd.. 07/31 14:54
33F：→ meowde: 就直接录制，档案自己拖曳到excel活页簿.. 07/31 14:55
34F：→ meowde: 跳过开启档案方式，幸运这个时间遇到您愿意详细解说>< 07/31 14:57
35F：→ meowde: 谢谢soyoso老师 07/31 14:57