我需要在我的Sheet(1)中包含一个Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
。
我能够打开并写入单元格。
$excel = New-Object -ComObject Excel.Application
$workbook = $excel.Workbooks.Add()
$worksheet = $workbook.WorkSheets.item(1)
$worksheet.range("c1","g6").value = "str"
...
$workbook.SaveAs($xlFlie, 50)
$Excel.Application.Quit()
如何将VBA代码放在工作表中(而不是在VBA模块中)?
我尝试了以下方法:
$xlmodule = $workbook.VBProject.VBComponents.Add()
$xlmodule.CodeModule.AddFromString($code)
我收到了这个错误:
请注意:本文已经翻译为简体中文。无法在 Null 表达式中调用方法。
在位置 .\Build-ADGrpsMembers2Excel.ps1:273 : 5
+ $xlmodule = $workbook.VBProject.VBComponents.Add(1)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation : (:) [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull