向高手请教如何写代码

OKK

谢谢

82077802

写什麽代码？

chuang0321

想帮你解决，结果下载居然要扣钱

OKK

向高手请教:
如何编写代码才能将某个未打开的工作簿中的某个工作表删除.
比如:\PO.xls中的Sheet1删除

方漠

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

OKK

谢谢方漠版主的帮助.

OKK

谢谢方漠版主的帮助.
      再向老师请教:
如何编写代码才能将某个未打开的工作簿(工作簿=Application.GetOpenFilename("Excel file,*.xls", , "Select Excel file", , False))
中的所有工作表(包括隐藏的)名称导出来,列入到A列中.

OKK

期待

方漠

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

OKK

感谢方漠版主的帮助.