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

2 回答

• -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
  

  回复于 2024-04-25T16:39:32+08:00
• 26

  可以通过工作簿方法或外部参考或通过数据导入工具将数据从另一个Excel中提取到Excel中 .

  如果您想要阅读或甚至想要更新另一个Excel工作簿，可以使用这些方法 . 我们可能不仅仅依赖于VBA .

  For more info on these techniques, please click here to refer the article

  回复于 2024-04-25T16:39:32+08:00