错误:指定的转换无效 [英] 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屋!
查看全文