主题：复制粘贴问题

我从foxtable做的表格里复制数据，粘贴到公司一个用易语言做的软件中，都贴到一行去了，请问有办法解决吗

 

 

 粘贴这些数据

 

此主题相关图片如下：121.png

 

 粘贴到易语言做的软件的表格中  就这样了

此主题相关图片如下：121111.png

又试了下

 

从EXCEL表中复制到 易语言软件中  没问题，

 

从易语言软件中复制到 foxtable软件中也没问题。

foxtable 支撑这个功能吧，

 

设计个按钮，用代码实现把选中行的数据，直接导出保存到固定路径的EXCEL表格的sheet 1里， EXCEL表格原来的数据不覆盖，而是把新数据加到EXCEL中

再问下，能在不打开EXCEL的情况下，在fotable这边把，EXCEL表中，从几行到几行，几列到几列的内容 加到剪切板中吗

Cut

移动单元格或单元格区域。
该方法有一个参数，用于指定要剪切到的目标区域。如果省略该参数，将把该区域复制到剪贴板。如下面的例子就是将单元格区域B1:C4的数据移动到以单元格B3为左上角的单元格区域：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("B1:C4")
Rg.Cut(Ws.Range("B3"))
App.Visible = True

 

 

我用的这个代码，按照说明，我把B3删除，后报警如下，请问怎么回事？

 

异常来自 HRESULT:0x800A03EC

我现在这样打算，从foxtable导出至EXCEL，复制，再删除这个EXCEL，这样可以正常粘贴至易语言软件中， 这个EXCEL相对于临时文件

 

 

'导出
Dim ex As New Exporter         
ex.SourceTableName = "表A"
ex.FilePath = "d:\TEST.xls"
ex.Format = "Excel"
ex.Export() '

'复制
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("a1:C4")
Rg.copy()

'删除
Kill("D:\test.xls")

 

删除之前的都正常，只是删除这一步提示，提示这个表格被使用，无法删除，这个表格没打开，确有进程，有办法解决吗？

 

文件“D:\TEST.xls”正由另一进程使用，因此该进程无法访问此文件。

 

谢谢，从foxtable 复制到 易语言 ，完美解决 

 

 

 

还有个问题

 

操作后 当复制的数据多时，有个提示窗口     剪切板复制大量信息

 

这个怎么消除？