返回列表 上一主題 發帖

請問(執行階段錯誤 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 

論壇贊助勳章
2#
發表於 2010-11-8 19:07 | 顯示全部帖子
目前好像只有一台發生，將再多測幾台電腦試試

TOP

ltc

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

論壇贊助勳章
3#
發表於 2010-11-8 19:08 | 顯示全部帖子
再跟各位大大報告

TOP

ltc

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

論壇贊助勳章
4#
發表於 2010-11-9 18:27 | 顯示全部帖子

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

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

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

TOP

ltc

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

論壇贊助勳章
5#
發表於 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

ltc

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

論壇贊助勳章
6#
發表於 2010-11-9 21:01 | 顯示全部帖子
工作時數輸入表單2 是 UserForm
年月選單區 是 ComboBox

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

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

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

TOP

ltc

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

論壇贊助勳章
7#
發表於 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

ltc

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

論壇贊助勳章
8#
發表於 2010-11-10 09:49 | 顯示全部帖子
最新報告：
office 2007 升級 SP2 後，暫未出現問題

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題