返回列表 上一主題 發帖

沒有足夠的記憶體可完成此動作

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-5-3 19:27 | 顯示全部帖子

沒有足夠的記憶體可完成此動作



各位高手
小弟VBA好不容易寫完了
但是發現程式如果執行兩遍
好像就會出現上述的錯誤訊息

重開機後，大概執行兩遍後還是會出現該錯誤訊息

code.zip (1.03 KB)
收藏 分享

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
2#
發表於 2021-5-3 19:44 | 顯示全部帖子
我發現我把下面程式碼刪除後
程式就正常了
請問我的程式該怎麼改善
謝謝大家了
  1. file_path = ThisWorkbook.Path
  2. Sheets(sheet_name).Copy
  3. ActiveWorkbook.SaveAs file_Name, xlNormal
  4. 清除剪貼簿
  5. Application.CutCopyMode = False
  6. Workbooks(work_name).Activate
  7. Sheets("程式").Visible = True
  8. Sheets(sheet_name).Delete
  9. Sheets(temp_sheet_name).Delete
複製代碼
各位高手
小弟VBA好不容易寫完了
但是發現程式如果執行兩遍
好像就會出現上述的錯誤訊息

重開機後 ...
ssooi 發表於 2021-5-3 19:27

TOP

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
3#
發表於 2021-5-4 22:56 | 顯示全部帖子
本帖最後由 ssooi 於 2021-5-4 22:58 編輯

回復 3# 劉大胃
感謝您的回覆
不過好像還是一樣會發生記憶體不足

我後來在測試一次
上述程式碼都不變動
也不用刪除任何程式碼
只加了一行程式碼就正常了
就是分頁另存新檔後
馬上將新檔關起
就不會發生記憶體不足的錯誤了
  1. Sheets(sheet_name).Copy
  2. ActiveWorkbook.SaveAs file_Name, xlNormal
複製代碼
上述程式的後面加上→【ActiveWorkbook.Close True】
就正常了!!

我之前有用記憶體監測，其實記憶體一直都在50-60而已
還是會記憶體不足
直到發現加了【ActiveWorkbook.Close True】才沒有錯誤訊息

算是是微軟的BUG嗎
一個另存的新分頁
居然會造成記憶體不足
網路幾乎查不到甚麼資訊


以上小小測試

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題