[問題] 發生執行階段錯誤9

[a6943kght (TOM PAN)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel2013
我是參照以下影片做修正
https://m.youtube.com/watch?v=vHv4Qq1mv50&feature=share

但我的卻一直顯示發生執行階段錯誤9
陣列索引超出範圍

提供檔案照片：
https://i.imgur.com/SqOUiDY.jpg
抱歉因為是用手機發文所以有點模糊。

Source是我設定的工作表名稱～

感謝各位

Ps我是用錄製巨集完成，只是針對部分內容（選取目標）作修正


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 117.19.182.174
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1513510293.A.148.html
※ 編輯: a6943kght (117.19.182.174), 12/17/2017 19:34:09
→ soyoso: 有可能，並無activecell.value的windwos視窗名稱或索引編
→ soyoso: 號正被開啟，如https://i.imgur.com/LZZj50v.png
→ soyoso: 抱歉應以https://i.imgur.com/z7mdRNP.png 當activecell值
→ soyoso: 為活頁簿2，而只有視窗名稱活頁簿1被開啟時則會出現如原文
→ soyoso: 的錯誤
→ a6943kght: 聽不太懂QQ所以該怎麼解決呢？ 教學影片沒問題自己動
→ a6943kght: 手做就出現問題 蠻怪的...
→ soyoso: 要看activecell.value帶入的值是否有在正開啟
→ a6943kght: 我又測試了一下，感覺系統抓不到Activesheet.name這個
→ a6943kght: 工作簿，然後就拼命複製原來工作簿的source
→ a6943kght: 我這個vba是為了要把多個的工作簿檔案彙整到一個裡面
→ newacc: 用ActiveCell或ActiveSheet的問題就是你要確定你每次執行
→ newacc: 巨集時，都選取了正確的頁面和正確的格子
→ newacc: 標黃色的那行，電腦會先讀取ActiveCell的值，也就是你目前
→ newacc: 選取的格子裡的內容，然後在Windows找這個名稱的視窗
→ newacc: 看起來問題出在1.你沒有選對格子 或2.你沒有先開啟對應名
→ newacc: 稱的視窗
→ newacc: 順道一提，網路上絕大多數VBA coder都建議能不用Active或
→ newacc: Select就不要用，一來很吃資源速度慢，二來只要使用者沒有
→ newacc: 選對格子或分頁，code就會出問題。
→ a6943kght: 按照影片解說，我的動作大抵是先為選定的儲存格建立超
→ a6943kght: 連結（也就是另一個檔案）然後把超連結的工作表移動複
→ a6943kght: 製到原來儲存格的工作表，然後再關閉超連結檔案（原因
→ a6943kght: 是如果不關閉，那接下來會開一堆視窗耗用記憶體），我
→ a6943kght: 全都是按照影片教學，就不懂為什麼還有問題...，巨集也
→ a6943kght: Activecell.value或是Activesheet.name只是為了對應接
→ a6943kght: 下來選擇的儲存格使用巨集，還是有其他方式好用呢？
→ a6943kght: 感謝樓上的分析及分享
推 newacc: 請參考 https://pastebin.com/p7KNEpHx
→ a6943kght: 我後來發現我上述的問題存在於當我超連結到外面的檔案
→ a6943kght: 時，因為開啟過久或是開啟了不了，造成activesheet.nam
→ a6943kght: e就直接存取原來的工作簿，所以原來工作簿中的sheet”s
→ a6943kght: ource”就一直不斷複製...
→ a6943kght: 感謝分享