Copy Dữ Liệu Từ File Json Sang 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. Copy dữ liệu từ file Json sang Excel (1 người xem)

• Thread starter Thread starter luu.nguyen21
• Ngày gửi Ngày gửi 8/10/21

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

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

luu.nguyen21

Thành viên mới

Tham gia 30/9/21 Bài viết 7 Được thích 0 Thân chào anh/em, Nhờ ae cao tay chỉ dùm mình cách copy dữ liệu từ file json sang file excel. (file mẫu trong tệp đính kèm) cám ơn ae rất nhiều!

File đính kèm

• Import Json.zip Import Json.zip 13.1 KB · Đọc: 20

Sắp xếp theo thời gian sắp xếp theo bầu chọn

Maika8008

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

Tham gia 12/6/20 Bài viết 4,854 Được thích 5,841 Donate (Momo) Giới tính Nam

luu.nguyen21 đã viết: Thân chào anh/em, Nhờ ae cao tay chỉ dùm mình cách copy dữ liệu từ file json sang file excel. (file mẫu trong tệp đính kèm) cám ơn ae rất nhiều! Nhấp chuột vào đây để mở rộng...

Dùng sub này Rich (BB code): Sao chép. Sub GetFileText_utf8() Dim st As Object Dim sPathname As String, sText As String Dim A() As String, Cline As Double, B() As String Dim i As Long Set st = CreateObject("ADODB.Stream") sPathname = "D:\TestGPE\Import Json\" & "Customer_info.json" 'Sửa lại đường dẫn cho phù hợp st.Charset = "utf-8" st.Open st.LoadFromFile (sPathname) sText = st.ReadText(-1) 'Doc characters (Dung tham so -1 doc All file) A = Split(sText, vbLf) Cline = UBound(A) + 1 ReDim B(1 To Cline, 1 To 1) Application.ScreenUpdating = False For i = 0 To Cline - 1 B(i + 1, 1) = A(i) Next i Sheet2.Range("A1:A100000").ClearContents Sheet2.Range("A1").Resize(Cline, 1) = B st.Close Set st = Nothing Application.ScreenUpdating = True End Sub Upvote 0 L

luu.nguyen21

Thành viên mới

Tham gia 30/9/21 Bài viết 7 Được thích 0

Maika8008 đã viết: Dùng sub này Rich (BB code): Sao chép. Sub GetFileText_utf8() Dim st As Object Dim sPathname As String, sText As String Dim A() As String, Cline As Double, B() As String Dim i As Long Set st = CreateObject("ADODB.Stream") sPathname = "D:\TestGPE\Import Json\" & "Customer_info.json" 'Sửa lại đường dẫn cho phù hợp st.Charset = "utf-8" st.Open st.LoadFromFile (sPathname) sText = st.ReadText(-1) 'Doc characters (Dung tham so -1 doc All file) A = Split(sText, vbLf) Cline = UBound(A) + 1 ReDim B(1 To Cline, 1 To 1) Application.ScreenUpdating = False For i = 0 To Cline - 1 B(i + 1, 1) = A(i) Next i Sheet2.Range("A1:A100000").ClearContents Sheet2.Range("A1").Resize(Cline, 1) = B st.Close Set st = Nothing Application.ScreenUpdating = True End Sub Nhấp chuột vào đây để mở rộng...

Bạn ơi mình muốn import vào file excel sẽ hiển thị theo dòng và cột như bên file excel mẫu đính kèm Nhờ bạn xem dùm mình. cám ơn bạn rất nhiều Upvote 0

Maika8008

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

Tham gia 12/6/20 Bài viết 4,854 Được thích 5,841 Donate (Momo) Giới tính Nam

luu.nguyen21 đã viết: Bạn ơi mình muốn import vào file excel sẽ hiển thị theo dòng và cột như bên file excel mẫu đính kèm Nhờ bạn xem dùm mình. cám ơn bạn rất nhiều View attachment 267385 Nhấp chuột vào đây để mở rộng...

Việc này dễ hơn việc trước. Upvote 0

Maika8008

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

Tham gia 12/6/20 Bài viết 4,854 Được thích 5,841 Donate (Momo) Giới tính Nam Gộp cả 2 việc. Tạm thời chưa có tiêu đề, dữ liệu chép ra ở H2 Nếu muốn tiêu đề thì làm tiếp, chừ tôi bận rồi Rich (BB code): Sao chép. Sub GetFileText_utf8() Dim st As Object Dim sPathname As String, sText As String Dim A() As String, B() As String, Cline As Double Dim i&, j&, k&, Dau&, Cuoi& Set st = CreateObject("ADODB.Stream") sPathname = "D:\TestGPE\Import Json\" & "Customer_info.json" st.Charset = "utf-8" st.Open st.LoadFromFile (sPathname) sText = st.ReadText(-1) 'Doc characters (Dung tham so -1 doc All file) A = Split(sText, vbLf) Cline = UBound(A) + 1 ReDim B(1 To Cline, 1 To 7) j = 1 For i = 0 To Cline - 1 If InStr(1, A(i), """") Then k = k + 1 Dau = InStr(1, A(i), ":") + 3: Cuoi = InStrRev(A(i), """") B(j, k) = Mid(A(i), Dau, Cuoi - Dau) If k = 7 Then k = 0: j = j + 1 End If Next i st.Close Set st = Nothing Sheet2.Range("H2").Resize(j, 7) = B End Sub Upvote 0 L

luu.nguyen21

Thành viên mới

Tham gia 30/9/21 Bài viết 7 Được thích 0

Maika8008 đã viết: Gộp cả 2 việc. Tạm thời chưa có tiêu đề, dữ liệu chép ra ở H2 Nếu muốn tiêu đề thì làm tiếp, chừ tôi bận rồi Rich (BB code): Sao chép. Sub GetFileText_utf8() Dim st As Object Dim sPathname As String, sText As String Dim A() As String, B() As String, Cline As Double Dim i&, j&, k&, Dau&, Cuoi& Set st = CreateObject("ADODB.Stream") sPathname = "D:\TestGPE\Import Json\" & "Customer_info.json" st.Charset = "utf-8" st.Open st.LoadFromFile (sPathname) sText = st.ReadText(-1) 'Doc characters (Dung tham so -1 doc All file) A = Split(sText, vbLf) Cline = UBound(A) + 1 ReDim B(1 To Cline, 1 To 7) j = 1 For i = 0 To Cline - 1 If InStr(1, A(i), """") Then k = k + 1 Dau = InStr(1, A(i), ":") + 3: Cuoi = InStrRev(A(i), """") B(j, k) = Mid(A(i), Dau, Cuoi - Dau) If k = 7 Then k = 0: j = j + 1 End If Next i st.Close Set st = Nothing Sheet2.Range("H2").Resize(j, 7) = B End Sub Nhấp chuột vào đây để mở rộng...

cám ơn bạn rất nhiều để mình thử xem Upvote 0

Maika8008

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

Tham gia 12/6/20 Bài viết 4,854 Được thích 5,841 Donate (Momo) Giới tính Nam Có thêm tiêu đề Rich (BB code): Sao chép. Sub GetFileText_utf8() Dim st As Object Dim sPathname As String, sText As String Dim A() As String, B() As String, aTtl() As String, Cline As Double Dim i&, j&, k&, Dau&, Cuoi& Set st = CreateObject("ADODB.Stream") sPathname = "D:\TestGPE\Import Json\" & "Customer_info.json" st.Charset = "utf-8" st.Open st.LoadFromFile (sPathname) sText = st.ReadText(-1) 'Doc characters (Dung tham so -1 doc All file) A = Split(sText, vbLf) Cline = UBound(A) + 1 ReDim B(1 To Cline, 1 To 7) ReDim aTtl(1 To 7) j = 1 For i = 0 To Cline - 1 If InStr(1, A(i), """") Then k = k + 1 Dau = InStr(1, A(i), ":") + 3: Cuoi = InStrRev(A(i), """") If j = 1 Then aTtl(k) = Mid(A(i), InStr(1, A(i), """") + 1, Dau - 5 - InStr(1, A(i), """")) B(j, k) = Mid(A(i), Dau, Cuoi - Dau) If k = 7 Then k = 0: j = j + 1 End If Next i st.Close Set st = Nothing Sheet2.Range("H2").Resize(j, 7) = B Sheet2.Range("H1").Resize(1, 7) = aTtl Sheet2.Range("H1").Resize(1, 7).Font.Bold = True End Sub Upvote 0 L

luu.nguyen21

Thành viên mới

Tham gia 30/9/21 Bài viết 7 Được thích 0

Maika8008 đã viết: Có thêm tiêu đề Rich (BB code): Sao chép. Sub GetFileText_utf8() Dim st As Object Dim sPathname As String, sText As String Dim A() As String, B() As String, aTtl() As String, Cline As Double Dim i&, j&, k&, Dau&, Cuoi& Set st = CreateObject("ADODB.Stream") sPathname = "D:\TestGPE\Import Json\" & "Customer_info.json" st.Charset = "utf-8" st.Open st.LoadFromFile (sPathname) sText = st.ReadText(-1) 'Doc characters (Dung tham so -1 doc All file) A = Split(sText, vbLf) Cline = UBound(A) + 1 ReDim B(1 To Cline, 1 To 7) ReDim aTtl(1 To 7) j = 1 For i = 0 To Cline - 1 If InStr(1, A(i), """") Then k = k + 1 Dau = InStr(1, A(i), ":") + 3: Cuoi = InStrRev(A(i), """") If j = 1 Then aTtl(k) = Mid(A(i), InStr(1, A(i), """") + 1, Dau - 5 - InStr(1, A(i), """")) B(j, k) = Mid(A(i), Dau, Cuoi - Dau) If k = 7 Then k = 0: j = j + 1 End If Next i st.Close Set st = Nothing Sheet2.Range("H2").Resize(j, 7) = B Sheet2.Range("H1").Resize(1, 7) = aTtl Sheet2.Range("H1").Resize(1, 7).Font.Bold = True End Sub Nhấp chuột vào đây để mở rộng...

cám ơn bạn rất rất nhiều luôn 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

S TỰ ĐỘNG CẬP NHẬT DỮ LIỆU (4 người xem)

• sangdennh
• Hôm qua, lúc 09:55
• Hàm và công thức Excel

Trả lời 7 Đọc 209 Hôm nay lúc 06:31 Phan Thế Hiệp Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 20 Đọc 887 Hôm nay lúc 05:40 SA_DQ File.xlsx hay bị tự động out, khi mở lại báo lỗi repaired và chỉ lưu được đến lần last saved gần nhất ạ (1 người xem)

• zonmaomao
• Hôm qua, lúc 21:50
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 0 Đọc 22 Hôm qua, lúc 21:50 zonmaomao T Nhờ làm file excel quản lý kho N-X-T theo vị trí

• • 

• Tuan_Leok
• 1/11/18
• Excel Ứng Dụng

Trả lời 13 Đọc 5K Hôm qua, lúc 17:46 thanhphongtslocphat

• Question Question

Liệt kê tổ hợp chập k của nhóm n phần tử.

• • 
  • 

• NguyenNgocThuHien
• 5/12/17
• Lập Trình với Excel

Trả lời 55 Đọc 19K Hôm qua, lúc 14:14 tohop T G Em xin hỏi hàm Vlook up ạ!

• giangong
• Hôm qua, lúc 10:23
• Hàm và công thức Excel

Trả lời 1 Đọc 53 Hôm qua, lúc 10:38 dungpham01 D Chương trình lập Báo cáo khảo sát Địa chất công trình GeoSection

• • 

• PhanTuHuong
• 7/10/21
• Xây dựng ứng dụng.

Trả lời 10 Đọc 7K Thứ năm lúc 14:52 PhanTuHuong 2 Xin hỏi về Công thức tính tiết theo PPCT (phân phối chương trình) trong Lịch báo giảng tự động (2 người xem)

• 2013myvietnam
• Thứ tư lúc 20:22
• Excel và Giáo Dục

Trả lời 9 Đọc 292 Thứ năm lúc 14:25 2013myvietnam 2 V Giúp tạo bảng phân công lịch trực tự động (1 người xem)

• • 

• vudaicacvatn
• Thứ tư lúc 17:05
• Những vấn đề chung

Trả lời 4 Đọc 138 Thứ năm lúc 08:51 thanthanhan [GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN (1 người xem)

• • 

• GPE-Trợ Lý
• 21/12/25
• Học tập Online

Trả lời 1 Đọc 10K Thứ năm lúc 05:26 GPE-Trợ Lý Nhờ các cao nhân chỉ giúp file excel quá nặng. không không biết nguyên nhân

• hanhlx88
• Thứ hai lúc 13:02
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 218 Thứ tư lúc 22:56 Mr.hieudoanxd Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

• QUANSUNG
• Thứ hai lúc 10:15
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 8 Đọc 265 Thứ tư lúc 16:31 dungpham01 D T Nhờ các Pro giúp thiết lập bảng excel (1 người xem)

• thanhkybk
• Thứ hai lúc 17:53
• Hàm và công thức Excel

Trả lời 10 Đọc 437 Thứ tư lúc 15:19 thanhkybk T 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 20 Đọc 756 Thứ ba lúc 10:32 ptm0412 D Công thức tính thuế TNCN cho người lao động nước ngoài

• Dinh Hong Nhung
• Thứ hai lúc 10:04
• Hàm và công thức Excel

Trả lời 1 Đọc 200 Thứ hai lúc 15:05 Phan Thế Hiệp D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

• Dinh Hong Nhung
• 11/12/25
• Hàm và công thức Excel

Trả lời 16 Đọc 2K Thứ hai lúc 13:55 dungpham01 D L [Nhờ giúp đỡ] Tìm khoảng thời gian bị gối, hoặc trùng nhau

• Lá chanh
• 26/12/25
• Hàm và công thức Excel

Trả lời 8 Đọc 228 Thứ hai lúc 05:36 lamvankhoat1 L B Tính 1 đồng Doanh thu thuần mang về thì còn lại được bao nhiêu đồng EBITDA

• Bobby52
• 27/12/25
• Hàm và công thức Excel

Trả lời 0 Đọc 116 27/12/25 Bobby52 B 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 6 Đọc 547 25/12/25 PhanTuHuong A Có cách nào điều chỉnh cho tên Sheet lớn ra

• • 

• AnhThu-1976
• 24/12/25
• Những vấn đề chung

Trả lời 8 Đọc 331 25/12/25 SA_DQ 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

• 2013myvietnam 4
• sangdennh 4
• Phan Thế Hiệp 4
• Duy Tùng 9x 2
• thanthanhan 1
• PhanTuHuong 1
• giangong 1
• dungpham01 1
• tohop 1
• thanhphongtslocphat 1
• zonmaomao 1

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

• Phan Thế Hiệp 6
• 2013myvietnam 5
• thanthanhan 2
• PhanTuHuong 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