Vba 将工作表复制到其他工作簿-路径错误

我正在尝试编写一个代码，将工作表复制到打开的工作簿中。但最后我得到了一个路径错误

代码现在看起来像这样

Sub Storyboard_Ekle()
    Dim DosyaSec As Office.FileDialog

    Set DosyaSec = Application.FileDialog(msoFileDialogFilePicker)

   With DosyaSec

      .AllowMultiSelect = False
      .Title = "Lütfen yeni eklenecek Storyboard dosyasini seçiniz."
      .Filters.Clear
      .Filters.Add "Excel Macro-Enabled Workbook", "*.xlsm"
      .Filters.Add "Excel Workbook", "*.xlsx"
      .Filters.Add "All Files", "*.*"

      If .Show = True Then
        YeniSB = .SelectedItems(1)
      End If

Dim YeniStoryBoard As Workbook
Dim AnaDosya As Workbook
Dim YeniStoryBoard_Sheet As Worksheet
Dim AnaDosya_Sheet As Worksheet

Application.ScreenUpdating = False

Set AnaDosya = ThisWorkbook

YeniStoryBoard.Sheets("Storyboard").Copy After:=ThisWorkbook.Sheets("Kunye")  '-> This gives error

YeniStoryBoard.Close

Set YeniStoryBoard_isim = Sheets("Storyboard")
YeniStoryBoard_isim.Name = "StoryboardXXYYZZ"


   End With
End Sub

我将继续对代码进行一些修改，但这不能正常工作

---

有什么建议吗？

这里有一行代码可以解决您的问题：

Public Sub TestMe
    ThisWorkbook.Worksheets("Storyboard").copy after:= ThisWorkbook.Worksheets("Kunye")
End Sub

---

它应该会起作用。然后开始逐行检查您的案例中不起作用的内容。我想问题是，在将YenStoryBoard设置为工作簿后，您没有设置它。因此，这算不了什么。

工作簿是否在同一个目录中？看起来YenStoryBoard\u isim和YenStoryBoard是两个不同的变量，后者永远不存在set@DougCoats-完全一样的想法：这是我的错，我没有在代码上设置YenStoryBoard。我怎么能在代码处用YeniSB设置呢？如您所见，YeniSB为我提供了路径和文件名。如何在代码中使用它作为工作簿对象？这是我的错，我没有在代码中设置YenStoryBoard。我怎么能在代码处用YeniSB设置呢？如您所见，YeniSB为我提供了路径和文件名。如何在代码中将其用作工作簿对象？