ms-access - 如何在函数中引用 Excel 工作表

Question

我正在尝试将 excel 工作表调用到一个函数，但出现错误 438 "OBJECT DOESN'T SUPPORT THIS PROPERTY OR METHOD"

下面的代码调用了 applyStyle1

Dim wkb7 As Excel.Workbook
Set wkb7 = Excel.Application.Workbooks.Open(strDir&"\NEXTDAY.xls")
wkb7.ActiveSheet.Cells.Select
Selection.Copy
Set wks7 = wkb.Sheets.Add

applyStyle1 (wks7)

函数:

Function applyStyle1(wksContainer As Excel.Worksheet)
     With wksContainer
              ......
     End With
End Function

当函数调用被函数内的代码替换时，此代码有效，但是由于它被多次调用，我要求它在函数中而不是复制代码。谢谢你的时间，如果你需要更详细的解释，请告诉我。

Answer 1

First Problem

行 strDir&"\NEXTDAY.xls" 应该是 strDir & "\NEXTDAY.xls"。 & 符号前后应有一个空格。

Second Problem

您已经声明了 wkb7 但在 Set wks7 = wkb.Sheets.Add 中使用了 wkb。我建议使用 Option Explicit

Third Problem

按照@MarkHone 的建议更改行 Set wks7 = wkb.Sheets.Add to

Set wks7 = wkb7.Worksheets.Add

Fourth Problem (Your Actual Problem!)

applyStyle1 是一个需要返回一些东西的函数。如果您不返回任何内容，请改用 Sub。

例如

Sub Sample()
    Dim wkb7 As Excel.Workbook
    Dim wks7 As Excel.Worksheet

    Set wkb7 = Excel.Application.Workbooks.Open(strDir & "\NEXTDAY.xls")
    wkb7.ActiveSheet.Cells.Copy

    Set wks7 = wkb7.Worksheets.Add

    applyStyle1 wks7
End Sub

Sub applyStyle1(wksContainer As Excel.Worksheet)
    With wksContainer

    End With
End Sub