Board logo

標題: 請問(執行階段錯誤 75)問題 [打印本頁]

作者: ltc    時間: 2010-11-8 15:15     標題: 請問(執行階段錯誤 75)問題

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

回復 1# ltc
路徑/檔案存取錯誤 (錯誤 75)
看不到程式碼????
作者: ltc    時間: 2010-11-8 19:07

目前好像只有一台發生,將再多測幾台電腦試試
作者: ltc    時間: 2010-11-8 19:08

再跟各位大大報告
作者: ltc    時間: 2010-11-9 18:27

[attach]3540[/attach]
這是最新測試結果,已有多台電腦發生

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

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

作者: GBKEE    時間: 2010-11-9 18:31

回復 5# ltc
看不到完整程式碼 如何幫你????
作者: ltc    時間: 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
作者: GBKEE    時間: 2010-11-9 19:18

回復 7# ltc
對不起 還是請你附上檔案 好了解
作者: Min    時間: 2010-11-9 20:17

本帖最後由 Min 於 2010-11-9 20:18 編輯

"工作時數輸入表單2.年月選單區.Clear" 出錯
那你的"年月選單區" 是Sheet嗎? 還是object? ....
檢查一下"年月選單區"吧~
作者: ltc    時間: 2010-11-9 21:01

工作時數輸入表單2 是 UserForm
年月選單區 是 ComboBox

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

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

程式碼錯誤應該不會這樣吧?
作者: oobird    時間: 2010-11-9 22:48

是否在workbook open事件中讀入某些數據存放在記憶體中?
存放在記憶體的東西常會因刪除等操作而連帶被清空。這樣就出錯了!
作者: ltc    時間: 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.
最新的測試結果,開啟後不做任何動作,約十幾分鐘後再操作就會出現錯誤
沒問題的電腦還是沒問題(一次也沒發生過)

作者: ltc    時間: 2010-11-10 09:49

最新報告:
office 2007 升級 SP2 後,暫未出現問題




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