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: