这段源码在Excel的VBA环境下正常运行，可是在VB6里运行就出错了，请大家帮我看看，改一改（另外这个搜索的路径能不能选择啊，不要像现在这样固定的？）：
Private Sub CommandButton1_Click()
With Application.FileSearch
.LookIn = "K:\要打印的电子表格文件夹" '设置文件的搜索路径
.FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件类型为工作簿
If .Execute > 0 Then '如果找到一个或多个文件
For i = 1 To .FoundFiles.Count '设置打开工作簙的循环
Workbooks.Open Filename:=.FoundFiles(i) '打开找到的每一个工作簙
For j = 1 To Worksheets.Count '设置逐项选择工作表的循环
Worksheets(j).Select '选择工作表
With ActiveSheet.PageSetup '设置当前工作表的页面设置
.PaperSize = xlPaperA4 '设置纸张大小为A4纸
.Zoom = False
.FitToPagesWide = 1 '设置为1页宽
.FitToPagesTall = 1 '设置为1页高
End With
Next j '选择下一张工作表
ActiveWorkbook.PrintOut '打印整个工作簙
ActiveWorkbook.Saved = True '不保存当前工作簙
ActiveWorkbook.Close '关闭当前工作簙
Next i '打开下一个工作簙
Else
MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件
End If
End With
End Sub

[此贴子已经被作者于2006-5-23 12:49:08编辑过]

改成这样也不行？
Private Sub Command1_Click()
With Application.FileSearch
.LookIn = "K:\要打印的电子表格文件夹" '设置文件的搜索路径
.FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件类型为工作簿
If .Execute > 0 Then '如果找到一个或多个文件
For i = 1 To .FoundFiles.Count '设置打开工作簙的循环
Workbooks.Open FileName:=.FoundFiles(i) '打开找到的每一个工作簙
For j = 1 To Worksheets.Count '设置逐项选择工作表的循环
Worksheets(j).Select '选择工作表
With ActiveSheet.PageSetup '设置当前工作表的页面设置
.PaperSize = xlPaperA4 '设置纸张大小为A4纸
.Zoom = False
.FitToPagesWide = 1 '设置为1页宽
.FitToPagesTall = 1 '设置为1页高
End With
Next j '选择下一张工作表
ActiveWorkbook.PrintOut '打印整个工作簙
ActiveWorkbook.Saved = True '不保存当前工作簙
ActiveWorkbook.Close '关闭当前工作簙
Next i '打开下一个工作簙
Else
MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件
End If
End With
End Sub
出错提示：实时出错"424":要求对象
With Application.FileSearch 这句有错，但我不知错在哪里？

希望大家可以帮我看看，是不是我没定义好数据类型还是什么的？我是一个菜鸟啊

顶上去，希望有人帮我一下。

大哥，那你吃饭完麻烦你帮我看一看，好吗？

大哥，你说得对！我上面那些代码可能只适用于VBA，那麻烦你帮改改！

上次也是大哥哥帮我，真是感谢！如果我离你不远的话，肯定请你做我的家庭老师，真的。

等xinfresh大哥！！

顶上去先。

好的，我马上加你