如何從主工作簿中的第一個工作簿

複製後激活一個工作簿我開始一個按鈕，打開第二個工作簿，然後返回到第一個工作簿，複製一系列單元格，然後轉到第二個工作簿（在此處出錯）粘貼如何從主工作簿中的第一個工作簿

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

如何從主工作簿中的第一個工作簿

回答

相關問題