Excel 2013 vba 程序

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