Question

我想要一个Word宏，它将插入动态签名（最多三个），并且以前从未做过VBA（更多的Powershell家伙...）。

为此，我在“开发人员”界面中创建了一个用户窗体，其中包含3个框架和大量单选按钮，其中包含能够签名的人的姓名作为标题。

由于有60个人（或更多）可以签名，所以我考虑过要制作一个CSV文件，其中包含他们的“姓名，部门，职能）。

我的问题是我不知道如何读取CSV并将其与标题（例如Caption =“ Jon Swiss”）进行比较，并为其他三个值初始化变量。

我用一些书签标记了我的文档（仅适用于标题）。

我不知道您是否需要我完成的脚本（与CSV无关-抱歉...）

docker build .

Answer 1

谢谢您的帮助。

我找到了使用CSV的方法。

  'Répertoire
directory = "H:\@SCRIPTS\VBA_MacroWord_DigitRH\"
FileName = "BaseSignatureTest.csv"
'Ouverture de la connexion CSV
Set rs = CreateObject("ADODB.Recordset")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & directory & ";" _
& "Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
strSQL = "SELECT * FROM " & FileName
rs.Open strSQL, strcon, 3, 3
rs.MoveFirst

Do
   col1 = rs("Nom")
   col2 = rs("Fonction")
   col3 = rs("DPT")
   col4 = rs("Signature")
   rs.MoveNext

   'Si une valeur a été trouvée et qu'elle corresponds, définition des valeurs
   If col1 = RHSignature2 Then
   MsgBox "Signature2"
   MsgBox col1
   MsgBox col2
   MsgBox col3
   MsgBox col4

似乎正在工作。也许有更好的方法。但是感谢所有花了一些时间花时间阅读我的人。周末愉快，乔恩

在CSV中查找UserForm标题变量以获取其他值

1 个答案: