以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  表格不能插入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185861)

--  作者：lihe60 --  发布时间：2023/3/21 19:34:00 --  表格不能插入 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\abc.xls") Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") \'指定要复制的工作表 Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("excel") Ws1.UsedRange.Copy ws3.Cells(30, 7).Select ws3.paste app.Visible = True 有下面的提示 --------------------------- 版本:2022.8.18.1 --------------------------- 代码执行出错，错误信息： System.Runtime.InteropServices.COMException (0x800A03EC): 类 Range 的 Select 方法无效    在 Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn)    在 Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn)    在 UserCode.Test() --------------------------- 确定    --------------------------- [此贴子已经被作者于2023/3/21 19:40:22编辑过]

--  作者：lihe60 --  发布时间：2023/3/21 19:41:00 --   上传电子  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:abc.xls 表

--  作者：有点蓝 --  发布时间：2023/3/21 20:03:00 --   http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97286&replyID=670470&skin=1