从另一个工作簿复制工作表INTO活动工作簿的工作表

时间:2020-05-20 21:37:54

标签: excel vba

我有以下代码,应该从其他工作簿中导入工作表“ aktueller Stand”。然后将此工作表复制到工作表“ Tabelle 2”之后的工作簿(我想将东西导入到该工作簿中)。到目前为止一切顺利:

Option Explicit
 Public Sub WOBImport()
        Dim sFileName As String
        Dim targetSht As Worksheet

        Set targetSht = ActiveWorkbook.Worksheets("Tabelle2")


        sFileName = Application.GetOpenFilename("Excel Files (*.xlsm), *.xlsx")

        Do While Len(sFileName) > 0
            If sFileName <> targetSht.Parent.Name Then
                On Error Resume Next
                With Workbooks.Open(sFileName)
                    .Sheets("aktueller Stand").Copy After:=targetSht
                    .Close False
                End With
                On Error GoTo 0
            End If
            sFileName = ""
        Loop
    End Sub´

我该如何管理工作表“ aktueller Stand” 没有在工作表“ Tabelle 2”(.Sheets("aktueller Stand").Copy After:=targetSht)的位置之后复制,但是要插入 >。 (以便将Tabelle 2中的数据替换为“ aktueller Stand”的复制数据。)

我尝试过:

 .Sheets("aktueller Stand").Copy Destination:=targetSht

但这似乎不起作用。

非常感谢!

Seb

0 个答案:

没有答案