- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 复制粘贴问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170169)
-- 发布时间：2021/7/14 17:17:00
-- 复制粘贴问题
我从foxtable做的表格里复制数据，粘贴到公司一个用易语言做的软件中，都贴到一行去了，请问有办法解决吗
粘贴这些数据
此主题相关图片如下：121.png
粘贴到易语言做的软件的表格中 就这样了
此主题相关图片如下：121111.png
[此贴子已经被作者于2021/7/15 15:02:25编辑过]
-- 发布时间：2021/7/14 17:23:00
--
这个是易语言做的软件自身的问题。不是foxtable能够解决的
-- 发布时间：2021/7/14 17:56:00
--
又试了下
从EXCEL表中复制到 易语言软件中 没问题，
从易语言软件中复制到 foxtable软件中也没问题。
-- 发布时间：2021/7/15 8:33:00
--
foxtable复制到EXCEL表没有问题，不行就多复制一下了
-- 发布时间：2021/7/15 8:53:00
--
foxtable 支撑这个功能吧，
设计个按钮，用代码实现把选中行的数据，直接导出保存到固定路径的EXCEL表格的sheet 1里， EXCEL表格原来的数据不覆盖，而是把新数据加到EXCEL中
[此贴子已经被作者于2021/7/15 9:00:57编辑过]
-- 发布时间：2021/7/15 9:09:00
--
参考：http://www.foxtable.com/webhelp/topics/1148.htm
比如：
Dim dt As Table = Tables("订单")
Dim Book As New XLS.Book("c:\\test\\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
dim idx as integer = Sheet.rows.count
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For c As Integer = 0 To dt.Cols.Count -1
Sheet(idx, c).Value = dt.rows(r)(c)
Next
Dim Book As New XLS.Book("c:\\test\\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
dim idx as integer = Sheet.rows.count
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For c As Integer = 0 To dt.Cols.Count -1
Sheet(idx, c).Value = dt.rows(r)(c)
Next
idx = idx + 1
Next
Next
Book.Save("c:\\test\\test.xls")
-- 发布时间：2021/7/15 9:44:00
--
再问下，能在不打开EXCEL的情况下，在fotable这边把，EXCEL表中，从几行到几行，几列到几列的内容 加到剪切板中吗
-- 发布时间：2021/7/15 9:47:00
--
这个要另外使用vba操作，参考：http://www.foxtable.com/webhelp/topics/2121.htm
-- 发布时间：2021/7/15 10:53:00
--
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
-- 发布时间：2021/7/15 10:57:00
--
我测试没有问题。有存在这个文件吗"D:\\Report.xls"？另外要处理的文件不能处于打开状态