將單元格從一個工作簿（非特定）復制到另一個（特定）

Question

好的，所以我正在嘗試為企業（員工使用情況）創建訂單日志。

我有一個表格，其中多個用戶可以訪問/輸入所有需要的信息。 它打印到Excel電子表格中，供一個人打開並下訂單。 有時用戶可能想從上一年的日志（到目前為止有4條）中復制一條訂單行，因此我試圖將其合並到當前日志中。

我在引用用戶已打開的另一個工作簿並將信息復制到在當前日志中打開的用戶表單時遇到麻煩。 我有這個：

Private Sub cmdCopy_Click()

Dim rowRef As Integer, colItem As Integer, colSup As Integer, colCatNum As Integer, colQty As Integer, colUnit As Integer, colCat As Integer

'stores row of selected order from old order log successfully
rowRef = ActiveCell.row

'I'm trying to find which column has which headers as the logs aren't consistent
For x = 2 To 9
    If ActiveWorkbook.Sheet1.Cells(2, x).Text = "Item" Then
        colItem = x
    ElseIf ActiveWorkbook.Sheet1.Cells(2, x).Text = "Supplier" Then
        colSup = x
    ElseIf ActiveWorkbook.Sheet1.Cells(2, x).Text = "Catalogue #" Then
        colCatNum = x
    ElseIf ActiveWorkbook.Sheet1.Cells(2, x).Text = "Qty" Then
        colQty = x
    ElseIf ActiveWorkbook.Sheet1.Cells(2, x).Text = "Unit" Then
        colUnit = x
    ElseIf ActiveWorkbook.Sheet1.Cells(2, x).Text = "Category" Then
        colCat = x
    End If
Next x

'fills information into userform
txtItem.Text = Sheet1.Cells(rowRef, colItem).Text
txtSup.Text = Sheet1.Cells(rowRef, colSup).Value
txtCatNum.Text = Sheet1.Cells(rowRef, colCatNum).Value
txtQty.Text = Sheet1.Cells(rowRef, colQty).Value
cboUnit.Text = Sheet1.Cells(rowRef, colUnit).Value
cboCat.Text = Sheet1.Cells(rowRef, colCat).Value

End Sub

所以我想發生的是：

1. 用戶打開當前訂單日志
2. 用戶按下ActiveX按鈕打開frmOrderLog
3. a）用戶手動輸入信息
   b）用戶從當年的日志中復制信息
   c）用戶最小化窗口，打開上一年的日志，選擇一個單元格，然后在用戶窗體中按“復制訂單”按鈕，然后將上一年訂單日志中相應單元格中的信息復制到表格中相應的文本框/組合框中在當年的訂單日志中

如果有任何澄清要求，請告知我。 很抱歉，如果這已經在論壇中了，但是使用搜索字詞我找不到有幫助的答案。

Answer 1

對我來說似乎是一個簡單的語法問題：

您要更改：

If ActiveWorkbook.Sheet1.Cells(2, x).Text = "Item" Then

至：

If ActiveWorkbook.Sheets(1).Cells(2, x).Text = "Item" Then

Sheet1語法對我不起作用。

很顯然，無論其他Sheet1發生在哪里，您都希望進行相同的更改。