Question

如何将未打开的Excel文件的内容复制到当前工作表中

怎么编?用什么方法？举个例子~ 用vba编写一个控件bottun？一按bottun 他就从未打开的excel文件内复制p:p列到当前工作表的P:P列? 关闭时把当前工作表的P：P列清空 遇到了这问题该怎么解决呢？

Answer 1

 方法：用EXCEL工作表的移动/复制功能。

1、打开两个文档，如Book1和“整新入仓分析”。我们需要将整新里的表格移动/复制到Book1中。

2、进入“整新表”，在需要移动/复制的工作表上右键--移动/复制工作表。

3、进入”移动/复制工作表“后，点击”工作簿“右侧的三角选择Book1，将”建立副本“勾选，确定。

4、这时，工作表就被复制到Book1表格中了。

Answer 2

假设你的“未打开的Excel文件”的工作簿名是“数据库.xls”，数据在其中的Sheet1当中。
在“另外一个工作簿里”的工作表中的a1输入
=INDEX([数据库.xls]Sheet1!B$2:C$100,MATCH(B2,[数据库.xls]Sheet1!A$2:A$100,0),MATCH(A2,[数据库.xls]Sheet1!B$1:C$1,0))回车。

Answer 3

用office 2010可以非常容易的实现。在数据下边有一个连接，打开后选择你要连接的文件，它就会自动粘贴到现在这张表。而且还可以设成打开后自动刷新的，非常好用。

Answer 4

'按钮代码

Private Sub CommandButton1_Click()
Dim nPath$, nApp
nPath = "e:\mydoc\text.xlsx" '查询文件路径，自己更新
Set nApp = GetObject(nPath)
nApp.Sheets(1).Range("p:p").Copy ThisWorkbook.Sheets(1).Range("p1")
nApp.Close
Set nApp = Nothing
End Sub

'下面代码放到workbook 中
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Range("p:p") = ""
ThisWorkbook.Save
End Sub

Answer 5

直接拖进去即可。