Блог

У меня есть этот код ниже, который импортирует некоторые данные из «sourceworkbook» в мою «текущую рабочую книгу». Когда у меня открывается моя «текущая рабочая книга», после импорта данных я не могу переместить папку, содержащую файл «отчет» или файл «исходная рабочая книга».

Что я могу сделать, чтобы моя «текущая рабочая книга» оставалась открытой и по-прежнему могла вручную (перетаскивать) перемещать папку, содержащую файл «отчет» или «исходная рабочая книга»?

Похоже, что «исходная книга» все еще открыта в excel, поэтому я не могу переместить папку, содержащую «исходную книгу». Тем не менее, я думаю, что я закрыл «исходную книгу» в своей строке кода?

 Sub RES_Import()  Filename = Application.GetOpenFilename()  Application.ScreenUpdating = False 'Reduce screen flickering  Application.DisplayAlerts = False 'Remove "Delete Sheet" Warning    If Filename = False Then    MsgBox "No file Selected."    Else  Dim sourceworkbook As Variant  Dim currentworkbook As Workbook  Dim test As String  Dim sht As Worksheet    Set currentworkbook = ThisWorkbook  Set sourceworkbook = Workbooks.Open(Filename)    For Each sht In currentworkbook.Worksheets  If sht.Name = "report" Then    currentworkbook.Worksheets("report").Delete  sourceworkbook.Sheets(1).Copy before:=currentworkbook.Sheets(1)  sourceworkbook.Close SaveChanges:=False    Exit For    Else    sourceworkbook.Sheets(1).Copy before:=currentworkbook.Sheets(1)  sourceworkbook.Close False    Exit For  End If  Next sht    End If    Application.DisplayAlerts = True 'Enable "Delete Sheet" Warning    Set sourceworkbook = Nothing  Set currentworkbook = Nothing   ThisWorkbook.Activate  Application.ScreenUpdating = True 'Reduce screen flickering   End Sub