首页 › 实战技术 › excel 一键导入其他表格数据

nnsea 发表于 2023-11-2 08:48:03

excel 一键导入其他表格数据

Sub ImportDataWithSelection()
    Dim SourceWorkbook As Workbook
    Dim TargetWorkbook As Workbook
    Dim SourceRange As Range
    Dim TargetRange As Range
    Dim filePath As String
      
    ' 弹窗选择工作簿
    filePath = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xlsx", Title:="选择工作簿")
      
    If filePath <> "" Then
      ' 打开源工作簿
      Set SourceWorkbook = Workbooks.Open(filePath)
      Set TargetWorkbook = ThisWorkbook
         
      ' 弹窗选择导入区域
      Set SourceRange = Application.InputBox(Prompt:="选择导入区域", Type:=8)
         
      If Not SourceRange Is Nothing Then
            ' 弹窗选择目标区域放置位置
            Set TargetRange = Application.InputBox(Prompt:="选择目标放置区域", Type:=8)
            
            If Not TargetRange Is Nothing Then
                ' 复制选定区域的数据
                SourceRange.Copy Destination:=TargetRange
            Else
                MsgBox "请选择一个有效的目标区域"
            End If
      Else
            MsgBox "请选择一个有效的导入区域"
      End If
         
      ' 关闭源工作簿，不保存更改
      SourceWorkbook.Close SaveChanges:=False
    End If
End Sub

查看完整版本: excel 一键导入其他表格数据