数据导入

admin · 发表于 2020-4-6 22:32:53

您需要登录才可以下载或查看，没有账号？注册

x

Sub TEST()+ g$ p, W5 p& U' O' V
Application.ScreenUpdating = False
K; Z* T" U. |$ [9 t
Set d = CreateObject("scripting.dictionary")
. y) \1 Y3 z7 Z% ?8 |7 r
MyPath = ThisWorkbook.Path & "\基础数据"
+ Y' z4 o) a3 a8 T! B+ E, c
MyName = Dir(MyPath & "*.xlsx")! V; K1 O; ^; A- ~0 W
Do While MyName <> ""6 ^4 F# h' w/ j6 C
If MyName <> ThisWorkbook.Name Then
' M. \& ?$ u, g; F1 @- x! Q
Set wb = GetObject(MyPath & MyName)6 o/ j* @; W% S- q+ X- J. b" I" @
For Each sh In Sheets
3 M! H( T- ~! W: L) Y$ x$ {% ?
If sh.Name = Split(MyName, ".")(0) Then wb.Sheets(1).Cells.Copy sh.[a1]* N# p( X% j7 u+ ~8 D* {4 O) U. t; z
Next
( w! l" p, t) p# U: n8 X
wb.Close False
N9 C4 Y+ Q8 y( M' g0 w
End If
, f5 C8 @, ^ A! G1 r' a( e6 m
MyName = Dir! m& s' q! C6 a, i& m
Loop! \! m+ g! S4 F+ \% P/ y, k
Application.ScreenUpdating = True5 q4 a m7 @( ~7 h
MsgBox "文件夹内所有数据已导入！"
- z0 D5 X" e# c; `9 b
End Sub

复制代码

数据导入.zip (249.58 KB, 下载次数: 91)

		自动登录	找回密码
密码			注册

[Excel课程] 数据导入