向高手请教如何写代码

方漠

Sub Button_Click()

Dim StrF As String


StrF = Application.GetOpenFilename("Excel file,*.xls", , "Select Excel file", , False)

Application.ScreenUpdating = False
Application.DisplayAlerts = False


Workbooks.Open StrF

With ActiveWorkbook
     .Worksheets("sheet1").Delete
     .Save
     .Close
End With

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

方漠

Sub test()

Dim Sh As Worksheet, I As Integer

I = 1
For Each Sh In ActiveWorkbook.Worksheets


Yourworkbook.worksheet("yoursheetname").Cells(I, 1) = Sh.Name
I = I + 1


Next


End Sub