VBA с использованием Powerpoint и CSV-файла - PullRequest
0 голосов
/ 12 апреля 2019

Я создал тест в 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  

и теперь я в замешательстве .. понятия не имею, что делать.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...