Có rất nhiều trương excel, hơn nữa excel trong ngoài mặt kết cấu cơ bản giống nhau, như thế nào nhanh chóng đem này đó excel xác nhập ở một cái excel giao diện, dễ bề hậu kỳ phân tích cùng thống kê.
Cụ thể như sau:
1, chúng ta yêu cầu đem nhiều excel biểuĐều đặt ở cùng cái folder bên trong,Cũng ở cái này folder bên trongTân kiến một cái excel.
2, dùng microsoft excel mở ra tân kiến excel biểu, cũngHữu kiện đơn đánhsheet1, tìm được “Xem xét số hiệu”,Đơn đánh đi vào. Đi vào lúc sau liền thấy được hoành tính toán giao diện.
3,
3, sau đó chúng ta đem phía dưới này đó hoành tính toánSố hiệu phục chế đi vào,Sau đó tìm được công cụ lan mặt trên “Vận hành”Hạ“Vận hành tử quá trình / người dùng cửa sổ thể”,Số hiệu như sau, như đồ sở kỳ:
sub xác nhập trước mặt mục lục hạ sở hữu công tác bộ toàn bộ công tác biểu ()
dim mypath, myname, awbname
dim wb as workbook, wbn as string
dim g as long
dim num as long
dim box as string
application.screenupdating = false
mypath = activeworkbook.path
myname = dir(mypath & "\" & "*.xls" )
awbname = activeworkbook.name
num = 0
do while myname <> ""
if myname <> awbname then
set wb = workbooks.open(mypath & "\" & myname)
num = num + 1
with workbooks(1).activesheet
.cells(.range( "a65536" ).end(xlup).row + 2, 1) = left(myname, len(myname) - 4)
for g = 1 to sheets.count
wb.sheets(g).usedrange.copy.cells(.range( "a65536" ).end(xlup).row + 1, 1)
next
wbn = wbn & chr(13) & wb.name
wb.close false
end with
end if
myname = dir
loop
range( "a1" ).select
application.screenupdating = true
msgbox "Cộng xác nhập" & num & "Cái công tác mỏng hạ toàn bộ công tác biểu. Như sau:" & chr(13) & wbn, vbinformation, "Nhắc nhở"
end sub
4, vận hành lúc sau, chờ đợi vài giây, chờ vận hành xong, chính là xác nhập hoàn thành lúc sau, sẽ có nhắc nhở, điểm xác định là được.