vba复制一个非当前工作簿的编码

### 回答1：
如果您想在VBA中复制另一个工作簿中的编码，您可以使用以下代码：

Sub CopyFromAnotherWorkbook()
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    
    Set wbSource = Workbooks.Open("C:\path\to\sourceWorkbook.xlsm")
    Set wsSource = wbSource.Sheets("Sheet1")
    
    wsSource.Range("A1:D10").Copy
    
    ThisWorkbook.Activate
    Sheets("Sheet1").Range("A1").PasteSpecial
    
    wbSource.Close SaveChanges:=False
End Sub

这段代码会打开名为"sourceWorkbook.xlsm"的工作簿，并从中复制"Sheet1"工作表中的A1到D10的单元格，然后将它粘贴到当前工作簿中"Sheet1"工作表的A1单元格中。

### 回答2：
要复制一个非当前工作簿的VBA编码，可以按照以下步骤进行操作：

1. 打开当前的工作簿和要复制编码的目标工作簿。

2. 在当前工作簿的VBA编辑器中，选中要复制的VBA编码。可以通过按住Ctrl键并单击每个代码模块来选择多个模块。

3. 右键点击选中的代码模块，并选择“导出文件”。选择一个输出文件夹和文件名，将代码导出为一个.bas文件。

4. 打开目标工作簿的VBA编辑器。

5. 在目标工作簿的VBA编辑器中，右键点击左侧的项目浏览器窗口，并选择“导入文件”。选择刚刚导出的.bas文件。

6. 现在，目标工作簿中将会出现一个新的代码模块，其中包含了从当前工作簿复制来的编码。

7. 可以根据需要对复制的编码进行修改或调试。

通过以上步骤，可以将一个非当前工作簿的VBA编码复制到当前工作簿中的一个新代码模块中。

### 回答3：
在VBA中，复制一个非当前工作簿的编码可以通过以下几个步骤来实现：

1. 首先，我们需要声明和初始化一个`Workbook`对象，用于引用非当前工作簿。例如，假设我们要复制的工作簿名为"SourceWorkbook.xlsx"，我们可以使用如下代码：

Dim sourceWorkbook As Workbook
Set sourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")

请确保将路径修改为源工作簿的实际路径。

2. 然后，我们需要选择并复制源工作簿中的编码。假设我们要复制的编码位于"Sheet1"工作表的"A1:B10"范围内，我们可以使用如下代码：

sourceWorkbook.Worksheets("Sheet1").Range("A1:B10").Copy

请根据实际需求修改工作表名称和范围。

3. 最后，我们可以将编码粘贴到当前工作簿中的特定位置。假设我们要将编码粘贴到当前工作簿的"Sheet2"工作表的"C1"单元格中，我们可以使用如下代码：

ThisWorkbook.Worksheets("Sheet2").Range("C1").PasteSpecial xlPasteValues

请根据实际需求修改工作表名称和单元格位置。

完整的代码如下所示：

Sub CopyEncodingFromAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Set sourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")
    
    sourceWorkbook.Worksheets("Sheet1").Range("A1:B10").Copy
    
    ThisWorkbook.Worksheets("Sheet2").Range("C1").PasteSpecial xlPasteValues
    
    sourceWorkbook.Close SaveChanges:=False
End Sub

当代码运行时，它将打开源工作簿，复制指定的编码，将其粘贴到当前工作簿的指定位置，然后关闭源工作簿。