Excel VBA类型不匹配求助：如何将选中工作表传入指定代码行

错误原因 #

你执行Set ws = ThisWorkbook.Sheets(SheetArray())时出现类型不匹配，核心原因是：

• SheetArray()是字符串数组，ThisWorkbook.Sheets(数组)返回的是包含多个工作表的Sheets集合对象
• 但ws被定义为单个Worksheet对象，集合无法直接赋值给单个工作表变量，因此触发类型不匹配错误

解决方案 #

因为你可能选中多个工作表，需要循环遍历SheetArray中的每个工作表名称，逐个处理。同时要增加空数组判断，避免用户未选择工作表时出错。

修改后的完整代码 #

Dim OutApp As Object
Dim OutMail As Object
Dim table As Range
Dim pic As Picture
Dim ws As Worksheet
Dim wordDoc

Dim i As Long, c As Long
Dim SheetArray() As String

' 获取选中的工作表名称数组
With ActiveSheet.ListBoxSH
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            ReDim Preserve SheetArray(c)
            SheetArray(c) = .List(i)
            c = c + 1
        End If
    Next i
End With

' 判断是否选中了工作表
If c = 0 Then
    MsgBox "请至少选择一个工作表", vbExclamation
    Exit Sub
End If

' 初始化Outlook对象
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

' 循环处理每个选中的工作表
For i = LBound(SheetArray) To UBound(SheetArray)
    ' 获取单个工作表对象
    Set ws = ThisWorkbook.Sheets(SheetArray(i))
    
    ' 复制指定区域并转为图片
    Set table = ws.Range("A1:O37")
    table.Copy
    Set pic = ws.Pictures.Paste
    pic.Width = 1000
    pic.Height = 1000
    pic.Cut
    
    ' 可添加将图片粘贴到邮件的逻辑，示例：
    ' OutMail.Display
    ' OutMail.GetInspector.WordEditor.Range.Paste
    
    ' 清理图片对象
    Set pic = Nothing
Next i

' 清理Outlook对象
Set OutMail = Nothing
Set OutApp = Nothing

关键改动说明 #

• 增加空数组判断：当c=0时提示用户选择工作表，避免后续代码无意义执行
• 循环遍历数组：通过For i = LBound(SheetArray) To UBound(SheetArray)逐个取出工作表名称，赋值给单个Worksheet变量ws，彻底解决类型不匹配问题
• 调整代码顺序：将Outlook初始化放到数组获取之后，避免未选工作表时创建无用对象
• 添加对象清理：手动释放对象，避免内存泄漏

内容的提问来源于stack exchange，提问作者Destini B