There are more than 400 excel files in one folder, and I want to read the data of Sheet1 and A1 of e

Just turn the background on and off.

Press alt+f11 to insert.

Copy a module and enter the following**. Attack.

sub copyall()

fname = "c:\" 'The excel file address and document name that need to be copied are self-sufficient.

It has been repaired.

set d = getobject(fname) 'Open the file.

sheet1"). 1) 'Copy sheet1 completely to the current table DAO

Close the file. set d = nothing

end sub

Hehe, just record a macro. Here's how I called f: patrol back in book1. xls sheet1: A.

filename:="f: Inspection. xls", editable:= _

truesheets("sheet1").selectsheets("sheet1").copy after:=workbooks("book1").sheets(1)

windows("Inspection. csv").activate

The file bai is foldered back in the same duyiwen dao.

The next answer &"\"

sheets("sheet1"). workbooks("book1").sheets("sheet1").cells

true

I don't understand what you mean, but I can tell you a simple way, I don't know if it can achieve your effect, insert a new worksheet, enter the name of the worksheet into any cell, right-click to establish a hyperlink, select ** in this file, and see if it is the effect you want.

You can put sheet1, sheet2, sheet3....Renamed January, February, March. Then put January, February, March.

Paste the contents into sheet1, sheet2, sheet3...I think it's very simple, I don't know if you are asking if this is still the ......

Use workbooks in the same directory to merge into a workbook.

I don't know what the landlord wants to express.,The path value is a character value in **.,A path is a string.。 For example, read the path of your excel file:

sub test()

a=end sub

where a is a string, which is the path to your excel file.

For example, if you want to open d: 123 (the files in the 123 folder of the D drive) sub test1().

set book="d:\123\")

end sub

where d: 123 is a string.

dim mypath as string

mypath=sheet1.[a1].value 'This is how to read the working path. Then you can reference mypath.

In this case, you must open both workbooks at the same time, otherwise the data will not be updated synchronously.

How to do it: (Let's say) Type "=" in Sheet1 A1 cell of file B, then click Enter in Sheet1 A1 cell of file A! Then fill in Sheet1 of File B with a drop-down.

Please try it, hope it helps you!

If file A is saved in D: and the average value is in cell A25 in file A sheet 1, B wants to reference it in cell A1 and enter = in file B in A1'd:\'!A25 will do!

Copy the results of sheet1.

Right-click on sheet2 - Selective Paste - Numeric.

Take the problem as the content (the subject of the email must contain "excel", I use this as a basis to identify non-spam emails, so as not to delete by mistake), excel sample file (please pay special attention: to the 03 version (if it is after 03, "save the file" as, the type box can be selected 03), and express the current situation and target effect) as an attachment to see it.

The merged cells in your Table 1 should be removed to deal with it, and the use of merged cells should be avoided as much as possible when storing data.

To remove the merged cells:

1.Brush all the cells in the "Number of Personnel" and "Time" columns in Table 1 with a format painter to make them unmerged.

2.Start from the upper left corner to select the data area of these 2 columns - press F5 - select the empty value for the positioning condition - enter =, and then click the cell above the currently active cell with the mouse - press Ctrl + Enter to finish.

After this processing, it should be easy to make the style of your table 2, you can send the attachment to me (, the figure you sent does not have row and row markings, it is inconvenient to write formulas.

In sheet2, enter =sheet1!a1 =sheet1!a2 =sheet1!B1, etc. Some of the draggables are autofilled.

You can also click on the cell in sheet2, enter the = sign and then click on the corresponding cell in sheet1.

Press alt+f11, select thisworkbook on the left side and double-click, then enter :

private sub workbook_beforeclose(cancel as boolean)

xlsheethidden

end sub

But in this way, you can't see sheet1 when you open ** in the future, and you have to unhide it manually.