Question

我有打印特定文件的脚本，但是很难为每个要打印的文档制作超过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

Answer 1

也许您可以使用输入框

Dim fileToPrint As String

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

Answer 2

我从我的老朋友那里得到了一些帮助，但现在我不能再另一份工作了 set fso = CreateObject（“Scripting.FileSystemObject”）主叫

分主要 InputName = InputBox（“输入你的名字”）如果instr（InputName，“。”）= 0则 msgbox（“根本不需要这个!!!!!”）退出子万一 'msgbox（mid（InputName，instr（InputName，“。”）+ 1）） select case mid（InputName，instr（InputName，“。”）+ 1）案例“xlsx” 调用printExcel（InputName）结束选择结束子

sub printExcel（fileName）昏暗的AppExcel，路径设置AppExcel = CreateObject（“Excel.application”） path =“\ MCSERVER01 \ Data \ Forms \ Access2Care \ WHEELCHAIR DRIVERS \” 如果fso.FileExists（path＆amp; fileName）则 AppExcel.Workbooks.Open路径＆amp;文件名 AppExcel.Visible = false AppExcel.ActiveWindow.SelectedSheets.PrintOut ,, 20 Appexcel.Quit 设置appExcel = Nothing 其他

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

end if

结束子

所以我现在的问题是我必须输入文件扩展名以使其工作，否则我得到msgbox“不需要这个” 我怎么能摆脱那个msg，只是将默认扩展名设为xlsx xsl

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

2 个答案: