请问 Call delrow （） 怎么传参呀

Question

Private Sub Command1_Click()
MsgBox "hhhe"
 Call delrow
End Sub
Private Sub delrow(excelworkbook As Excel.Workbook)   Dim excelApp As New Excel.Application
   
   Dim excelWorksheet As Excel.Worksheet
   Set excelWorksheet = excelworkbook.Sheets(1)
   'excelWorksheet.Cells(2, 3) = "宏通"      '写入数据
   'excelWorksheet.Cells(3, 4) = "zyg365"    '写入数据
   'excelApp.Visible = True        '显示excel界面，用于调试
   'excelWorkBook.PrintPreview     '打印预览
   'excelWorkBook.PrintOut         '打印输出
   'excelWorkBook.Saved = True
   'excelWorkBook.Close           '关闭工作薄
   'excelApp.Quit                 '退出excelDim x As Integer
Dim y As Integer

Answer 1

dim aaa As Excel.WorkbookCall delrow(aaa)

Answer 2

提示BYREF参数类型不符Private Sub Command1_Click()
MsgBox "hhhe"
 Call delrow(aaa)
End Sub
Private Sub delrow(excelworkbook As Excel.Workbook)   Dim excelApp As New Excel.Application
   
   Dim excelWorksheet As Excel.Worksheet
   Set excelWorksheet = excelworkbook.Sheets(1)
Set aaa = excelWorksheet.Range("a:a,ab:af,at:av,cq:db")
aaa.DeleteEnd Sub

Answer 3

你把dim aaa As Excel.Workbook
放哪里了？Private Sub Command1_Click()
dim aaa As Excel.Workbook
 Call delrow(aaa)
End Sub
Private Sub delrow(excelworkbook As Excel.Workbook)  Dim excelApp As New Excel.Application
    
  Dim excelWorksheet As Excel.Worksheet
  Set excelWorksheet = excelworkbook.Sheets(1)
Set excelworkbook = excelWorksheet.Range("a:a,ab:af,at:av,cq:db")
excelworkbook .Delete

Answer 4

这么改还是不行Private Sub Command1_Click()
MsgBox "hhhe"
 Call delrow(ThisWorkbook)
End SubPrivate Sub delrow(excelworkbook As Excel.Workbook)  Dim excelApp As New Excel.Application
    
  Dim excelWorksheet As Excel.Worksheet
  Set excelWorksheet = excelworkbook.Sheets(1)
Set aaa = excelWorksheet.Range("a:a,ab:af,at:av,cq:db")
aaa.DeleteEnd Sub

Answer 5

你把dim aaa As Excel.Workbook
放哪里了？

Answer 6

可能是申明的原因Declare Function WritePrivateProfileString& Lib _
"kernel32" Alias "WritePrivateProfileStringA" _
(ByVal AppName$, ByVal KeyName$, ByVal _
keydefault$, ByVal FileName$)