從一個電子表格中提取數據以填充另一個電子表格中的數據框

Question

我主要在尋找關於如何啓動項目的指導。

Sprdsht 1設置爲一個表格，其中包含該位置的特定數據和包含參數的列（即A：K =名稱，排放數據，型號＃等）的行。 Sprdsht 2被構造成一個帶有多個框的表單。我試圖從sprdsht 1導入數據到sprdsht 2，並想知道是否可以一次只導入一行數據，以使用宏或VBA完成表單（即F1：F11）。

如果是這樣，代碼將如何顯示？

另外，是使用excel來處理這個函數的最佳方式還是另一個程序（即Access）更好地工作？

Answer 1

這裏有許多方法中的一個例子開始：

Sub CopyInfo() 
    Dim wb1 As Workbook 
    Dim wb2 As Workbook 
    Dim sheet1 As Worksheet 
    Dim sheet2 As Worksheet 
    Dim rng1 As Range 
    Dim rng2 As Range 
    Set wb1 = Application.Workbooks("FirstWorkbook.xlsx") 
    Set wb2 = Application.Workbooks("OtherWorkbook.xlsx") 
    Set sheet1 = wb1.Sheets(1) 
    Set sheet2 = wb2.Sheets(1) 
    Set rng1 = sheet1.Range("A2:K2", Range("A2:K2").End(xlDown)) 
    Set rng2 = sheet2.Range("F1:F11") 
    For i = 1 To rng1.Rows.Count 
     For j = 1 To 11 
      rng2(j, 1).Value = rng1(i, j).Value 
     Next 
     Call FunctionThatSubmitsTheFormInSheet2 
    Next 
End Sub