Как сделать петлю, если Sheets пуст и ничего не копировать?

Question

У меня есть файл cvs, который иногда не содержит данных, я извлекаю его в Excel, но цикл, который я хочу сделать, таков: если лист «temp is empty», я не хочу ничего копировать?

 Sub StartExtract()

 ' Set the sid and client to connect to
   W_System = "P10320"
 ' Run the GUI script
  RunGUIScript
 ' End the GUI session
  objSess.EndTransaction
 'effacer contenu feuille temp
  Sheets("temp").Select
  Cells.Select
  Selection.Delete Shift:=xlUp
 'Switch to the worksheet where the data is loaded to
  Sheets("temp").Select

  'Load the CSV file
  OpenCSVFile

  Sheets("BGSOCIAL").Select
  Columns("B:G").Select
  Selection.ClearContents
  Sheets("temp").Range("B:G").Copy
  Sheets("BGSOCIAL").Range("B:G").PasteSpecial Paste:=xlPasteValues


 Workbooks.Open FileName:="C:\Users\p100789\Documents\SAP\SAP 
 GUI\text.txt"
 Cells.ClearContents
 ActiveWorkbook.Close SaveChanges:=True

 End Sub

Answer 1

Вы можете попробовать:

Option Explicit

Sub test()

    With ThisWorkbook.Worksheets("temp")

        If IsEmpty(.UsedRange) Then
            MsgBox "Empty"
        Else

        End If

    End With

End Sub