[問題] VBA workbooks不重新開啟檔案
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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
→
08/11 00:34,
5年前
, 1F
08/11 00:34, 1F
→
08/11 00:35,
5年前
, 2F
08/11 00:35, 2F
→
08/11 00:37,
5年前
, 3F
08/11 00:37, 3F
→
08/11 00:40,
5年前
, 4F
08/11 00:40, 4F
→
08/11 00:41,
5年前
, 5F
08/11 00:41, 5F
→
08/11 00:41,
5年前
, 6F
08/11 00:41, 6F
→
08/11 00:43,
5年前
, 7F
08/11 00:43, 7F
→
08/11 00:44,
5年前
, 8F
08/11 00:44, 8F
→
08/11 00:45,
5年前
, 9F
08/11 00:45, 9F
→
08/11 00:46,
5年前
, 10F
08/11 00:46, 10F