excel - 将 Excel 电子表格数据导入另一个包含 VBA 的 Excel 电子表格

Question

我们需要编写一个Excel电子表格，其中包含VBA代码；该代码读取第一个工作表中的数据并对其执行操作。

用户将收到包含数据但不包含 VBA 代码的电子表格。我们需要能够将包含数据的电子表格中的数据自动导入到包含VBA代码的电子表格中。包含数据的工作表与包含数据的电子表格的工作表具有相同的列格式和数据类型。

理想情况下，您将打开包含 VBA 代码的电子表格，看到一个 UI，允许用户导航到包含数据的电子表格，单击“确定”即可导入数据。

你会怎样做呢？必须在 Excel 电子表格中使用 VBA 来完成。

非常感谢。

Answer 1

这应该可以帮助您开始:在您自己的 Excel 工作簿中使用 VBA，提示用户输入数据文件的文件名，然后只需将该固定范围复制到目标工作簿中(可以是与启用宏的工作簿相同的工作簿，也可以是第三个工作簿)。下面是一个简单的 vba 示例，说明了其工作原理:

' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook

' make weak assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook

' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)

Set customerWorkbook = Application.Workbooks.Open(customerFilename)

' assume range is A1 - C10 in sheet1
' copy data from customer to target workbook
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)

targetSheet.Range("A1", "C10").Value = sourceSheet.Range("A1", "C10").Value

' Close customer workbook
customerWorkbook.Close