作者chrishappy11 ()
看板Visual_Basic
標題[VB6 ] Excel巨集貼在VB上不能執行兩次以上
時間Mon Oct 17 18:01:34 2011
抱歉
標題好像形容的不太清楚
是這樣
小弟錄製一個Excel的巨集
貼到VB6上,程式碼如下:
Dim xlApp1 As Excel.Application
Dim xlBook1 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Set xlApp1 = CreateObject("Excel.Application")
Set xlBook1 = xlApp1.Workbooks.Open(File1.Path & "\" & File1.FileName)
xlApp1.DisplayAlerts = True
xlApp1.Visible = True
xlBook1.Activate
xlBook1.Parent.Windows(1).Visible = True
Set xlSheet1 = xlBook1.Worksheets(1)
xlSheet1.Activate
Excel巨集程式碼內容
Set xlBook1 = Nothing
Set xlSheet1 = Nothing
Set xlApp1 = Nothing
用這執行後..第一個檔案乖乖的按照巨集跑
可是第二個檔案後...
VB竟然用我開第一個檔再做一次巨集
(也就是第二個檔根本沒有按照巨集跑)
請問各位高手~~
是那邊出問題了嗎?
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.195.0.26
1F：推 serhgrt:xlApp1.Quit() 加入試試看~ 10/18 10:03
加入xlApp1.Quit後...
第一個檔跑完巨集關掉
接著第二個檔要跑巨集
就出現錯誤
主要是巨集裡面的程式碼...有錯
※ 編輯: chrishappy11 來自: 123.195.0.26 (10/18 14:20)
2F：推 serhgrt:錯誤敘述?可以敘述較完整的程式碼出來看嗎? 10/18 16:13
Excel 巨集程式碼如下:
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(9, 1), Array(13, 1), Array(16, 1), Array(20, 1), _
Array(22, 1), Array(25, 1), Array(28, 1), Array(31, 1), Array(34, 1), Array(37, 1), Array( _
40, 1), Array(43, 1), Array(46, 1), Array(49, 1), Array(52, 1), Array(55, 1), Array(58, 1), _
Array(61, 1), Array(64, 1), Array(67, 1), Array(70, 1), Array(73, 1), Array(76, 1), Array( _
79, 1), Array(82, 1), Array(85, 1), Array(88, 1), Array(91, 1), Array(94, 1), Array(97, 1), _
Array(100, 1), Array(103, 1), Array(106, 1), Array(109, 1), Array(112, 1), Array(115, 1), _
Array(118, 1), Array(121, 1), Array(124, 1), Array(127, 1), Array(130, 1), Array(133, 1), _
Array(136, 1), Array(139, 1), Array(142, 1), Array(145, 1), Array(148, 1), Array(151, 1), _
Array(154, 1)), TrailingMinusNumbers:=True
Columns("A:A").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
Sheets.Add After:=Sheets(Sheets.Count)
ActiveWindow.SelectedSheets.Delete
Columns("AY:AY").Select
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("A:A").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
Columns("A:AY").Select
Selection.ColumnWidth = 2
Range("AB10").Select
ActiveWindow.SmallScroll Down:=6
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("I5").Select
With Application.ReplaceFormat.Font
.Subscript = False
.ThemeColor = 1
.TintAndShade = 0
End With
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Replace What:="1", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells.Replace What:="1", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Font
.Subscript = False
.ThemeColor = 2
.TintAndShade = 0
End With
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 6316744
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Replace What:="5", Replacement:="5", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 4145847
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Replace What:="5", Replacement:="5", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
Cells.Replace What:="8", Replacement:="8", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 15541056
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Replace What:="12", Replacement:="12", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=True
Range("M6").Select
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = True
ActiveWindow.Zoom = True
ActiveWindow.Zoom = 100
xlApp1.Quit
Set xlBook1 = Nothing
Set xlSheet1 = Nothing
Set xlApp1 = Nothing
ElseIf Option2.Value = True Then
Dim xlApp2 As Excel.Application
Dim xlBook2 As Excel.Workbook
Dim xlSheet2 As Excel.Worksheet
Set xlApp2 = CreateObject("Excel.Application")
Set xlBook2 = xlApp2.Workbooks.Open(File1.Path & "\" & File1.FileName)
xlApp2.DisplayAlerts = True
xlApp2.Visible = True
xlBook2.Activate
xlBook2.Parent.Windows(1).Visible = True
Set xlSheet2 = xlBook2.Worksheets(1)
xlSheet2.Activate
'
' MI5799_ 巨集
'
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(10, 1), Array(13, 1), Array(16, 1), _
Array(19, 1), Array(23, 1), Array(25, 1), Array(28, 1), Array(31, 1), Array(34, 1), Array( _
37, 1), Array(40, 1), Array(43, 1), Array(46, 1), Array(49, 1), Array(52, 1), Array(55, 1), _
Array(58, 1), Array(61, 1), Array(64, 1), Array(67, 1), Array(70, 1), Array(73, 1), Array( _
76, 1), Array(79, 1), Array(82, 1), Array(85, 1), Array(88, 1), Array(91, 1), Array(94, 1), _
Array(97, 1), Array(100, 1), Array(103, 1), Array(106, 1), Array(109, 1), Array(112, 1), _
Array(115, 1), Array(118, 1), Array(121, 1), Array(124, 1), Array(127, 1), Array(130, 1), _
Array(133, 1), Array(136, 1), Array(139, 1), Array(142, 1), Array(145, 1), Array(148, 1), _
Array(151, 1), Array(154, 1), Array(157, 1), Array(160, 1), Array(163, 1), Array(166, 1)) _
, TrailingMinusNumbers:=True
Range("D12").Select
ActiveWindow.SmallScroll Down:=90
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=60
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Columns("A:A").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 39
Columns("A:BC").Select
ActiveWindow.SmallScroll ToRight:=2
Columns("A:BD").Select
Selection.ColumnWidth = 2
Range("AM12").Select
ActiveWindow.SmallScroll Down:=-15
Range("P5").Select
ActiveWindow.SmallScroll Down:=63
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 368
ActiveWindow.ScrollRow = 373
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 390
ActiveWindow.ScrollRow = 393
ActiveWindow.ScrollRow = 395
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 398
ActiveWindow.ScrollRow = 399
ActiveWindow.ScrollRow = 402
ActiveWindow.ScrollRow = 403
ActiveWindow.ScrollRow = 405
ActiveWindow.ScrollRow = 406
ActiveWindow.ScrollRow = 408
ActiveWindow.ScrollRow = 410
ActiveWindow.ScrollRow = 414
ActiveWindow.ScrollRow = 415
ActiveWindow.ScrollRow = 408
ActiveWindow.ScrollRow = 401
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("H6").Select
With Application.ReplaceFormat.Font
.Subscript = False
.ThemeColor = 1
.TintAndShade = 0
End With
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells.Replace What:="1", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells.Replace What:="1", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells.Replace What:="1", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells.Replace What:="1", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Font
.Subscript = False
.ThemeColor = 2
.TintAndShade = 0
End With
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 5330115
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Replace What:="5", Replacement:="5", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
Cells.Replace What:="8", Replacement:="8", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=True
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 13834034
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.Replace What:="12", Replacement:="12", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=True
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 229
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 232
ActiveWindow.ScrollRow = 233
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 236
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 241
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 245
ActiveWindow.ScrollRow = 248
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 271
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 274
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 284
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 288
ActiveWindow.ScrollRow = 290
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 293
ActiveWindow.ScrollRow = 295
ActiveWindow.ScrollRow = 298
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 307
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 315
ActiveWindow.ScrollRow = 316
ActiveWindow.ScrollRow = 317
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 320
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 361
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 370
ActiveWindow.ScrollRow = 374
ActiveWindow.ScrollRow = 377
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 384
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 382
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 90
※ 編輯: chrishappy11 來自: 123.195.0.26 (10/18 19:02)
3F：推 serhgrt:把quit移除，回歸原先，偵錯一下你的檔案路徑是否都沒變? 10/19 09:45
抱歉..不懂意思XD
※ 編輯: chrishappy11 來自: 123.195.0.26 (10/19 19:17)
4F：推 serhgrt:FilePath偵錯一下，是不是都沒變過，才會一直跑第一個檔? 10/20 07:56
第二個檔有開,但是巨集是做第一個檔...第二個檔根本沒跑巨集
※ 編輯: chrishappy11 來自: 123.195.0.26 (10/20 17:57)