Excel 2013默认菜单里面没有开发选项。需要在系统菜单选项里面打开。
打开后,菜单上就会增加一个 Developer,里面就有vb之类的东东。
做了整整一天 拷贝 粘贴。最后实现代码如下:
Sub copyMainData()
Dim srcWB As Workbook
Dim srcSheet As Worksheet
Dim srcRange As Range
Dim targetRange As Range
Application.DisplayAlerts = False
Set srcWB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\xxx.xlsx", ReadOnly:=True)
Set srcSheet = srcWB.Sheets("xxxsheet")
Set targetRange = ThisWorkbook.Sheets("sheet1").Range("A1:M195")
targetRange.Clear
Set srcRange = srcSheet.Range("A1:M191")
srcRange.Copy
Set targetRange = ThisWorkbook.Sheets("sheet1").Range("A5:M195")
targetRange.PasteSpecial xlPasteAll
srcWB.Close
'targetRange.Value = srcRange.Value
End Sub
拷贝粘贴有很多方法,这个是使用Range对象的copy和pasteSpecial方法。还比较方便。
如果只是想粘贴值,不要格式和公式,就用.Value