この記事では、閉じたブックからデータをコピーするマクロを作成します。

名前、年齢、ドメインなどの従業員データを含む「DataFile」があります。

ArrowRawData

このファイルからメインファイルにデータをコピーします。

ArrowMain

マクロを実行する前に、ファイルパスとファイル名を指定する必要があります。

ArrowOutput

ロジックの説明

閉じたブックからデータをコピーするための「OpenClosedWorkbook」マクロを作成しました。ブックを開き、データをメインブックにコピーしてから、前のブックを閉じます。

コードの説明

Set 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]までご連絡ください