在本文中，我们将创建一个宏以从封闭的工作簿中复制数据。

我们有包含员工数据的“ DataFile”，其中包括姓名，年龄和域。

ArrowRawData

我们希望将数据从该文件复制到主文件。

ArrowMain

在运行宏之前，我们需要指定文件路径和文件名。

ArrowOutput

逻辑解释

我们创建了“ OpenClosedWorkbook”宏，以从关闭的工作簿中复制数据。它打开工作簿，将数据复制到主工作簿，然后关闭上一个工作簿。

代码说明

设置WB = Workbooks.Open（FileName）

上面的代码用于创建打开的工作簿的对象。

WB.Worksheets（“ Sheet1”）。Range（“ A1”）。CurrentRegion.Copy上面的代码用于复制已定义工作簿中的所有数据。

ThisWorkbook.Worksheets（“ Main”）。Range（“ A15”）。PasteSpecial（xlPasteValues）

上面的代码用于将复制的数据粘贴到主工作表中。

请遵循以下代码

Option Explicit

Sub OpenClosedWorkbook()

'Declaring variables

Dim FileName As String

Dim WB As Workbook

'Disabling screen updates

Application.ScreenUpdating = False

'Getting file path and file name from the textbox

FileName = Sheet1.TextBox1.Value

'Open the Excel workbook

Set WB = Workbooks.Open(FileName)

'Copy data from sheet1 from opened workbook

WB.Worksheets("Sheet1").Range("A1").CurrentRegion.Copy

'Paste data in the macro file starting from cell A15

ThisWorkbook.Worksheets("Main").Range("A15").PasteSpecial (xlPasteValues)

'Close the workbook without saving

WB.Close (False)

Set WB = Nothing

'Auto adjusting the size of selected columns

Selection.Columns.AutoFit

'Saving the macro file

ThisWorkbook.Save

End Sub

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]