教學影片連結
https://www.youtube.com/watch?v=CeyvCjxufVI
vbs程式碼如下，自己改檔案路徑
Dim Excel
Dim ExcelDoc
'Opens the Excel file'
Set Excel = CreateObject("Excel.Application")
Set ExcelDoc = Excel.Workbooks.open("C:\Users\yangchisen\Downloads\數位課程課後問卷(1-8).xlsx")
'Creates the pdf file'
Excel.ActiveSheet.ExportAsFixedFormat 0, "C:\Users\yangchisen\Downloads\數位課程課後問卷(1-8).pdf" ,0, 1, 0,,,0
'Closes the Excel file'
Excel.ActiveWorkbook.Close
Excel.Application.Quit