[問題] VBA workbooks不重新開啟檔案

[pomelolin (勇氣、智慧、善良)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel

版本:2013


這是別人寫的VBA, 現在想自己修改, 是從A檔案各個sheet不同位置
copy到B檔案各sheet不同位置, 有個表格是對照表
原本寫的檔案都得重新開啟A檔案和B檔案, 但其實原本都會同時開著,
不想每次run程式都要重開檔案, 上網研究好久, 依然不得其門而入
把Open刪掉, 程式就出現錯誤了@@
麻煩版上各位先進幫忙~~


 Dim scWB As Workbook, tgWB As Workbook
    Dim scWS As Worksheet, tgWS As Worksheet, ws As Worksheet
    Dim row As Integer

    Set ws = ThisWorkbook.Worksheets("XXX")

    Set scWB = Application.Workbooks.Open(ws.Cells(1, 3).Value)

    Set tgWB = Application.Workbooks.Open(ws.Cells(2, 3).Value)


    For row = 4 To 63

        If (Len(ws.Cells(row, 2).Value) > 0) Then

            ws.Cells(row, 6).Value = "GO"

            Set scWS = scWB.Worksheets(ws.Cells(row, 2).Value)
            Set tgWS = tgWB.Worksheets(ws.Cells(row, 4).Value)

            scWS.Range(ws.Cells(row, 3).Value).Copy
            tgWS.Range(ws.Cells(row, 5).Value).PasteSpecial xlPasteValues


            ws.Cells(row, 6).Value = "OK"
            'scWB.Close
            'tgWB.Close
        End If

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 219.70.232.113
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1533916790.A.EF3.html
→ soyoso: 1.迴圈於workbooks的集合，判斷workbook.name是否符合原文
→ soyoso: 內的ws.cells(1,3)或cells(2,3)，符合就set 變數=
→ soyoso: workbooks(完整檔名)
→ soyoso: 並設個變數(可數字、文字或布林)，用於當迴圈執行完時都沒
→ soyoso: 有符合的條件，再判斷該變數，來判斷是否要以workbooks.
→ soyoso: open
→ soyoso: 2.直接set 變數=workbooks(完整檔名)，沒開啟變數會是
→ soyoso: nothing，就可以判斷當變數is nothing時workbooks.open
→ soyoso: 但因set 變數一個無開啟的檔案，會出現陣列索引超出範圍的
→ soyoso: 錯誤訊息，因此上方要加上on error resume next