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

从一个电子表格中提取数据以填充另一个电子表格上的数据框

1 个答案: