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

我主要在寻找关于如何启动项目的指导。从一个电子表格中提取数据以填充另一个电子表格中的数据框

Sprdsht 1设置为一个表格，其中包含该位置的特定数据和包含参数的列（即A：K =名称，排放数据，型号＃等）的行。 Sprdsht 2被构造成一个带有多个框的表单。我试图从sprdsht 1导入数据到sprdsht 2，并想知道是否可以一次只导入一行数据，以使用宏或VBA完成表单（即F1：F11）。

如果是这样，代码将如何显示？

另外，是使用excel来处理这个函数的最佳方式还是另一个程序（即Access）更好地工作？

来源

2013-03-06 David Van der Vieren

是的，它是可能的，但你尝试过这么远吗？例如，您可以使用数据查询和ADO记录集一次读取一条记录中的数据...... – 2013-03-07 09:32:09

这里有许多方法中的一个例子开始：

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

来源

2013-03-07 16:29:09

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

回答

相关问题