Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将选定范围从Excel粘贴到Word文档_Excel_Vb.net_Vsto - Fatal编程技术网

将选定范围从Excel粘贴到Word文档

将选定范围从Excel粘贴到Word文档,excel,vb.net,vsto,Excel,Vb.net,Vsto,我正在将我用Excel VBA编写的代码转换为VS 2017上的vb.NET。当我运行代码时,我得到了错误 此方法或属性不可用,因为剪贴板不可用 空或无效 当应用程序运行时,当它尝试将所选范围从Excel粘贴到Word文档时,会显示此消息。在代码运行时,我将复制的工作表保持可见,并且可以看到它选择了正确的范围,但实际上没有复制它 在vb.NET中复制一系列单元格的正确方法是什么 以下是发生错误的代码部分: excelApp = New Excel.Applicat

我正在将我用Excel VBA编写的代码转换为VS 2017上的vb.NET。当我运行代码时,我得到了错误

此方法或属性不可用,因为剪贴板不可用 空或无效

当应用程序运行时,当它尝试将所选范围从Excel粘贴到Word文档时,会显示此消息。在代码运行时,我将复制的工作表保持可见,并且可以看到它选择了正确的范围,但实际上没有复制它

在vb.NET中复制一系列单元格的正确方法是什么

以下是发生错误的代码部分:

                excelApp = New Excel.Application
                excelWB = excelApp.Workbooks.Open(SurveyFormLoc)
                excelApp.Visible = True
                With excelApp

                    .Sheets("Site Details").Select

                    .Range("B2:I11").Copy()

                End With

                excelWB.Save()

                wdApp = CreateObject("Word.Application")
                wdApp.Visible = False
                wdDoc = wdApp.Documents.Open(DesignReportLoc)

                With wdDoc

                    .Application.Selection.Find.Text = "INSERT FROM SURVEY FORM"        
                    .Application.Selection.Find.Execute()
                    .Application.Selection.ParagraphFormat.Alignment = 0

                End With

                With wdApp

                    .Selection.PasteSpecial(Link:=True, DataType:=0, Placement:=0, DisplayAsIcon:=False) 'Asked question to get this 
                    .Selection.TypeParagraph()

                End With
问题可能是excelWB.Save重置了副本选择?同样的事情也发生在用户界面上