Excel工作表 表名导出

Technorati 标签: microsoft office,vbs,excel
 
   1:  Attribute VB_Name = "表名导出"
   2:  Sub test()
   3:      
   4:      fpath = "e:\ls.txt"
   5:      
   6:      lfileid = FreeFile()
   7:      Open fpath For Output As lfileid
   8:      
   9:      ns = Sheets.Count
  10:    
  11:      For i = 1 To ns
  12:         Print #lfileid, "touch " & Sheets(i).name & ".cdr,"
  13:       Next i
  14:   
  15:     Close #lfileid
  16:   
  17:      
  18:  End Sub
  19:   
posted @ 2013-11-20 16:42  ZinkSor  阅读(597)  评论(0)  编辑  收藏  举报