如何从主工作簿中的第一个工作簿

复制后激活一个工作簿我开始一个按钮，打开第二个工作簿，然后返回到第一个工作簿，复制一系列单元格，然后转到第二个工作簿（在此处出错）粘贴如何从主工作簿中的第一个工作簿

Sub Knop7_Klikken() 
    Dim TelStaat As Workbook 
    Dim Staat As Worksheet 
    Dim WicamStaat As Workbook 
    Dim Invoer As Worksheet 
    Dim Pathname As String 
    Dim Filename As String 
    Dim Value1 As String 

    'TelStaat = "Calculatie 2014 Nesting Wicam.xlsm" 

    Set TelStaat = ThisWorkbook 

    Value1 = "AN" 
    Pathname = "V:\\2013 Calculatie\" 
    Filename = "VPT.xlsm" 

    'when I use this it wil not open second macro 
    Application.EnableEvents = False 

    Workbooks.Open Filename:=Pathname & Filename 
    Worksheets("Invoer").Activate 
    TelStaat.Activate 
    Worksheets("Staat").Columns(3).Find(Value1).Select 

    Range(ActiveCell, ActiveCell.End(xlDown)).Select 
    Selection.Offset(0, 6).Select 
    Selection.Resize(, 6).Select 
    Selection.Copy 

    'here it goes wrong, 
    Set WicamStaat = ActiveWorkbook 
    Worksheets("Invoer").Activate 

    Range("A32").Select 

    Selection.PasteSpecial Paste:=xlPasteValues, _ 
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

    Application.Calculation = True/xlAutomatic 
End Sub

来源

2014-07-09 user3820009

以何种方式它去错了吗？它会抛出一个错误吗？如果是这样的错误？ – Gareth

它开始运行工作簿（），从第二个工作簿wicamstaat打开marco。 – user3820009

Windows("copyfromfile.xlsx").Activate 'Copy 
Columns("A:H").Select 
Selection.Copy 

Windows("pastetofile.xlsx").Activate 'Paste 
Columns("A:A").Select 
Selection.Insert Shift:=xlToRight

来源

2014-07-09 11:54:15

赞成理解这个问题。请添加更好的评论。 – cmroanirgo

如何从主工作簿中的第一个工作簿

回答

相关问题