vba - 用户类型未定义工作表 VBA

标签 vba excel ms-word

我曾尝试添加对我的项目的引用,以便解决此错误,但我没有成功。

谁能告诉我应该添加哪些库?

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()

最佳答案

如果您在 Word IDE 中工作,则转到工具 -> 引用 并浏览 Microsoft Excel [版本号] 对象库:

enter image description here

关于vba - 用户类型未定义工作表 VBA,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15466331/

相关文章:

c++ - 在 VBA 中使用 CreateDialog 尝试创建无模式对话框

vba - 如何在表格的第二行上方添加一行? Excel VBA

vba - 使用 Excel VBA 中的参数调用 Word VBA Sub

vba - 如何有条件地将一行中的数据排序为第二行中的近似数据匹配?

vba - 如何通过 VBA 以编程方式关闭 Microsoft Word 文档中的红色波浪线?

vba - Application.EnableEvents = true 每次都返回 false

python - pandas解析excel文件创建箱线图并将其再次存储在excel文件中

javascript - 对面平台无法识别 Office.js 绑定(bind)(Office Online 与 Office Desktop)

Excel 正在等待 Word 文档完成 OLE 操作

excel - 返回到按下按钮的工作表