Cách Lấy Dữ Liệu Vào 1 File Dữ Liệu Thô | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Cách lấy dữ liệu vào 1 file dữ liệu thô (1 người xem)

• Thread starter Thread starter tackenui
• Ngày gửi Ngày gửi 8/8/07

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) T

tackenui

Thành viên mới

Tham gia 19/7/07 Bài viết 7 Được thích 2 Cách lấy dữ liệu từ 1 file dữ liệu thô Mình thấy trên diễn đàn có chỉ nhiều cách lấy dữ liệu từ 1 file khác. Nhưng hình như chỉ là lấy nguyên file này đổ vào file kia thôi. Ko biết mình thấy đúng hay ko? Bi giờ giả sử tôi có 1 file dữ liệu thô và 1 file được thiết kế sẵn layout. (Cột trên file thô ko tương ứng với file được thiết kế layout) Nếu tôi dùng VBA để copy dữ liệu từ file thô vào file layout thì phải làm như thế nào? Xin mọi người chỉ giúp VD: tôi có 1 file sổ quỹ (layout), phía dưới có các phần như Chữ ký giám đốc... Khi tôi đổ từ file thô sang thì chương trình sẽ chèn thêm dòng vô phần detail và đẩy từ từ phần chữ ký xuống phía dưới để ko ảnh hưởng phần layout ở dưới. Xin nói thêm là khi mình mở file layout thì chương trình sẽ tự động lấy dữ liệu từ file thô bỏ vào cột tương ứng. Lần chỉnh sửa cuối: 8/8/07 Sắp xếp theo thời gian sắp xếp theo bầu chọn L

Lam_A0

Thành viên hoạt động

Tham gia 24/1/07 Bài viết 120 Được thích 65 Làm được anh ạ! Em gửi anh hàm GetValue(path, file, sheet, ref), nó có các tham số là đường dẫn path, tên file, tên sheet, và giá trị tham chiếu. Anh muốn copy cái gì thì cứ thay đổi cái ref là được. Mã: Sao chép. Function Getvalue(path, file, sheet, ref) 'Retrieve a value from a closed workbook Dim arg As String 'Make sure the file exists If Right(path, 1) <> "\" Then path = path & "\" If Dir(path & file) = "" Then Getvalue = "File not found!" Exit Function End If 'Create the argument arg = "'" & path & "[" & file & "]" & sheet & "'!" & _ Range(ref).Range("A1").Address(, , xlR1C1) 'Execute an XLM macro Getvalue = ExecuteExcel4Macro(arg) End Function

tackenui đã viết: Xin nói thêm là khi mình mở file layout thì tự nó sẽ lấy dữ liệu từ file thô bỏ vào theo đúng thứ tự column. Nhấp chuột vào đây để mở rộng...

Vậy thì anh nên gửi file lên forum. Thân! Chỉnh sửa lần cuối bởi điều hành viên: 8/8/07 Upvote 0

Mr Okebab

Ngon Ngất Ngây

Thành viên đã mất Tham gia 6/8/06 Bài viết 3,260 Được thích 3,790

tackenui đã viết: Mình thấy trên diễn đàn có chỉ nhiều cách lấy dữ liệu từ 1 file khác. Nhưng hình như chỉ là lấy nguyên file này đổ vào file kia thôi. Ko biết mình thấy đúng hay ko? Bi giờ giả sử tôi có 1 file dữ liệu thô và 1 file được thiết kế sẵn layout. (Cột trên file thô ko tương ứng với file được thiết kế layout) Nếu tôi dùng VBA để copy dữ liệu từ file thô vào file layout thì phải làm như thế nào? Xin mọi người chỉ giúp VD: tôi có 1 file sổ quỹ (layout), phía dưới có các phần như Chữ ký giám đốc... Khi tôi đổ từ file thô sang thì chương trình sẽ chèn thêm dòng vô phần detail và đẩy từ từ phần chữ ký xuống phía dưới để ko ảnh hưởng phần layout ở dưới. Nhấp chuột vào đây để mở rộng...

Có 2 cách làm : C1 : - Bạn làm sẵn dòng những cuối ở đâu đó. Sau đó khi đã lấy hết dữ liệu vào file mẫu của bạn (không có phần footer) thì bạn sẽ copy phần này vào (phần ở đâu đó), bắt đầu từ dòng cuối cùng. Tất nhiên là để VBA làm rồi. C2 : - Bạn dự tính Layout của bạn tối đa là 5.000 dòng (VD như vậy),header là 10 dòng, footer 5 dòng. Vậy thì bạn thiết kế sẵn một layout có 5015 dòng. Trước khi đỏ dữ liệu vào thì bạn phải xóa hết dữ liệu cũ (không cần phải nhắc phải không), sau đó bạn chép dự liệu vào layout của bạn. VD khi đó dữ liệu của bạn có 1000 dòng (từ dòng 11 đến 1010), sau đó bạn cho ẩn đi từ dòng 1011 đến 5010. Và cứ vậy mà in ra thôi Tất nhiên điều này phải thực hiện bằng VBA thì mới thấy hiệu quả. Thân! Upvote 0 T

tackenui

Thành viên mới

Tham gia 19/7/07 Bài viết 7 Được thích 2 Cám ơn các bạn. Mình gởi lên 2 file mẫu. Bạn chỉ mình cách làm nhé. Tất nhiên là bằng VBA Ý của mình là. File "So.xls" là file layout. File "Sheet1.xls" là file thô Khi mình mở file "So.xls" lên thì nó sẽ lấy dòng tương ứng bên file "Sheet.xls" qua (tương ứng với từng cột, có thể cột bên file này khác thứ tự cột bên file kia. Giúp mình nhé. Thanks

File đính kèm

• So.xls So.xls 21 KB · Đọc: 104
• Sheet1.xls Sheet1.xls 20.5 KB · Đọc: 88

Upvote 0

anhtuan1066

Thành viên gạo cội

Tham gia 10/3/07 Bài viết 5,802 Được thích 6,913 Tự nhiên làm cho nhọc công... Chử ký GD là phần ko thay đỗi, sao ko cho lên phía trên? Tôi thấy các cty hay làm như thế! Nghĩa là khi thiết kế Form người ta viết bên dưới là cái gì mặc kệ, miễn phía trên có 4 khung (cho 4 người ký chẳng hạn)... Thế thì phía dưới bạn muốn "đổ" bao nhiêu dử liệu vào cũng đâu có gặp rắc rối... ANH TUẤN Upvote 0 L

Lam_A0

Thành viên hoạt động

Tham gia 24/1/07 Bài viết 120 Được thích 65 Em làm tạm file này xem có hợp ý anh không. Nó mới chỉ thực hiện việc cơ bản là copy dữ liệu từ file sheet1.xls sang so.xls, chưa xử lý khi dữ liệu tăng lên vượt quá khung trong file so.xls. Đúng theo lời anhtuan1066 nói, nếu anh để phần chữ ký lên trên thì mọi chuyện sẽ nhẹ nhàng hơn nhiều. Anh chú ý thay đổi phần đường dẫn file trong code nhé! Thân!

File đính kèm

• So_Quy.xls So_Quy.xls 28 KB · Đọc: 143

Upvote 0 A

anhphuong

Thân Thương

Tham gia 12/3/07 Bài viết 514 Được thích 2,604 Nếu dữ liệu chỉ là giản đơn như vậy thì đâu cần VBA, bạn có thể làm như sau : 1/ Chuyển dữ liệu thô về các cột cho đúng với layout 2/ Chọn các dữ liệu cần chuyển từ file dữ liệu thô vào, dùng lệnh copy và InsertCopyCell là được ngay mà . Chúc thành công Thân Lần chỉnh sửa cuối: 8/8/07 Upvote 0 T

tackenui

Thành viên mới

Tham gia 19/7/07 Bài viết 7 Được thích 2 Cám ơn các bạn rất nhiều, nhất là bạn Lam A0 Upvote 0 T

trungnt

Thành viên hoạt động

Tham gia 2/2/07 Bài viết 135 Được thích 88 Tôi cũng đồng quan điểm với anhphuong, bạn nên định dạng file dữ liệu thô giống với file thiết kế để khi copy sang khỏi phải bận tâm. Tôi vd 1 câu lệnh: Copy vùng dữ liệu A116 của sheet1 sang sheet2 đặt tại vùng B1:E16 như sau: Sheet1.Range("A116").Copy Destination:=Sheet2.Range("B1:E16") Upvote 0

dmtdmtbb

Biệt danh: xDelx

Tham gia 24/5/07 Bài viết 306 Được thích 438

Lam_A0 đã viết: Em làm tạm file này xem có hợp ý anh không. Nó mới chỉ thực hiện việc cơ bản là copy dữ liệu từ file sheet1.xls sang so.xls, chưa xử lý khi dữ liệu tăng lên vượt quá khung trong file so.xls. Đúng theo lời anhtuan1066 nói, nếu anh để phần chữ ký lên trên thì mọi chuyện sẽ nhẹ nhàng hơn nhiều. Anh chú ý thay đổi phần đường dẫn file trong code nhé! Thân! Nhấp chuột vào đây để mở rộng...

Sub copy_data() Dim p, f As String Dim i, j As Long ........p = "C:\Documents and Settings\ntlam\Desktop" ........f = "sheet1.xls" ........s = "sheet1" ............For i = 7 To 8 ............... For j = 1 To 6 ................... a = Cells(i, j).Address ................... Cells(i, j) = Getvalue(p, f, s, a) ................ Next j .............Next i End Sub - Bạn nên cho p = "" thì hay hơn khỏi phải mắc công sửa đường dẫn chỉ cần chép 2 file cùng thư mục là ok. Upvote 0 L

Lam_A0

Thành viên hoạt động

Tham gia 24/1/07 Bài viết 120 Được thích 65

dmtdmtbb đã viết: - Bạn nên cho p = "" thì hay hơn khỏi phải mắc công sửa đường dẫn chỉ cần chép 2 file cùng thư mục là ok. Nhấp chuột vào đây để mở rộng...

Vấn đề là ở chỗ, khi em sử dụng hàm này thì không bao giờ em để 2 file này ở cùng một thư mục cả. Em có 1 file dữ liệu, trong đó có rất nhiều thứ mà không muốn cho người sử dụng xem. Người dùng không cần mở file dữ liệu ra, cũng không cần biết nó nằm ở đâu (code này em đặt pass), họ chỉ cần update thông tin mà họ cần. Upvote 0 V

vietnam123

Thành viên mới

Tham gia 4/9/07 Bài viết 12 Được thích 9

Function Getvalue(path, file, sheet, ref) 'Retrieve a value from a closed workbook Dim arg As String 'Make sure the file exists 'If Right(path, 1) <> "\" Then path = path & "\" 'If Dir(path & file) = "" Then 'Getvalue = "File not found!" 'Exit Function 'End If 'Create the argument arg = "'" & path & "[" & file & "]" & sheet & "'!" & _ Range(ref).Range("A1").Address(, , xlR1C1) 'Execute an XLM macro Getvalue = ExecuteExcel4Macro(arg) End Function Sub copy_data() Dim p, f As String Dim i, j As Long p = "" f = Application.InputBox(prompt:= _ "Enter the source filename", Title:="Source file", _ Default:="Sheet1.xls") 'f = InputBox("Enter the source filename" & Chr(10) & "(with complete path):", "Source file") 'f = "Sheet1.xls" s = "sheet1" For i = 1 To 18 For j = 1 To 10 a = Cells(i, j).Address Cells(i, j) = Getvalue(p, f, s, a) Next j Next i End Sub Nhấp chuột vào đây để mở rộng...

Em chỉnh sửa lại chút xíu. Upvote 0 A

anktdn

Thành viên chính thức

Tham gia 18/6/06 Bài viết 72 Được thích 77 Nghề nghiệp acc Trong trường hợp này em muốn lấy du liệu từ sheet1 từ A6 : F8, sang file cần rút từ sheet1 vào là từ dòng H7:M9, code không đồng nhất về hàng và cột trong trường hợp này, mong anh chị giúp đỡ. thanks Upvote 0 L

longnh

Thành viên chính thức

Tham gia 5/10/06 Bài viết 70 Được thích 102 Sao không nghĩ nguợc lại là áp layout vào số liệu. Upvote 0 A

anktdn

Thành viên chính thức

Tham gia 18/6/06 Bài viết 72 Được thích 77 Nghề nghiệp acc Trường hợp em nêu ở trên nhờ anh chị giúp đỡ theo ví dụ của bạn tackenui.thanks Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Cùng xây dựng file Gia Phả (1 người xem)

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 43 Đọc 21K Hôm nay lúc 15:48 Maika8008 K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (2 người xem)

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 12 Đọc 240 Hôm nay lúc 15:12 kaoehtkid K Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 11 Đọc 890 Hôm nay lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện (1 người xem)

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 18 Đọc 7K Hôm nay lúc 14:11 nguyenanhtruong2409 N D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 17 Đọc 389 Hôm nay lúc 12:04 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 7 Đọc 218 Hôm nay lúc 08:11 minhnghia123 M Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 18 Đọc 607 Hôm nay lúc 00:08 Gà Con yêu VBA M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

• • 

• Mr_Siro
• Thứ tư lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 137 Hôm qua, lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Thứ tư lúc 15:15
• Hàm và công thức Excel

Trả lời 3 Đọc 139 Hôm qua, lúc 11:22 Duy Tùng 9x Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu (1 người xem)

• skygatevn
• Thứ tư lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 102 Thứ tư lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 322 Thứ tư lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 427 Thứ tư lúc 10:20 dieppk.nb92 D CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025 (1 người xem)

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 898 Thứ tư lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (7 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10 (1 người xem)

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 588 Thứ hai lúc 16:19 eagle12 E Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 1 Đọc 190 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 154 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 190 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện (1 người xem)

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 173 Chủ nhật lúc 00:02 dungpham01 D Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 37
• thanthanhan 22
• dungpham01 19
• ongke0711 18
• eagle12 16
• ptm0412 16
• nguyenanhtruong2409 16
• Phan Thế Hiệp 13
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 8
• dieppk.nb92 8
• Gà Con yêu VBA 8
• bsbnhh 7
• duongnhuxuyen 7
• Hana2610 6
• kaoehtkid 6

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 64
• Maika8008 30
• thanthanhan 18
• ongke0711 17
• ptm0412 16
• HeSanbi 12
• dungpham01 11
• HUONGHCKT 9
• eagle12 9
• Cúc Hr 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 5
• pycckuu410 5
• Phuocam 4
• nguyenanhtruong2409 4
• nhhnam 2
• Mr_Siro 2
• Gà Con yêu VBA 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom