Office中国论坛/Access中国论坛

标题: 向高手请教如何写代码 [打印本页]

作者: OKK 时间: 2009-4-17 02:44
标题: 向高手请教如何写代码
[attach]37354[/attach]
谢谢

作者: 82077802 时间: 2009-4-17 06:08
写什麽代码？

作者: chuang0321 时间: 2009-4-17 08:59
想帮你解决，结果下载居然要扣钱

作者: OKK 时间: 2009-4-17 11:57
向高手请教:
如何编写代码才能将某个未打开的工作簿中的某个工作表删除.
比如

:\PO.xls中的Sheet1删除

作者: 方漠 时间: 2009-4-17 12:13
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 时间: 2009-4-17 16:06
谢谢方漠版主的帮助.

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

作者: OKK 时间: 2009-4-18 09:10
期待

作者: 方漠 时间: 2009-4-18 10:48
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 时间: 2009-4-18 21:17
感谢方漠版主的帮助.

作者: sherryhi 时间: 2009-4-24 22:01

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)