如何解决VBscript复制范围并将特殊转置粘贴到可变位置的行
尝试将一系列数据复制到可变位置,并将信息从列转置为行。我一直收到范围类的粘贴特殊方法失败。第15行字符1。
VBScript的新手,任何帮助都会很棒!
set xl = CreateObject("Excel.Application")
xl.Application.DisplayAlerts=False
const xlDown = -4121
const xlUp = -4162
const xlPasteValues = -4163
set wb = xl.WorkBooks.open("https://Sharepoint address/SummaryKPI.xlsx")
WScript.Sleep 1000
If wb.WorkSheets("DataHistoryTurns").Range("A75536").End(xlUp).Value2 < Date Then
wb.LockServerFile
WScript.Sleep 100
wb.WorkSheets("Dashboard").Range("B2:B7").Copy
wb.WorkSheets("DataHistoryInv").Range("A75536").End(xlUp).Offset(1,1).PasteSpecial xlPasteValues,True
wb.WorkSheets("DataHistoryInv").Range("A75536").End(xlUp).Offset(1,0).value = Date
wb.WorkSheets("Dashboard").Range("E2:B8").Copy
wb.WorkSheets("DataHistoryTurns").Range("A75536").End(xlUp).Offset(1,True
wb.WorkSheets("DataHistoryTurns").Range("A75536").End(xlUp).Offset(1,0).value = Date
wb.Save
End If
wb.Close
xl.Application.DisplayAlerts=True
xl.Quit
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。