Use VBA to open two workbooks in the same path

""You can press f1 for help and see how to use it in detail.

Is it a click of a button to sync? Or do you have to synchronize every step of the way?

1. Put the excel file that needs to be merged and the destination excel file in one folder.

2. Open and load the "Development Tools" menu under the excel menu.

4. Make an import key. Click on the "Development Tools" menu and select the command button under the "Insert" --activex control. Draw a command button in the worksheet.

5. Click "Design Mode" under "Development Tools", and then double-click the command button "CommandButton1" you just created to enter the ** box.

6. Copy all of the following into the box.

7. Save the HB file as a macro-enabled workbook. Close the current ** box and return to the excel interface. Select "File" --Save As --Save as "Save Type" and select "Macro-Enabled Workbook" under "OK".

8. Open and click the button. Sheets A, B, and C from the Excel file that need to be merged are merged into this file.

VBA** is as follows:

sub s()

pth = "d:\my documents\" 'Enter here the full path to the folder where the file is located.

fn = dir(pth & "*.xls")

set newbk =

set sht =

k = 1do while fn <>""

set wb = & fn)

for i = 1 to

1) = fn & ":" &

k = k + 1

1).pastespecial xlpastevaluesandnumberformats

k = + 1

nextfalse

fn = dir

looppth & "" 'Set the file name of the merged file here.

falseend sub

There are a few questions that need to be confirmed: Is the folder path fixed? Are the worksheets formatted the same? Does replication include header rows?

where A and round bucket B are the paths of two Excels.

function recompose_excel(a,b)set objexcel = createobject("")= false

set excelbook_s =

sheet1").select'Select sheet1'Copy the contents of sheet1 when destroying the cover.

trueset excelbook_s = nothingset excelbook_t =

sheet1").select'Select sheet1excelbook"a1"Tangerine Aftergrinding).pastespecialexcelbook_

excelbook_

set excelbook_t = nothingend function

Can't see what you're going to do. It seems that this can't be done.

The problem description is too simple, it should be a wrong reference, please paste the complete ** or upload the ** to help you modify.

If nothing is written, nothing changes, then the starting path is probably my document sub aa().

msgbox curdir

end sub

sub bb()

chdrive "d:\"

chdir "d:\backup"

''''' dir("*.xls", vbnormal)end sub

I am afraid that it is difficult to open at the same time, so I can only open it one after another.

You said that there is a mutual Mao shield, you said that you use VBA, why do you have to do it manually.

You record a macro that duplicates the worksheet and try it yourself!