Excel工作表表名导出

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

Technorati 标签: microsoft office,vbs,excel

1: Attribute VB_Name = "表名导出"

2: Sub test()

4: fpath = "e:\ls.txt"

6: lfileid = FreeFile()

7: Open fpath For Output As lfileid

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:

.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, "Courier New", courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }