调用 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:\verytallmike\Desktop\Sentence_test.docx"

    'Open word document
    objWord.Documents.Open WordNam
End sub

关于如何将 A1 Sheet1 中的单元格值调用到当前显示的位置的任何想法 'verytallmike'？

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 & "\Desktop\Sentence_test.docx"

调用 VBA 中的单元格值

Calling cell value in VBA

excel

vba

call

cell