在VBA中，可以使用Workbook和Worksheet对象来操作工作簿和工作表。可以使用Workbooks.Open方法打开另一个工作簿，然后使用Range对象复制数据。

以下是一个示例代码，演示如何从另一个工作簿复制数据，而不是硬编码文件路径：

Sub CopyDataFromAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim destinationWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("C:\路径\源工作簿.xlsx")
    
    ' 打开目标工作簿（当前活动的工作簿）
    Set destinationWorkbook = ActiveWorkbook
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Sheets("源工作表")
    Set destinationWorksheet = destinationWorkbook.Sheets("目标工作表")
    
    ' 复制源工作表的数据到目标工作表
    sourceWorksheet.Range("A1:C10").Copy destinationWorksheet.Range("A1")
    
    ' 关闭源工作簿，保存更改
    sourceWorkbook.Close SaveChanges:=False
End Sub

请根据实际情况修改以下部分：

• "C:\路径\源工作簿.xlsx"：将路径更改为源工作簿的实际路径。
• "源工作表"和"目标工作表"：将工作表名称更改为源工作簿和目标工作簿中的实际工作表名称。
• "A1:C10"和"A1"：将复制的范围更改为适合您的实际需求的范围。

运行这个代码，将会从源工作簿的指定范围复制数据到目标工作簿的指定位置。