Question

早上好，我尝试在VBA中使用宏在excel表中插入数据。我已经阅读了很多教程，但我不明白一些方法不起作用（如Range）。我的宏：

Sub Main()

Dim FolderPath As String, path As String, count As Integer
FolderPath = "C:\Users\Victor\Documents\Algorithme et JS"
count = 0
path = FolderPath & "\*.docx"

Filename = Dir(path)

Do While Filename <> ""
   Filename = Dir()
   count = count + 1
Loop

MsgBox count
Workbook("Sheet1.xlsx").Worksheets("Feuille1").Range("A1").Value = count

End Sub

所以这个宏给我回答“7”（我的文件夹中有7个.docx），行“MsgBox count”，但最后一行不起作用，并返回“子程序或函数程序未定义“。说真的，我不明白，当我读到教程时，他们很容易就这样做了... 我忘记了我的宏？

PS：对不起我的英文，这不是我的母语。

Answer 1

在更新该单元格的值之前，您需要打开Sheet1.xlsx。以下是如何执行此操作的简短示例：

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\Victor\Documents\Algorithme et JS\Sheet1.xlsx")
wb.Worksheets("Feuille1").Range("A1").Value = Count
wb.Close SaveChanges:=True

子程序或功能程序未定义错误

1 个答案: