230问答网 > Excel 如何将未打开的Excel文件的内容复制到当前指定的工作表中

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

2025-03-28 15:16:42

推荐回答（1个）

回答1：

'按钮代码

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