Question

函数A1调用函数A2。在A1中，创建了Excel，并且填充了少量值。在A2函数中，填充了更多值。但它显示为错误，因为未定义工作表。如何将工作表传递给函数。

Answer 1

创建excel对象

set objExcel = CreateObject( "Excel.Application" )

打开excel并创建工作簿对象

Set objWorkbook = objExcel.Workbooks.Open("filePath")

创建工作表对象，然后您可以访问

worksheet = 1 'or your sheet number 
Set objWorksheet = objWorkbook.Worksheets(worksheet)

更新：您可以将对象传递给函数，就像其他参数一样。在这里，我创建一个名为main（）的函数并创建一个工作簿和一个工作表，然后将工作簿对象传递给visibleExcel（）函数。

dim objWorkbook , objExcel
call main()
function main()
    excelPath = "D:\Development\Vbs\test.xlsx"
    set objExcel = CreateObject( "Excel.Application" )
    Set objWorkbook = objExcel.Workbooks.Open(excelPath)
    call visibleExcel(objExcel)
end function

function visibleExcel(obExcel)
    obExcel.Visible = true      
end function

将工作表传递给vbscript中的函数

1 个答案: