主题：当从EXECL中一次性地复制多列数据到当前表中的时候

要通过按钮粘贴,这样就可以了:  如foxtable的某表第五列是隐藏的........

先在excel选择要复制的内容复制一下, 再选择fox中该表的起始要粘贴的单元格,点击按钮(代码如下):

Tables("outtable").Cols("第五列").Visible = true
Application.DoEvents
tables("outtable").focus
Syscmd.Edit.Paste()
Application.DoEvents
Tables("outtable").Cols("第五列").Visible = false

  

此主题相关图片如下：zt-.gif

或许，你可以把隐藏的列移到最后一列的位置.........

 

这样最好了,有个选择的地方～  那就更强了····

但是还有个问题： 就是当excel本身也有隐藏列时，剪贴板上也就包含了excel其中的隐藏列数据了（假使操作人也不会使用excel的只复制显示列），那么即使foxtable有个这样的选项，也应该给出个提示：请确认复制的内容不包含excel等的隐藏列！   无论如果这样就比较复杂了。。。

这个问题好解决： 可以恢复原移动的隐藏列回到原来的位置，或者粘贴后执行一下表视图代码即可。

C版的可以,只是都从第一列开始粘贴········

 

老大的也有问题，看下图：

 
此主题相关图片如下：未命名.jpg

您的代码我测试后，直接的结果是17楼的第一个图，经过撤销和反撤销（即恢复）后，就得到第二个图。。。。。

所以，在你代码后面加上：

Syscmd.Edit.Undo()
Syscmd.Edit.Redo()
for d as integer = 0 to currenttable.count-1
    currenttable(d,0) = currenttable(d,0).trim(" ")
next

后，才能得到正确的结果： 

此主题相关图片如下：未命名0.jpg

上面的 for......next 是从第一列开始粘贴的，要从任何单元格开始粘贴就要改为：

For c1 As Integer = t.toprow to t.Cols.Count - 1       ‘或t.bottomrow －1
    currenttable(c1,t.LeftCol ) = currenttable(c1,t.LeftCol ).trim(" ")
next

贴出代码 并 提供你的文件来测试一下看······