12
返回列表 上一主題 發帖

請問(執行階段錯誤 75)問題

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-11-8 15:15 | 只看該作者

請問(執行階段錯誤 75)問題

工作表上有數個按鈕，可以執行各自表單
開啟檔案後進入執行，每個按鈕及表單都可正常執行
如果數分鐘都無執行任何動作後，再按某些按鈕
就會發生(執行階段錯誤 75)視窗
請問不知道有沒有人遇到過
或是知道如何處理
謝謝

執行階段錯誤 75.jpg (15.71 KB)

執行階段錯誤 75.jpg

收藏 分享

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
13#
發表於 2010-11-10 09:49 | 只看該作者
最新報告：
office 2007 升級 SP2 後，暫未出現問題

TOP

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
12#
發表於 2010-11-9 23:17 | 只看該作者
程式開啟只有這一段

Sub auto_open()
    Sheets("總表").Select
    Range("A1").Select
   
    MsgBox ("版權所有，複製必究，請勿非法使用" _
    & Chr(13) & "本程式僅供 ............ 使用" _
    & Chr(13) & "歡迎檢舉非法使用" _
    & Chr(13) & "設計者：............ " _
    & Chr(13) & "EXCEL程式屬Microsoft公司所有，使用者須自行購買")   
End Sub

PS.
最新的測試結果，開啟後不做任何動作，約十幾分鐘後再操作就會出現錯誤
沒問題的電腦還是沒問題(一次也沒發生過)

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
11#
發表於 2010-11-9 22:48 | 只看該作者
是否在workbook open事件中讀入某些數據存放在記憶體中？
存放在記憶體的東西常會因刪除等操作而連帶被清空。這樣就出錯了！

TOP

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
10#
發表於 2010-11-9 21:01 | 只看該作者
工作時數輸入表單2 是 UserForm
年月選單區 是 ComboBox

感覺上不像是程式碼的關係
如是程式碼的關係如何解釋以下幾個疑點；
1.相同程式為何有些電腦可執行沒有問題
2.我覺得最大疑點是5樓的圖，其中的，出現(路徑或檔案存取錯誤)視窗，是因為我點選了左邊視窗內的(工作時數輸入表單2)的結果

為何我點選了左邊視窗內的(工作時數輸入表單2)，確出現(路徑或檔案存取錯誤)視窗，這應該跟程式碼沒有關係阿(PS.檔案關閉後再開啟就可以進入(工作時數輸入表單2))，真奇怪

程式碼錯誤應該不會這樣吧？

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
9#
發表於 2010-11-9 20:17 | 只看該作者
本帖最後由 Min 於 2010-11-9 20:18 編輯

"工作時數輸入表單2.年月選單區.Clear" 出錯
那你的"年月選單區" 是Sheet嗎? 還是object? ....
檢查一下"年月選單區"吧~
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2010-11-9 19:18 | 只看該作者
回復 7# ltc
對不起 還是請你附上檔案 好了解

TOP

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
7#
發表於 2010-11-9 19:05 | 只看該作者
不好意思，這是程式碼，不曉得夠不夠

另外補充：
1.並不是每台電腦都會發生
2.每台電腦安裝的軟體都差不多，也有剛裝好的
3.螢幕保護模式已關閉，電源設定一直開啟

Private Sub 工作時數輸入2_Click()
    Call 工作時數輸入表單2_設定
    工作時數輸入表單2.Show
End Sub

Sub 工作時數輸入表單2_設定()
    Dim IA As Integer                       '整數 -32,768~32767
   
    工作時數輸入表單2.年月選單區.Clear
   
    For IA = Sheets("TEMP").Range("F9").Value To 11 Step -1
        工作時數輸入表單2.年月選單區.AddItem Sheets("TEMP").Range("F" & IA).Value
    Next IA
    工作時數輸入表單2.年月選單區.ListIndex = 0
   
    Call 更新TEMP員工資料

    工作時數輸入表單2.員工編號.Clear
   
    With 工作時數輸入表單2.員工編號
        .Clear
        '.ColumnCount = MYRS.Fields.Count - 1
        .ColumnCount = 2
        .ColumnWidths = "1.5cm;3cm"
        
        For IA = 11 To Sheets("TEMP").Range("I9").Value
            .AddItem
            .List(IA - 11, 0) = Sheets("TEMP").Range("I" & IA).Value
            .List(IA - 11, 1) = Sheets("TEMP").Range("J" & IA).Value
        Next IA
    End With
   
    更新TEMP工地資料
    With 工作時數輸入表單2.工地選單
        .Clear
        '.ColumnCount = MYRS.Fields.Count - 1
        .ColumnCount = 2
        .ColumnWidths = "1.5cm;3cm"
        
        For IA = 11 To Sheets("TEMP").Range("R9").Value
            .AddItem
            .List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
            .List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
        Next IA
        
    End With
   
    工作時數輸入表單2.時段.Clear
    工作時數輸入表單2.時段.AddItem "日A"
    工作時數輸入表單2.時段.AddItem "日B"
    工作時數輸入表單2.時段.AddItem "上午"
    工作時數輸入表單2.時段.AddItem "下午"
    工作時數輸入表單2.時段.AddItem "加A"
    工作時數輸入表單2.時段.AddItem "加B"
    工作時數輸入表單2.時段.AddItem "加班"
    工作時數輸入表單2.時段.ListIndex = 0
        
    With 工作時數輸入表單2.起始時分
        .Clear
        .AddItem "0000"
        .AddItem "0030"
        .AddItem "0100"
        .AddItem "0130"
        .AddItem "0200"
        .AddItem "0230"
        .AddItem "0300"
        .AddItem "0330"
        .AddItem "0400"
        .AddItem "0430"
        .AddItem "0500"
        .AddItem "0530"
        .AddItem "0600"
        .AddItem "0630"
        .AddItem "0700"
        .AddItem "0730"
        .AddItem "0800"
        .AddItem "0830"
        .AddItem "0900"
        .AddItem "0930"
        .AddItem "1000"
        .AddItem "1030"
        .AddItem "1100"
        .AddItem "1130"
        .AddItem "1200"
        .AddItem "1230"
        .AddItem "1300"
        .AddItem "1330"
        .AddItem "1400"
        .AddItem "1430"
        .AddItem "1500"
        .AddItem "1530"
        .AddItem "1600"
        .AddItem "1630"
        .AddItem "1700"
        .AddItem "1730"
        .AddItem "1800"
        .AddItem "1830"
        .AddItem "1900"
        .AddItem "1930"
        .AddItem "2000"
        .AddItem "2030"
        .AddItem "2100"
        .AddItem "2130"
        .AddItem "2200"
        .AddItem "2230"
        .AddItem "2300"
        .AddItem "2330"
        .AddItem "2400"
    End With
    工作時數輸入表單2.起始時分.ListIndex = 16
   
    With 工作時數輸入表單2.終止時分
        .Clear
        .AddItem "0000"
        .AddItem "0030"
        .AddItem "0100"
        .AddItem "0130"
        .AddItem "0200"
        .AddItem "0230"
        .AddItem "0300"
        .AddItem "0330"
        .AddItem "0400"
        .AddItem "0430"
        .AddItem "0500"
        .AddItem "0530"
        .AddItem "0600"
        .AddItem "0630"
        .AddItem "0700"
        .AddItem "0730"
        .AddItem "0800"
        .AddItem "0830"
        .AddItem "0900"
        .AddItem "0930"
        .AddItem "1000"
        .AddItem "1030"
        .AddItem "1100"
        .AddItem "1130"
        .AddItem "1200"
        .AddItem "1230"
        .AddItem "1300"
        .AddItem "1330"
        .AddItem "1400"
        .AddItem "1430"
        .AddItem "1500"
        .AddItem "1530"
        .AddItem "1600"
        .AddItem "1630"
        .AddItem "1700"
        .AddItem "1730"
        .AddItem "1800"
        .AddItem "1830"
        .AddItem "1900"
        .AddItem "1930"
        .AddItem "2000"
        .AddItem "2030"
        .AddItem "2100"
        .AddItem "2130"
        .AddItem "2200"
        .AddItem "2230"
        .AddItem "2300"
        .AddItem "2330"
        .AddItem "2400"
    End With
    工作時數輸入表單2.終止時分.ListIndex = 35
    工作時數輸入表單2.時數.Value = 8
End Sub

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2010-11-9 18:31 | 只看該作者
回復 5# ltc
看不到完整程式碼 如何幫你????

TOP

ltc

帖子
49 
主題
15 
精華
0 
積分
70 
點名
0  
作業系統
W7 
軟體版本
IE8 
閱讀權限
20 
性別
男 
註冊時間
2010-10-10 
最後登錄
2014-5-10 

論壇贊助勳章
5#
發表於 2010-11-9 18:27 | 只看該作者

這是最新測試結果，已有多台電腦發生

另外補充：
1.黃色部分是出問題的程式碼
2.出現(路徑或檔案存取錯誤)視窗，是因為我點選了左邊視窗內的(工作時數輸入表單2)的結果
3.左邊視窗內的(工地基本資料表單)可點選
4.左邊視窗內的(工作時數輸入表單)點選後會出現，(路徑或檔案存取錯誤)視窗
5.關閉檔案後，再重新開啟，程式還是可以正常運作。
6.什麼時候會發生呢？>>使用者開啟檔案後數分鐘or十幾分鐘內未使用鍵盤及滑鼠就會發生

再麻煩各位大大解惑了
謝謝

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
12
返回列表 上一主題