启用Option Strict时出现Excel列错误

Question

以下代码运行良好。

选项严格关闭导入Microsoft。办公室。互操作公共类表单1Private Sub Form1_Load（sender As Object，e As System.EventArgs）处理Me.LoadDim xlApp作为Excel。应用程序=无xlApp=CType（CreateObject（“Excel.Application”），Excel。应用程序）xl应用程序。WindowState=Excel。XlWindowState.xl最小化尺寸wb1为Excel。工作簿wb1=xl应用程序。工作簿。打开（“C:\MyFolder\Book1.xlsx”）带有CType（wb1.表（1），Excel。工作表）列（4）。切割（）列（2）。插入（）以结尾结束Sub结束类

当我启用Option Strict时，就会发生错误。提前谢谢。祝您有个美好的一天。

Answer 1

因为您正在使用Office-Interop，所以所有对象的类型都是对象，所以您需要进行以下操作：

尺寸工作表=CType（wb1.Sheets（1），Excel）。工作表）Dim column4Range=CType（工作表.Columns（4），Excel）。范围）Dim column2Range=C类型（工作表.列（2），Excel）。范围）column4范围。切割（）第2列范围。插入（）

（您注意到我更喜欢变量，而不是与声明）