请教，在Excel VBA中如何打印指定的工作表？谢谢

'''一,将文本文件内容拆分为二维数组:
dim a()
set fso=CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile("G:\data.txt",1)
s=fr.readall
'msgbox s
a1=split(s,chr(13))
cRow=ubound(a1)
a2=split(a1(0),",")
cCol=ubound(a2)
redim a(cRow,cCol)
for i=0 to cRow
a2=split(a1(i),",")
for j=0 to cCol
a(i,j)=a2(j)
next
next
'''建立工作簿,写入数据,保存后退出e69da5e887aae79fa5e98193362应用程序:
Dim xlsApp,xlsWorkBook,xlsSheet
Dim Row

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = FALSE
Set xlsWorkBook = objExcel.Workbooks.Add

for i=0 to cRow
for j=0 to cCol
objExcel.Cells(i+2,j+1).Value = a(i,j)
next
next

xlsWorkBook.SaveAs "G:\data.xls"
xlsWorkBook.Close
objExcel.Quit
Set xlsApp = Nothing
Set xlsWorkBook = Nothing
Set objExcel = Nothing
'''============== By daode1212 ,QQ:1501488900 ================

1、用重命名方式将Sheet5的名称修改为了“测试表单”，但在VBAProject中，zhidao前面的名字依然叫Sheet5。

2、点击 VBAProject下面的Sheet3，下面对应出现Sheet3的属性，我们能够看到属性中内 一个叫“名称”，就是工作表的CodeName，另外一个Name，就是平时大家所见的Sheet 的名字。

3、在“名称”属性中输入新的名称，直接对CodeName进行修改。

4、工作表的CodeName就是工作表在VBE工程中所在部件的名称，通过修改VBE工程中所在部件的名称来达到修改工作表的CodeName的目的。

5、运行，输入新的codename以后，系统给出提示“未信任到VB工程访问，请在信任选项中容勾选VB工程访问”。

6、点击开发工具|宏安全性，打开宏安全性配置窗口。

7、勾选“信任对VBA工程对象模型的访问”，然后点击确定。

8、重新运行，成功将Sheet1修改为testaaa。

set xlapp=getobject(,"excel.application")
set xlbook=xlapp.workbooks("工作簿百1")
set xlsheet=xlbook.sheets("sheet1")
msgbox xlsheet.range("a1")'''读取度数据知
xlsheet.range("a1")=10000''''写数据
xlbook.save'''未保存道过用内容saveas 路径 这是保存
xlbook.close true ''关闭工作簿1
xlapp.quit '''退出excel

你手机登陆的zhidao，写不下版哦!
Set F = CreateObject("scripting.filesystemobject")
Set X = CreateObject("Excel.application")
Set L = F.GetFolder("E:\DATA\")
For Each J In L.Files
'这是关键代码权
Next