将工作表复制到另一个工作簿 – path错误

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

代码现在看起来像这样;

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 

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

有什么build议么？

Answer 1

这里是一行代码来解决你的情况：

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

它应该工作。 然后开始检查你的情况是行不通的。 我猜这个问题是在Dim YeniStoryBoard As Workbook你没有设置它。 因此，这是Nothing 。