12
返回列表 上一主題 發帖

[發問] VBA運轉停不了

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-6 23:48 | 只看該作者

[發問] VBA運轉停不了

請問我運行這個VBA, 有30個SHEETS, 但運轉了5分鐘還沒有停頓, 是有甚麼錯誤呢? 又如何以以在完成存檔後自動關閉檔案?
請賜教!
Sub Splitbook()

Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"
    Application.ActiveWorkbook.Close True
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
收藏 分享

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2015-8-7 09:55 | 只看該作者
請問我運行這個VBA, 有30個SHEETS, 但運轉了5分鐘還沒有停頓, 是有甚麼錯誤呢? 又如何以以在完成存檔後自動 ...
missbb 發表於 2015-8-6 23:48



    建議 可將運作過程開啟
   然後 一次用1~2個檔案下去測試 或 用F8 一步一步看問題所在...

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2015-8-7 10:18 | 只看該作者
請問我運行這個VBA, 有30個SHEETS, 但運轉了5分鐘還沒有停頓, 是有甚麼錯誤呢? 又如何以以在完成存檔後自動 ...
missbb 發表於 2015-8-6 23:48

一、  .Copy 範圍太抽象了，應明確告知其實際複製範圍；
二、 妳檔案尚未新增何來儲存檔案？
三、 以妳原本內容為稿底、稍予修正，請妳自行再測試看看：
  1. Sub Splitbook()
  2.     Dim xPath As String, xWs As Worksheet

  4.     xPath = Application.ActiveWorkbook.Path

  6.     Application.ScreenUpdating = False
  7.     Application.DisplayAlerts = False

  9.     For Each xWs In ThisWorkbook.Sheets
  10.         With Sheets(xWs.Name)
  11.             .UsedRange.Copy

  13.             With Workbooks.Add(1)
  14.                 .Sheets(1).Paste
  15.                 .SaveAs xPath & "\" & xWs.Name & ".xls", FileFormat:=xlExcel8
  16.                 .Close
  17.             End With
  18.         End With
  19.     Next
  20.     Application.DisplayAlerts = True
  21.     Application.ScreenUpdating = True
  22. End Sub
複製代碼

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
4#
發表於 2015-8-7 10:24 | 只看該作者
一、  .Copy 範圍太抽象了，應明確告知其實際複製範圍；
二、 妳檔案尚未新增何來儲存檔案？
三、 以妳 ...
c_c_lai 發表於 2015-8-7 10:18


大大好
Copy 時自己毀新增啊

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2015-8-7 11:07 | 只看該作者
大大好
Copy 時自己毀新增啊
jackyq 發表於 2015-8-7 10:24



    copy 只是複製.. 你沒有任何 paste的指令阿..

只有複製沒有貼上 哪來的新增可言...

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
6#
發表於 2015-8-7 13:57 | 只看該作者
各位大大,
有勞, 很開快問題解決了.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2015-8-7 14:35 | 只看該作者
回復 1# missbb
你的程式沒問題.
可能因有30個SHEETS的資料大, 所以會運轉了5分鐘還沒有停頓,但耐心等候會完成的.
回復 3# c_c_lai
回復 4# jackyq
回復 5# mark15jill
  1. For Each xWs In ThisWorkbook.Sheets
  2.     xWs.Copy  '工作表複製  -> 一張工作表的活頁簿. -> ActiveWorkbook
  3.     Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" '指定路徑存檔
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
8#
發表於 2015-8-7 15:57 | 只看該作者
回復  missbb
你的程式沒問題.
可能因有30個SHEETS的資料大, 所以會運轉了5分鐘還沒有停頓,但耐心等候會 ...
GBKEE 發表於 2015-8-7 14:35



忘記 原始資料數量多寡也會影響速度.... 哈

    受教了~ 謝謝

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
9#
發表於 2015-8-8 09:09 | 只看該作者
回復 7# GBKEE

多謝!會再努力!

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
10#
發表於 2015-8-8 09:48 | 只看該作者
回復  missbb
你的程式沒問題.
可能因有30個SHEETS的資料大, 所以會運轉了5分鐘還沒有停頓,但耐心等候會 ...
GBKEE 發表於 2015-8-7 14:35

在我的Excel 2010 測試時，如果不加入 FileFormat:=xlExcel8 的話，
儲存的 xls 檔案均無法開啟 (如附圖)， 所以我才會稍加修改，謝謝您的指導！
  1. Sub Splitbook2()     '  GBKEE
  2.     Dim xPath As String, xWs As Worksheet

  4.     xPath = Application.ActiveWorkbook.Path

  6.     Application.ScreenUpdating = False
  7.     Application.DisplayAlerts = False

  9.     For Each xWs In ThisWorkbook.Sheets
  10.         xWs.Copy                          '  工作表複製   ->   一張工作表的活頁簿.  ->  ActiveWorkbook
  11.         
  12.         '  Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"     '指定路徑存檔
  13.         Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls", FileFormat:=xlExcel8 '指定路徑存檔
  14.         Application.ActiveWorkbook.Close True
  15.     Next
  16.    
  17.     Application.DisplayAlerts = True
  18.     Application.ScreenUpdating = True
  19. End Sub
複製代碼

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
12
返回列表 上一主題