Excel vbs在目录中查找文件并使用弹出窗口打印

我有打印特定文件的脚本，但很难为每个要打印的文档创建超过150个.vbs文件， 有没有办法让弹出窗口，我可以键入文件名，然后脚本在文件夹中找到它，并打印20份。 我有PDF、WORD和Excel文件

这就是我现在为他们准备的

Dim AppExcel 
Set AppExcel = CreateObject("Excel.application")
AppExcel.Workbooks.Open"directory\filename.xlsx"
AppExcel.Visible = True
AppExcel.ActiveWindow.SelectedSheets.PrintOut,,20
Appexcel.Quit
Set appExcel = Nothing

filename = "\\MCSERVER01\Data\Forms\Vehicle inspection forms\daily vehicle inspection form.pdf"

Set sh = CreateObject("WScript.Shell")
sh.Run "sumatrapdf.exe -print-to-default """ & filename & """", 0, True

Dim AppWord
Set AppWord = CreateObject("Word.application")
AppWord.Documents.Open"\\MCSERVER01\Data\Forms\DODD\SMALL CAR DRIVERS\Akira Litman.docx"
AppWord.Visible = True
AppWord.ActiveDocument.PrintOut
AppWord.Quit
Set appWord = Nothing

---

也许您可以使用输入框

Dim fileToPrint As String

fileToPrint = InputBox("Enter file name to print")

---

我从我的老朋友那里得到了一些帮助，但现在我不能让另一个零件工作了 设置fso=CreateObjectScripting.FileSystemObject 呼叫总管

副总管 InputName=InputBox输入您的姓名 如果instrInputName，.=0那么 MSGBox根本不需要这个！！！！！ 出口接头 如果结束 'msgboxmidInputName，instrInputName，.+1 选择大小写midInputName、instrInputName、.+1 案例xlsx 调用printExcelInputName 结束选择 端接头

子文件名 暗淡的阿佩克塞尔、小路 设置AppExcel=CreateObjectExcel.application path=\MCSERVER01\Data\Forms\Access2Care\轮椅驱动程序\ 如果fso.FileExistspath和fileName，则 AppExcel.Workbooks.Open路径和文件名 AppExcel.Visible=false AppExcel.ActiveWindow.SelectedSheets.PrintOut，，20 阿佩克塞尔，退出 设置appExcel=Nothing 否则

X=MsgBox错误的文件名或文件不存在，0+16，请重新输入您的全名

end if

端接头

所以，我现在的问题是，我必须输入文件扩展名，以使其工作，否则我得到msgbox与不需要这个

---

我怎样才能去掉这个msg并将默认扩展名作为xlsx xsl

添加到我现有的脚本中呢？很抱歉，我对VBA一窍不通。有人能帮我解决这个问题吗？也许你可以改进这个问题，或者用一种不同的、更具体的方式来问。。准确地定义你的问题是什么，你在哪里被卡住了，这将更容易提供帮助。现在有点像，嘿，我在尝试做一些工作，有人能帮我完成吗..好吧，让我试着完善这个问题，正如你看到的，我有3个不同的脚本，一个用于word，一个用于excel，一个用于pdf，从特定位置打印特定文件，我需要的是有一个脚本文件，将打开弹出框，说请文件名，当我输入文件名，例如报告，它会自动找到文件名report.xlsx，并打印出来，而无需打开excel word或pdf。就像我现在做的脚本一样，它们在后台运行所有你看不见的东西。我一直在寻找弹出窗口的方法，该窗口将搜索文件并选择它从特定文件夹打印