Я создал тест в Powerpoint, который выполняется макросами.
Я сделал список людей с их идентификационными номерами.
Пользователь просматривает свой идентификационный номер, и vba выскакивает сообщение с его именем. Что здорово. Работает замечательно. Но если я создам больше тестов, это будет проблемой. Если у меня будет больше пользователей или кто-то уйдет ... мне придется постоянно обновлять powerpoints.
Есть ли способ, которым powerpoint может открыть файл csv, ищет этот идентификационный номер и затем выскакивает имя, связанное с ним в powerpoint:
вот что у меня есть:
Sub BarcodeID()
Correct = 0
Wrong = 0
Barcode = InputBox(Prompt:="Scan Your ID:", Title:="This Test")
UserList
End Sub
Sub UserList()
If Barcode = "1000" Then UserName = "Bugs Bunny"
If Barcode = "1001" Then UserName = "Porky Pig"
If Barcode = "8675309" Then UserName = "Jenny/Tommy Tutone"
If UserName = "" Then UserName = InputBox(Prompt:="I'm Sorry, I could not you. Please enter your name below. Do not Worry, Your Name and progress has been recorded.", Title:="This Test")
Call Welcome
End Sub
Sub Welcome()
MsgBox ("Hello, " + UserName + ". You are about to start This Test. Let's Begin!"), vbApplicationModal, "This Test"
ActivePresentation.SlideShowWindow.View.Next
End Sub
Так что я знаю, что должен открыть файл CSV
Допустим, у меня есть файл с именем Users.csv
первый столбец - это имена, а второй столбец - это идентификационные номера.
Sub ReadBarcode()
dim iFileNumber As Integer
dim strFile As String
strFile = "C:\whatever\Users.csv"
Open strFile
и теперь я в замешательстве .. понятия не имею, что делать.