我有以下代码,应该从其他工作簿中导入工作表“ 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