帖子: 248
主題: 55
精華: 0
積分: 314
點名: 220
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-5-5 14:41 | 只看該作者

[發問] F8逐步執行正常，F5卻錯誤

小弟在跑程式的時候

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

使用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了好一陣子還是無解

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

不知問題點為何?

煩請各位大大協助

樓主熱帖

用功到世界末日那一天～～～

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 220
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2015-5-7 16:19 | 只看該作者

回復 6# GBKEE

NO~~~

最不想聽到的答案

哈哈

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

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

還是感謝版大協助!!!

用功到世界末日那一天～～～

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-5-7 13:46 | 只看該作者

回復 5# li_hsien
Office 重新安裝試試看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 220
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2015-5-7 11:37 | 只看該作者

回復 4# stillfish00

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

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

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

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

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

再按繼續還是可以執行

一樣又再下一行出錯

不知怎麼處理

請各位協助

謝謝

用功到世界末日那一天～～～

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2015-5-6 09:15 | 只看該作者

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

或是你把MCD_mapping fn, SF_name 註解掉
如果不會出錯，表示錯誤不在1樓的code

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 220
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 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

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

煩請大大協助

用功到世界末日那一天～～～

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-5-5 15:10 | 只看該作者

回復 1# li_hsien
拿掉On Error Resume Next再跑一次

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP