|
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlbook1 = xlApp.Workbooks.Open("E:\1.xls")
Set xlbook2 = xlApp.Workbooks.Open("E:\2.xls")
Set xlsheet1 = xlbook1.Worksheets(1)
Set xlsheet2 = xlbook2.Worksheets(1)
xlsheet1.Range("DD") = xlsheet1.Range("DD")
xlbook1.Save
xlbook1.Close
xlbook2.Close
xlApp.Quit
Set xlApp = Nothing
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
想把2.xls的第四列,写入到文件1.xls的第四列,
我知道xlsheet1.Range("DD") = xlsheet1.Range("DD") 是错的,
但不知道怎样改,谁能帮帮忙吗?
替换.zip
(12.18 KB, 下载次数: 5)
|
|