Vba打开其他路径下的excel复制里面内容到本excel

以下是一个基本的VBA代码，用于打开另一个路径下的Excel文件，复制其中的内容并粘贴到当前打开的Excel文件中：

Sub CopyFromAnotherWorkbook()

Dim sourceWorkbook As Workbook
Dim targetWorkbook As Workbook
Dim sourceWorksheet As Worksheet
Dim targetWorksheet As Worksheet

'打开源工作簿
Set sourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")

'打开目标工作簿
Set targetWorkbook = ThisWorkbook

'指定源工作表和目标工作表
Set sourceWorksheet = sourceWorkbook.Sheets("Sheet1")
Set targetWorksheet = targetWorkbook.Sheets("Sheet1")

'复制数据
sourceWorksheet.Range("A1:D10").Copy

'粘贴到目标工作表中
targetWorksheet.Range("A1").PasteSpecial xlPasteValues

'关闭源工作簿
sourceWorkbook.Close

End Sub

请注意，您需要将代码中的文件路径替换为实际的路径。此外，您还可以更改源工作表中要复制的范围以及粘贴到目标工作表的位置。

相关问题

Vba复制其他路径下的excel表内容到这个表中

以下是实现此操作的VBA代码示例：

Sub CopyDataFromOtherExcel()
' 打开另一个Excel文件
Dim otherExcel As Workbook
Set otherExcel = Workbooks.Open("C:\其他文件的路径\其他文件名.xlsx")

' 选择其他Excel文件中的某个工作表
Dim otherSheet As Worksheet
Set otherSheet = otherExcel.Sheets("Sheet1")

' 选择本Excel文件中的某个工作表
Dim thisSheet As Worksheet
Set thisSheet = ThisWorkbook.Sheets("Sheet2")

' 复制其他Excel文件中的工作表内容到本Excel文件中的工作表中
otherSheet.UsedRange.Copy thisSheet.Range("A1")

' 关闭其他Excel文件
otherExcel.Close SaveChanges:=False
End Sub

在这个示例中，我们首先使用Workbooks.Open()方法打开了位于其他路径下的Excel文件。然后我们选择该文件中的一个工作表，以及我们想要将数据复制到的本Excel文件中的工作表。最后，我们使用Copy方法将其他工作表中的数据复制到本Excel文件中的工作表中，使用Range属性指定数据放置的位置。我们还使用了Close方法关闭了其他Excel文件。

请注意，你需要将代码中的路径替换为实际的路径。如果你需要复制多个工作表，只需重复运行相应代码即可。

vba打开任意路径下的excel表格文件，将excel数据导出到access，并保存到相同的目录

以下是VBA代码实现：

Sub ExportExcelToAccess()
    '定义变量
    Dim strFilePath As String
    Dim strFileName As String
    Dim strAccessDB As String
    Dim objAccess As Object
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Dim strSQL As String
    
    '选择Excel文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "请选择Excel文件"
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xls;*.xlsx"
        .AllowMultiSelect = False
        If .Show = -1 Then
            strFilePath = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
            strFileName = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\") + 1)
        Else
            Exit Sub
        End If
    End With
    
    '连接Access数据库
    strAccessDB = strFilePath & "Database.accdb"
    Set objAccess = CreateObject("Access.Application")
    objAccess.Visible = False
    objAccess.OpenCurrentDatabase strAccessDB
    
    '打开Excel文件
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = False
    Set objWorkbook = objExcel.Workbooks.Open(strFilePath & strFileName)
    
    '导出数据到Access
    For Each objWorksheet In objWorkbook.Worksheets
        strSQL = "INSERT INTO " & objWorksheet.Name & " SELECT * FROM [Excel 12.0 Xml;HDR=YES;DATABASE=" & strFilePath & strFileName & "]." & objWorksheet.Name & "$"
        objAccess.CurrentDb.Execute strSQL
    Next
    
    '关闭Excel和Access
    objWorkbook.Close
    objExcel.Quit
    objAccess.Quit
    
    '释放对象
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
    Set objAccess = Nothing
End Sub

使用方法：

1. 将上述代码复制到VBA编辑器中；

2. 修改以下代码中的数据库名称和表格名称：

strAccessDB = strFilePath & "Database.accdb"
strSQL = "INSERT INTO " & objWorksheet.Name & " SELECT * FROM [Excel 12.0 Xml;HDR=YES;DATABASE=" & strFilePath & strFileName & "]." & objWorksheet.Name & "$"

3. 运行代码，在弹出的文件选择对话框中选择要导出的Excel文件；

4. 程序将把Excel文件的所有工作表数据导入到同名的Access表中，并保存在与Excel文件相同的目录下的Database.accdb中。