giúp code tự động copy dữ liệu từ workbook sang workbook

[sangame]

E có file quản lí sổ bộ dành cho hs mới trúng tuyển. Mỗi thư mục 10a 1, 10a 2.... có chứa file dữ liệu.Việc của e là copy dữ liệu đó vào file TONG HOP, mỗi học sinh cách nhau 4 dòng.
e mù tịt VBA mà toàn trường gần cả ngàn hs làm thủ công thì không biết khi nào cho xong. e mong các bác giúp đỡ.cảm ơn các bác!

View more random threads:

• Công thức hàm if có 2 điều kiện
• Mọi người giúp mình cái này với VBA
• Viết giúp code lọc danh sách(Khó)
• Hỏi cách đếm chuỗi kí tự nếu khác với kí tự qui định
• Lọc và đếm dữ liệu theo thời gian!
• Nhờ import excel vào access
• Lặp lại thanh tiêu đề cho 1 vài trang được chọn
• Hỏi về criteria của hàm sumifs
• in một lần được trang 1 của nhiều file PDF
• Mail merge 2 file excel

[quangngoc93]

E có file quản lí sổ bộ dành cho hs mới trúng tuyển. Mỗi thư mục 10a 1, 10a 2.... có chứa file dữ liệu.Việc của e là copy dữ liệu đó vào file TONG HOP, mỗi học sinh cách nhau 4 dòng.
e mù tịt VBA mà toàn trường gần cả ngàn hs làm thủ công thì không biết khi nào cho xong. e mong các bác giúp đỡ.cảm ơn các bác!

Xem file Tong hop nhấn nút tổng hợp xem kết quả đúng không

<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shCore.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAppleScript.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAS3.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushBash.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushColdFusion.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCpp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCSharp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCss.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDelphi.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDiff.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushErlang.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushGroovy.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJava.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJavaFx.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJScript.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPerl.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPhp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPlain.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPowerShell.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPython.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushRuby.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSass.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushScala.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSql.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushVb.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushXml.js"></script>

<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>

<link type="text/css" rel="stylesheet" href="/forum/vctinh_xcode/styles/shCoreDefault.css">
<link type="text/css" rel="Stylesheet" href="/forum/vctinh_xcode/styles/shThemeDefault.css">

<pre class="brush: vb; toolbar: false;">
Sub test()

Dim FSO As Object
Dim File As Object
Dim subF As Object
Dim KQ(1 To 10000, 1 To 22)
Dim k As Long, sarr, j As Long, jj As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
k = 1
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
With FSO


With .GetFolder(ThisWorkbook.Path)


For Each subF In .SubFolders


For Each File In subF.Files


If FSO.GetExtensionName(File) Like "xls*" Then


If Not File.Name Like "~*" Then


If File.Name <> ThisWorkbook.Name Then

Workbooks.Open File


With ActiveWorkbook.ActiveSheet
sarr = .Range(.[A6], .[a65536].End(3)).Resize(, 22).Value


For j = 1 To UBound(sarr)


For jj = 1 To UBound(sarr, 2)
KQ(k, jj) = sarr(j, jj)
Next
k = k + 5

Next


End With


ActiveWorkbook.Close False
End If


End If


End If


Next


Next


End With


End With

.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
With ActiveSheet.Range("A6:V10000")
.ClearContents
.Cells(1, 1).Resize(k, 22) = KQ
End With
End Sub



</pre>

<script type="text/javascript">
function path()
{
var args = arguments,
result = []
;

for(var i = 0; i < args.length; i++)
result.push(args[i].replace('@', '/forum/vctinh_xcode/scripts/'));
return result;
};

SyntaxHighlighter.autoloader.apply(null, path(
'applescript @shBrushAppleScript.js',
'actionscript3 as3 @shBrushAS3.js',
'ahk autohotkey @shBrushAhk.js',
'asm x86 @shBrushAsm.js',
'bash shell @shBrushBash.js',
'coldfusion cf @shBrushColdFusion.js',
'cpp c @shBrushCpp.js',
'c# c-sharp csharp @shBrushCSharp.js',
'css @shBrushCss.js',
'delphi pascal @shBrushDelphi.js',
'diff patch pas @shBrushDiff.js',
'erl erlang @shBrushErlang.js',
'groovy @shBrushGroovy.js',
'java @shBrushJava.js',
'jfx javafx @shBrushJavaFX.js',
'js jscript javascript @shBrushJScript.js',
'perl pl @shBrushPerl.js',
'php @shBrushPhp.js',
'text plain @shBrushPlain.js',
'py python @shBrushPython.js',
'ruby rails ror rb @shBrushRuby.js',
'sass scss @shBrushSass.js',
'scala @shBrushScala.js',
'sql SQL @shBrushSql.js',
'vb vbnet vba @shBrushVb.js',
'xml xhtml xslt html @shBrushXml.js'
));
SyntaxHighlighter.config.stripBrs = true;
SyntaxHighlighter.all();
</script>

[hoangchuot]

Xem file Tong hop nhấn nút tổng hợp xem kết quả đúng không

<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shCore.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAppleScript.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushAS3.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushBash.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushColdFusion.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCpp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCSharp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushCss.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDelphi.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushDiff.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushErlang.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushGroovy.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJava.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJavaFx.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushJScript.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPerl.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPhp.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPlain.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPowerShell.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushPython.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushRuby.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSass.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushScala.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushSql.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushVb.js"></script>
<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shBrushXml.js"></script>

<script type="text/javascript" src="/forum/vctinh_xcode/scripts/shAutoloader.js"></script>

<link type="text/css" rel="stylesheet" href="/forum/vctinh_xcode/styles/shCoreDefault.css">
<link type="text/css" rel="Stylesheet" href="/forum/vctinh_xcode/styles/shThemeDefault.css">

<pre class="brush: vb; toolbar: false;">
Sub test()

Dim FSO As Object
Dim File As Object
Dim subF As Object
Dim KQ(1 To 10000, 1 To 22)
Dim k As Long, sarr, j As Long, jj As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
k = 1
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
With FSO


With .GetFolder(ThisWorkbook.Path)


For Each subF In .SubFolders


For Each File In subF.Files


If FSO.GetExtensionName(File) Like "xls*" Then


If Not File.Name Like "~*" Then


If File.Name <> ThisWorkbook.Name Then

Workbooks.Open File


With ActiveWorkbook.ActiveSheet
sarr = .Range(.[A6], .[a65536].End(3)).Resize(, 22).Value


For j = 1 To UBound(sarr)


For jj = 1 To UBound(sarr, 2)
KQ(k, jj) = sarr(j, jj)
Next
k = k + 5

Next


End With


ActiveWorkbook.Close False
End If


End If


End If


Next


Next


End With


End With

.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
With ActiveSheet.Range("A6:V10000")
.ClearContents
.Cells(1, 1).Resize(k, 22) = KQ
End With
End Sub



</pre>

<script type="text/javascript">
function path()
{
var args = arguments,
result = []
;

for(var i = 0; i < args.length; i++)
result.push(args[i].replace('@', '/forum/vctinh_xcode/scripts/'));
return result;
};

SyntaxHighlighter.autoloader.apply(null, path(
'applescript @shBrushAppleScript.js',
'actionscript3 as3 @shBrushAS3.js',
'ahk autohotkey @shBrushAhk.js',
'asm x86 @shBrushAsm.js',
'bash shell @shBrushBash.js',
'coldfusion cf @shBrushColdFusion.js',
'cpp c @shBrushCpp.js',
'c# c-sharp csharp @shBrushCSharp.js',
'css @shBrushCss.js',
'delphi pascal @shBrushDelphi.js',
'diff patch pas @shBrushDiff.js',
'erl erlang @shBrushErlang.js',
'groovy @shBrushGroovy.js',
'java @shBrushJava.js',
'jfx javafx @shBrushJavaFX.js',
'js jscript javascript @shBrushJScript.js',
'perl pl @shBrushPerl.js',
'php @shBrushPhp.js',
'text plain @shBrushPlain.js',
'py python @shBrushPython.js',
'ruby rails ror rb @shBrushRuby.js',
'sass scss @shBrushSass.js',
'scala @shBrushScala.js',
'sql SQL @shBrushSql.js',
'vb vbnet vba @shBrushVb.js',
'xml xhtml xslt html @shBrushXml.js'
));
SyntaxHighlighter.config.stripBrs = true;
SyntaxHighlighter.all();
</script>

cảm ơn bạn. nhưng sao khi bấm tổng hợp code không cập nhật dữ liệu mới từ file A1, A2 ..có 2 vấn đề mong bạn giúp đỡ:
- mình có thể thêm nhiều lớp được không?
- số tt trong file tổng hợp fair là 1, 2,3 ... chứ không phải lặp lại số tt của từng lớp. mong bạn giúp đỡ. cảm ơn bạn

[tanhaiha]

cảm ơn bạn. nhưng sao khi bấm tổng hợp code không cập nhật dữ liệu mới từ file A1, A2 ..có 2 vấn đề mong bạn giúp đỡ:
- mình có thể thêm nhiều lớp được không?
- số tt trong file tổng hợp fair là 1, 2,3 ... chứ không phải lặp lại số tt của từng lớp. mong bạn giúp đỡ. cảm ơn bạn

Không tổng hợp là sao không hiểu tôi kiểm tra thử vẫn tổng hợp bình thường
Tôi sửa code lại thêm số thứ tự cho bạn kiểm tra lại. Nếu không tổng hợp thì đưa file bạn lên mới biết bị lỗi gì

[hantrongtai1]

code chạy rồi cảm ơn bạn.
giờ mình muốn cũng file đó với mỗi hs dựa theo mã số có thế chèn thêm hình 3,4 và đó giống kiểu như file dưới được không, nhờ bạn giúp mình với. cảm ơn bạn

Vậy làm thêm code chèn hình nữa trên diễn đàn cả đóng

[haido92]

Không tổng hợp là sao không hiểu tôi kiểm tra thử vẫn tổng hợp bình thường
Tôi sửa code lại thêm số thứ tự cho bạn kiểm tra lại. Nếu không tổng hợp thì đưa file bạn lên mới biết bị lỗi gì

code chạy rồi cảm ơn bạn.
giờ mình muốn cũng file đó với mỗi hs dựa theo mã số có thế chèn thêm hình 3,4 và đó giống kiểu như file dưới được không, nhờ bạn giúp mình với. cảm ơn bạn