2

このエラーを解決できるようにプロジェクトへの参照を追加しようとしましたが、成功しませんでした。

誰かがどのライブラリを追加すべきか教えてもらえますか?

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

2 に答える 2

5

Word IDE内で作業している場合は、[ツール]-> [参照]に移動し、 MicrosoftExcel[バージョン番号]オブジェクトライブラリを参照します。

ここに画像の説明を入力してください

于 2013-03-18T09:09:13.413 に答える
1

質問word-vbaWorksheetsにタグを付けましたが、Excelの一部である参照を使用しています。

WorksheetsWordで参照を実際に使用している場合は、 User-defined type not defined-errorが発生します。

そうでない場合は、他に何かが不足しているため、詳細をお知らせください。エラーはどの行を強調表示しますかなど。

于 2013-03-18T00:42:01.357 に答える