在 VBA 中调用单元格值

Question

我想做什么：

我有一个代码，可以从word文档中提取句子并将它们分成电子表格上的行。 文档保存在我的网络驱动器上 (S：(目录中有我的用户名。 我希望设置一个可以由多个用户运行的宏。 为此，我尝试在我的代码中内置用户名调用(该调用将输入到 Sheet1 的单元格 A1 中(。 我拥有的脚本如下，我无法解决的部分位于"Word文档对象"下。

Sub Sentence_Retrieve()
    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    'Word document object
    Dim WordNam As String
    WordNam = "S:verytallmikeDesktopSentence_test.docx"
    'Open word document
    objWord.Documents.Open WordNam
End sub

关于如何将单元格值从 A1 Sheet1 调用到当前显示"非常高迈克"的位置的任何想法？

Answer 1

您需要创建一个变量来保存单元格 A1 中的值，并使用一些基本的字符串串联来创建文件的完整路径。这个例子是非常基本的：

Dim directoryPart as String
directoryPart = Worksheets("Sheet1").Range("A1").Value
' combine the value from A1 to form a full path to the file
Dim filePath As String
filePath = "S:" & directoryPart & "DesktopSentence_test.docx"