(若是和其他不同软件互动之问题 请记得一并填写)
软件: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