Board logo

標題: [發問] F8逐步執行正常，F5卻錯誤 [打印本頁]
作者: li_hsien    時間: 2015-5-5 14:41     標題: F8逐步執行正常，F5卻錯誤

小弟在跑程式的時候

原本沒問題的
不知最近為什麼卻無法執行了

使用F8逐步執行OK沒問題
可是用F5執行就錯了...

錯誤訊息只是很一般的"程式已被中斷"....沒有什麼參考依據

程式碼如下
  1. Option Explicit

  3. Sub Mapping_Data_Click()

  5. '    On Error GoTo Err
  6.     On Error Resume Next
  7.    
  8.     Dim fn As String
  9.     Dim Show_File As Object
  10.     Dim file_count As Integer
  11.     Dim SF_name As String
  12.     Dim T As Date
  13.    
  14.     T = Time
  15.    
  16.     Application.DisplayAlerts = False
  17.    
  18.     fn = ActiveWorkbook.Name

  20.     Set Show_File = Application.FileDialog(msoFileDialogOpen)
  21.    
  22.     With Show_File
  23.          .InitialFileName = ActiveWorkbook.Path & "\*.xls"  '指定 xls檔
  24.          .AllowMultiSelect = True
  25.          .Show
  26.             If .SelectedItems.Count > 0 Then
  27.             
  28.                 For file_count = 1 To .SelectedItems.Count
  29.                     
  30.                     With Workbooks.Open(.SelectedItems(file_count))
  31.                     
  32.                         Debug.Print "SF(" & file_count & "): " & ActiveWorkbook.Name
  33.                         SF_name = ActiveWorkbook.Name
  34.                         MCD_mapping fn, SF_name
  35.                         .Close 0
  36.                         
  37.                     End With
  38.                     
  39.                 Next
  40.                
  41.             End If
  42.     End With
  43.       
  44.     Application.DisplayAlerts = True
  45.    
  46.     Debug.Print "經過時間: " & DateDiff("n", T, Time) & "分"
  47.    
  48. '    Exit Sub
  49. '
  50. 'Err:
  51. '    Debug.Print "未開啟報表"
  52.    
  53. End Sub
複製代碼
出錯的點是這行
If .SelectedItems.Count > 0 Then

後來發現只要是跟.SelectedItems有關的地方都會錯

GOOGLE了好一陣子還是無解

最奇怪的是之前可以執行但現在卻突然不行.....

不知問題點為何?

煩請各位大大協助
作者: stillfish00    時間: 2015-5-5 15:10

回復 1# li_hsien
拿掉On Error Resume Next再跑一次
作者: li_hsien    時間: 2015-5-6 08:13

回復 2# stillfish00

結果還是一樣...

之前有查到類似的狀況

可能是沒有參照到我要執行的頁面

意思大概像下面這樣
range("A1").copy
worksheets(2).range("A1").paste
(可能會發生錯誤)

修改如下
range("A1").copy
worksheets(2).activate
worksheets(2).range("A1").paste

不知跟我這個狀況有無相關

煩請大大協助
作者: stillfish00    時間: 2015-5-6 09:15

回復 3# li_hsien
拿掉後出現的錯誤還是程式已被中斷嗎?
如果不是再按偵錯看是哪一行出錯

或是你把MCD_mapping fn, SF_name 註解掉
如果不會出錯，表示錯誤不在1樓的code
作者: li_hsien    時間: 2015-5-7 11:37

回復 4# stillfish00

都一樣是錯在If .SelectedItems.Count > 0 Then這行

即使我把這行註解掉還是會錯下一行

錯誤訊息一樣是"程式已被中斷"

而且我按繼續還是可以執行...

但是執行完下一行後又會再出錯...

再按繼續還是可以執行

一樣又再下一行出錯


不知怎麼處理

請各位協助

謝謝
作者: GBKEE    時間: 2015-5-7 13:46

回復 5# li_hsien
Office 重新安裝試試看
作者: li_hsien    時間: 2015-5-7 16:19

回復 6# GBKEE

NO~~~

最不想聽到的答案

哈哈

因為我是偷偷用Server來跑程式

重灌Office可能有點困難...

還是感謝版大協助!!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)