用户类型未定义工作表VBA

Question

我试图添加对我的项目的引用，所以我可以解决这个错误，但我没有成功。

有人可以告诉我应该添加哪些库吗？

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim ws As Worksheet

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ws = Worksheets.Add

 'Get the folder object associated with the directory
Set objFolder = objFSO.GetFolder("C:\")
ws.Cells(1, 1).Value = "The files found in " & objFolder.Name & "are:"

 'Loop through the Files collection
For Each objFile In objFolder.Files
    ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
    MyFile = objFile.Name
      NewName = getNewFileName()

Answer 1

如果您在Word IDE中使用 ，请转到工具 - ＆gt;参考并浏览 Microsoft Excel [版本号]对象库：

Answer 2

您已将问题标记为 word-vba ，但您使用的是Worksheets引用，它是Excel的一部分。

如果你真的在Word中使用Worksheets引用，你会得到User-defined type not defined - 错误。

如果没有，则缺少其他内容，您需要告诉我们更多信息。错误突出显示哪一行等。