- 帖子
- 248
- 主題
- 55
- 精華
- 0
- 積分
- 314
- 點名
- 194
- 作業系統
- XP / WIN7
- 軟體版本
- 2003 / 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Tainan
- 註冊時間
- 2013-10-18
- 最後登錄
- 2026-10-30
             
|
小弟在跑程式的時候
原本沒問題的
不知最近為什麼卻無法執行了
使用F8逐步執行OK沒問題
可是用F5執行就錯了...
錯誤訊息只是很一般的"程式已被中斷"....沒有什麼參考依據
程式碼如下- Option Explicit
- Sub Mapping_Data_Click()
- ' On Error GoTo Err
- On Error Resume Next
-
- Dim fn As String
- Dim Show_File As Object
- Dim file_count As Integer
- Dim SF_name As String
- Dim T As Date
-
- T = Time
-
- Application.DisplayAlerts = False
-
- fn = ActiveWorkbook.Name
- Set Show_File = Application.FileDialog(msoFileDialogOpen)
-
- With Show_File
- .InitialFileName = ActiveWorkbook.Path & "\*.xls" '指定 xls檔
- .AllowMultiSelect = True
- .Show
- If .SelectedItems.Count > 0 Then
-
- For file_count = 1 To .SelectedItems.Count
-
- With Workbooks.Open(.SelectedItems(file_count))
-
- Debug.Print "SF(" & file_count & "): " & ActiveWorkbook.Name
- SF_name = ActiveWorkbook.Name
- MCD_mapping fn, SF_name
- .Close 0
-
- End With
-
- Next
-
- End If
- End With
-
- Application.DisplayAlerts = True
-
- Debug.Print "經過時間: " & DateDiff("n", T, Time) & "分"
-
- ' Exit Sub
- '
- 'Err:
- ' Debug.Print "未開啟報表"
-
- End Sub
If .SelectedItems.Count > 0 Then
後來發現只要是跟.SelectedItems有關的地方都會錯
GOOGLE了好一陣子還是無解
最奇怪的是之前可以執行但現在卻突然不行.....
不知問題點為何?
煩請各位大大協助 |
|
發表於 2015-5-5 14:41
| 
