错误:指定的转换无效 [英] Error: Specified Cast is Not Valid

问题描述

在VB.net中的工作簿之间复制工作表时，出现此错误:
指定的演员表无效

我插入了一个消息框MessageBox.Show(wshTest.Range("A8").Value.ToString)，以验证要复制到另一个工作簿的工作表是否有效.它是.我不知所措.

When copying worksheets between workbooks in VB.net, I get this error:
Specified Cast is Not Valid

I inserted a message box MessageBox.Show(wshTest.Range("A8").Value.ToString) to verify that the worksheet being copied to the other workbook was valid. It was. I''m at my wits end.

wshTest.Copy(wbkDest.Sheets())

Private Sub btnGenerateReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerateReport.Click
        Dim dpl As New List(Of DatasetPair)
        'Try
        Me.Cursor = Cursors.WaitCursor
        Dim intSheetCount As Integer = 0
        For i As Integer = 0 To lvMatchedDvid.Items.Count - 1
            Dim dp As New DatasetPair
            dp.DataVersionIdOne = lvMatchedDvid.Items(i).Text.ToString
            dp.DataVersionIdTwo = lvMatchedDvid.Items(i).SubItems(1).Text.ToString
            intSheetCount += 1
            dp.SheetId = intSheetCount
            dpl.Add(dp)
        Next

        Dim wb As Excel.Workbook = Utilities.CreateWorkbook()
        Dim strFilePath As String = wb.Path.ToString & "\" & wb.Name.ToString

        For Each dp As DatasetPair In dpl
            Dim excelApp As New Excel.Application
            Dim ws As New Excel.Worksheet
            ws = GenerateWorksheet(dp)

            Dim strSourceFilePath As String
            strSourceFilePath = wb.Path.ToString & "\" & wb.Name.ToString
            Dim wbkDest As Excel.Workbook = excelApp.Workbooks.Open(strFilePath)
            Dim wshTest As Excel.Worksheet = DirectCast(ws, Excel.Worksheet)
            Dim wbkSource As Excel.Workbook = excelApp.Workbooks.Open(strSourceFilePath)
            MessageBox.Show(wshTest.Range("A8").Value.ToString)            
            wshTest.Copy(wbkDest.Sheets())            
        Next

推荐答案

我的猜测是您必须使用工作表而不是工作表.这是因为一个工作表可以不仅仅是一个工作表.在大多数情况下，这并不重要，但在这里可能如此.

试试这个:

My guess would be that you must use Worksheets instead of Sheets. This is because a Sheet can be more than only a Worksheet. In most cases this doesn''t matter but here it might.

Try this:

wshTest.Copy(wbkDest.Worksheets())    

祝你好运！

Good luck!

这篇关于错误:指定的转换无效的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！