[VB6 ] Excel巨集貼在VB上不能執行兩次以上

看板Visual_Basic作者時間14年前 (2011/10/17 18:01), 編輯推噓4(4推 0噓 0→)
留言4則, 1人參與, 最新討論串1/1
抱歉 標題好像形容的不太清楚 是這樣 小弟錄製一個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
推
10/18 10:03, , 1F
xlApp1.Quit() 加入試試看~
10/18 10:03, 1F
加入xlApp1.Quit後... 第一個檔跑完巨集關掉 接著第二個檔要跑巨集 就出現錯誤 主要是巨集裡面的程式碼...有錯 ※ 編輯: chrishappy11 來自: 123.195.0.26 (10/18 14:20)
推
10/18 16:13, , 2F
錯誤敘述?可以敘述較完整的程式碼出來看嗎?
10/18 16:13, 2F
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)
推
10/19 09:45, , 3F
把quit移除，回歸原先，偵錯一下你的檔案路徑是否都沒變?
10/19 09:45, 3F
抱歉..不懂意思XD ※ 編輯: chrishappy11 來自: 123.195.0.26 (10/19 19:17)
推
10/20 07:56, , 4F
FilePath偵錯一下，是不是都沒變過，才會一直跑第一個檔?
10/20 07:56, 4F
第二個檔有開,但是巨集是做第一個檔...第二個檔根本沒跑巨集 ※ 編輯: chrishappy11 來自: 123.195.0.26 (10/20 17:57)
‣ 更多 chrishappy11 的文章
文章代碼(AID): #1Ec_q1nt (Visual_Basic)