2010年10月15日
EXCEL VBA
摘要： Private Sub GetTestSheets_Click() Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Dim path As String path = ThisWorkbook.path & "\WorkBooks\" Dim folder Set folder = fso.GetFolder(p... 阅读全文
posted @ 2010-10-15 09:04 ntcosmos 阅读(229) 评论(0) 推荐(0) 编辑