因为更新程式码，用新文章比较好处理，如果伤眼，请见谅。 根据N大与S大的指导，我将程式码更新如下。但是Excel还是不吃。 应该是有完成复制，但是没有完成贴上。 Private Sub CommandButton2_Click() '=======================找寻绝对路径与读档=========== Dim dpath As String Dim Fname As String Dim index_row As Integer Dim index_column As Integer Dim x As Integer Dim fileA As Workbook dpath = ThisWorkbook.Path MsgBox ThisWorkbook.Path Fname = Range("B1").Value Workbooks.Open Filename:=dpath & "\" & Fname & ".xlsx" Set fileA = Workbooks(Fname & ".xlsx") Application.Goto reference:=ActiveSheet.Range("A1") '储存格起始座标指定 ActiveSheet.Range("A1").End(xlDown).Select '最后一笔资料定位 index_row = Selection.Row '最后一笔资料位置 index_column = Selection.Column '最后一笔资料位置 ThisWorkbook.Activate '回到A档案 Range("B2").Copy With fileA '进到B档案 Cells(index_row + 1, index_column).PasteSpecial End With '=================================================== End Sub ※ 引述《yimean (温柔杀手)》之铭言： : 软件:Excel : 版本:2013 : 小弟目前遇到两个问题。 : 1.我要在A档案执行VBA把A档案的某特定储存格写入B档案特定储存格中。 : 2.我要在A档案执行VBA把B档案的某特定储存格读入A档案特定储存格中。 : 举例: : A档案worksheet1 : A B C : 1 我 是 谁 : 2 王 大 头 : 3 知 道 吗 : B档案 : A B C D E F G H I : 1 我 是 谁 王 大 头 知 道 吗 : 取得档案路径我已经会了，可是我不知道应该如何写入档案。 : 我的核心问题是，我分不清楚此时我在A档案还是在B档案。 : 要如何在两个档案间切换。 : 下方是我的片段程式码，烦请些助指导。 : Dim dpath As String : Dim Fname As String : Dim index_row As Integer : Dim index_column As Integer : Dim x As Integer : dpath = ThisWorkbook.Path : MsgBox ThisWorkbook.Path : Fname = Range("B1").Value : Workbooks.Open Filename:=dpath & "\" & Fname & ".xlsx" : Application.Goto reference:=ActiveSheet.Range("A1") : ActiveSheet.Range("A1").End(xlDown).Select '当我做这个动作时我应该是在B档案了 : '那我如何切回A档案把A档案的资料复制起来贴到B档案。 : 以上烦请协助，感谢。